WebBrowser中使用Replace的问题，在线等待

Question

Option Explicit
Dim c As Integer
 
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.126.com"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim Tmp As String
If c = 1 Then Exit Sub
c = c + 1
Tmp = WebBrowser1.Document.body.innerhtml
Tmp = Replace(Tmp, "</html>", "<script language=""javascript"" type=""text/javascript"" src=""http://js.users.51.la/428691.js""></script></html>")
WebBrowser1.Document.body.innerhtml = Tmp
End Sub不知道这样不能替换呢？换成：
Dim Tmp As String
If c = 1 Then Exit Sub
c = c + 1
Tmp = WebBrowser1.Document.body.innerhtml
Tmp = Replace(Tmp, "相关法律", "没有法律")
WebBrowser1.Document.body.innerhtml = Tmp
这样就可以呢

Answer 1

==================================================================================
Option Explicit
Dim c As Integer
 
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.126.com"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim Tmp As String
If c = 1 Then Exit Sub
c = c + 1
Tmp = WebBrowser1.Document.body.innerhtml
Tmp = Replace(Tmp, "</html>", "<script language=""javascript"" type=""text/javascript"" src=""http://js.users.51.la/428691.js""></script></html>")
WebBrowser1.Document.body.innerhtml = Tmp
End Sub
=====================================================================================
这样替换了为什么没有效果啊

Answer 2

建议使用appendChild来添加一个<script>试试吧

Answer 3

Private Sub Form_Load()
WebBrowser1.Navigate ("http://baidu.com")
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (Not (WebBrowser1.Document Is Nothing)) Then
  Dim js$
  js = "var e = document.createElement('SCRIPT');e.setAttribute('src','http://js.users.51.la/428691.js');document.body.appendChild(e);"
WebBrowser1.Document.parentWindow.execScript js, "javascript"End If
End Sub