读书人

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

发布时间: 2012-02-24 16:30:39 作者: rapoo

修改打开网站后返回的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 

读书人网 >VB

热点推荐