Dim url, hrmlStr, key_s, post_url As String
Dim keyStr() As String
Dim hxml As New MSXML2.XMLHTTP
Dim randKey As New System.Random
'定义随机关键字
keyStr = New String() {"笔记本", "玻璃", "钢结构", "AJAX", "XML", "IDC", "虚拟主机", "顶级域名", "NIKE", "ELONG", "SMS", "房地产", "FirFox", "宠物", "体育", "英语", "托福", "足球", "彩信", "家居乐", "美容", "瘦身", "医院", "网络安全", "威客", "中国", "blog", "unix", "linux", "魔兽", "天堂", "VOD", "哈士奇", "skype", "酒吧", "视频聊天", "读书", "李宇春", "让青春继续", "北航绝恋", "金毛", "乞讨", "乞丐", "互连星空", "http类", "招聘", "应聘", "程序员", "网络安全", "软件开发", "工程师", "入侵", "木马", "黑客", "红客", "APPLE", "判决", "杀毒", "婚庆", "团购", "网球", "华为", "中兴", "HttpApplication类", "毛衣", "显卡", "google广告", "公益广告", "面试技巧", "木材 厂家", "防火墙", "数据库 权限", "钢化玻璃", "迷彩", "高尔夫", "一级代理", "空调"}
'随机读取关键字,我设置的关键字当中有一部分搜索结果是没有广告的,这样可以避免google的检查
key_s = keyStr(randKey.Next(keyStr.Length.ToString))
key_s = HttpUtility.UrlEncode(key_s, System.Text.Encoding.Default)
url = "http://www.google.com/custom?q=" + key_s + "&client=pub-
1076633138320137&forid=1&ie=GB2312&oe=GB2312&cof=GALT%3A%23008000%3BGL%3A1%3BDIV%3A%23336699%3BVLC%3A663399%3BAH%3Acenter%
3BBGC%3AFFFFFF%3BLBGC%3A336699%3BALC%3A0000FF%3BLC%3A0000FF%3BT%3A000000%3BGFNT%3A0000FF%3BGIMP%3A0000FF%3BFORID%3A1&hl=zh-
CN"
post_url = url
'获取GOOGLE生成的广告页面HTML代码
hxml.open("get", url, False)
hxml.setRequestHeader("referer", "http%3A%2F%2Fwww.65535.cn%2Findex.htm")
hxml.send()
hrmlStr = hxml.responseText
Dim a1, a2, a3, Url_Link, Url_Link1 As String
Dim slink() As String
Dim url_open As String
Dim i1, i2, i3 As Integer
'获取GOOGLE生成的广告页面HTML代码中的广告的URL
url = "http://pagead2.googlesyndication.com"
a1 = "<a id=""aw0"" target=""_top"" href=""" _fcksavedurl="""""
a1 = "/pagead/iclk"
a2 = "'aw0')"" onClick=""ha('aw0')"""
a3 = "onFocus"
a3 = "nm=0"
i1 = hrmlStr.IndexOf(a1)
i2 = hrmlStr.IndexOf(a2)
i3 = hrmlStr.IndexOf(a3)
Try
'以POST方式访问广告页面,referer为post_url
Url_Link = hrmlStr.Substring(i1)
slink = Url_Link.Split(" onmouseover")
url = url + slink(0)
hxml.open("post", url, False)
hxml.setRequestHeader("referer", post_url)
hxml.send()
Catch ex As Exception
End Try
|
[注意]针对Google AdSense的欺骗 【实现每天100$的广告收入，小心帐号被封】
您现在的位置：