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

[kwsxz]

Option Explicit
Dim c As Integer

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.126.com"
End Sub

Private 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
这样就可以呢

[getemail]

自己试试不就知道了？

[kwsxz]

[Quote=引用 1 楼 getemail 的回复:]
自己试试不就知道了？
[/Quote]
字打错了，替换代码不能替换，替换字符却能替换，不知道为什么

[kwsxz]

==================================================================================
Option Explicit
Dim c As Integer

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.126.com"
End Sub

Private 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
=====================================================================================
这样替换了为什么没有效果啊

[geoh]

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

试试吧

[kwsxz]

[Quote=引用 4 楼 geoh 的回复:]
建议使用appendChild来添加一个<script>

试试吧
[/Quote]
不懂。。。

[geoh]

Private Sub Form_Load()
WebBrowser1.Navigate ("http://baidu.com")
End Sub

Private 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