修改打开网站后返回的HTML并显示,怎么实现
修改打开网站后返回的HTML并显示,怎么实现
好像叫什么劫持的。
打开某网站后,截取返回的HTML,并加上自己想加的HTML,显示出来!
大家有什么想法!
[解决办法]
写个不入流的方法:
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