首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

修改打开网站后返回的HTML并显示,如何实现

2012-02-24 
修改打开网站后返回的HTML并显示,怎么实现修改打开网站后返回的HTML并显示,怎么实现好像叫什么劫持的。打开

修改打开网站后返回的HTML并显示,怎么实现
修改打开网站后返回的HTML并显示,怎么实现

好像叫什么劫持的。

打开某网站后,截取返回的HTML,并加上自己想加的HTML,显示出来!

大家有什么想法!

[解决办法]
写个不入流的方法:

VB code
Private Sub Command1_Click()'On Error Resume Next        Dim doc As Object    Dim sHtml As String    WebBrowser1.Navigate "http://topic.csdn.net/u/20090424/16/5968febc-d3f1-4c50-88f7-b4ccc35f5e9e.html"        Do        DoEvents    Loop Until WebBrowser1.Busy = False        Set doc = WebBrowser1.Document    sHtml = doc.body.innerHTML    doc.body.innerHTML = Replace(sHtml, "atfeel", "vbman2003")    Set doc = Nothing    End Sub 

热点排行