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
|