msgbox GetBody("http://www.123.com/123.txt")

'============================
'XmlHttp函数
'============================
Public Function GetBody(ByVal URL$, Optional ByVal Coding$ = "GB2312")
    Dim ObjXML
    On Error Resume Next
    Set ObjXML = CreateObject("Microsoft.XMLHTTP")
    With ObjXML
        .Open "Get", URL, False, "", ""
        .setRequestHeader "If-Modified-Since", "0"
        .SEnd
        GetBody = .ResponseBody
    End With
    GetBody = BytesToBstr(GetBody, Coding)
    Set ObjXML = Nothing
End Function

Public Function BytesToBstr(strBody, CodeBase)
    Dim ObjStream
    Set ObjStream = CreateObject("Adodb.Stream")
    With ObjStream
        .Type = 1
        .Mode = 3
        .Open
        .Write strBody
        .Position = 0
        .Type = 2
        .Charset = CodeBase
        BytesToBstr = .ReadText
        .Close
    End With
    Set ObjStream = Nothing
End Function

下面是替换网页里字符的代码
Dim webdoc As HTMLDocument
Dim texbody As HTMLBody
Dim Rng As IHTMLTxtRange
On Error Resume Next
Set webdoc = m_IE.Document
Set texbody = webdoc.body
Set Rng = texbody.createTextRange()
Do
If Rng.FindText(“情色”) = False Then Exit Do
Rng.Select
Rng.pasteHTML “过滤”
Loop

**********************************

替换链接：

Dim i As Integer

For i = webdoc.links.length – 1 To 0 Step -1

If InStr(1, webdoc.links(i).outerHTML, “http://www.sex.com”, vbTextCompare) Then

webdoc.links(i).outerHTML = “<a href=’http://www.maxthon.com/’>http://www.maxthon.com/</a>”

End If

Next

**********************************

替换FORM提交地址

1. dim cForm
   
2. set cForm = webdoc.getElementsByTagName(“form”)
   
3. if cForm.length>0 then
   
4. For i = cForm.length – 1 To 0 Step -1
   
5. If InStr(1, cForm(i).outerHTML, “http://www.sex.com”, vbTextCompare)>0 Then
   
6. cForm(i).outerHTML = “<a href=’http://www.maxthon.com/’>http://www.maxthon.com/</a>”
   
7. End If
   
8. Next
   
9. end if
   
10. set cForm = Nothing

美国黄石国家公园似乎永远会把美丽与哀愁与灾难联系在一起，在黄石公园广博的天然森林中有世界上最大的间歇泉集中地带，全球一半以上的间歇泉都在这里。这些地热奇观是世界上最大的活火山存在的证据。因为在它的下面埋藏着一座世界上极少有的“超级火山”。过去的1700万年中，这座“超级火山”先后有过142次大规模的喷发，最近的一次喷发发生在64.2万年前，正是它造就了如今黄石公园的雄奇与壮丽。而据专家称这座“超级火山”的喷发周期是60万年，种种迹象也表明：最近它的确在渐渐苏醒！ More …

我靠 上帝菩萨耶稣保佑 ！！！！

美国中情局对付中国的“十条诫令”
根据美国最大、也是对政府决策最有影响的智囊库兰德公司于1998年6月份向美国政府提出的建议报告：美国的对华战略应该分三步走，第一步是西化、分化中国，使中国的意识形态西方化，从而失去与美国对抗的可能性；第二步是在第一步失效或成效不大时，对中国形成全面的遏制，并形成对中国战略上的合围，包括地缘战略层次和国际组织体制层次，以削弱中国的国际生存空间和战略选择余地；第三步就是在前两招都不能得逞时，不惜与中国一战，当然作战的最好形式不是美国直接参战，而是支持中国内部谋求独立的地区或与中国有重大利益冲突的周边国家。这一”三步走”的战略并不仅仅停留在美国政府决策参考的层面上，在美国的外交实践中已经得到了体现。 More …

呵呵 买了很多山寨总结出来的经验。。

但我这台苹果山寨笔记本本还不错，好看，薄。

目前视频已被河蟹
本人非常推荐大家观看
请使用迅雷下载观看（迅雷的P2P技术导致没有死链，哈哈！！）：http://f1.r.56.com/f1_495c6da052bedf6d95a407c5a3e437da.c49.56.com/flvdownload/5/3/126634047470hd.flv

外公: More …

瑞星这个SB工程师 你丢的起中国的脸嘛！

SB工程师先是随便讲一些狗屁不通的比喻，让别人产生他很懂系统底层的错觉。

然后就把话题引到360上，先说虚拟机软件其实也有“后门”

就是把文件从真实机移动到虚拟机这个过程中运用了“后门”技术

请问你这SB工程师知道什么是后门嘛。虚拟机这个技术就是驱动层面的技术，移动的过程是真实电脑驱动和虚拟机电脑驱动之间的一个接口，这接口怎么叫后门那。

你这SB瑞星当年把微点弄的那么惨，现在在垂死挣扎，快点去死吧。

我作为一个技术运营工作者真佩服瑞星的公关能力，居然还有百分之30大概的网民信任瑞星，很多没有良知的媒体收了瑞星钱帮瑞星做事！

卧槽！

其实360吧冰刃狙剑的作者都招安了，这么强大的技术后盾，tmdSB瑞星 一个破工程师，我想还没老子凶！

引用狙剑作者的话：

这里我代表我的兄弟们给瑞星公司说句话：
你难道不知道你在忽悠不懂技术的普通民众的同时，你在让全世界的安全人士看笑话么？请记住，瑞星两个字的前面是“中国”后面是“安全公司”，并不仅仅是“瑞星”，你丢人也丢的不仅仅是瑞星的人，而是“中国的安全行业”。