1,502
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim temp As String
Text1.Text = "http://www.xxxx.com"
WebBrowser1.Navigate Text1.Text
temp = WebBrowser1.Document.body.innerHTML
temp = Replace(temp, "false", "true")
WebBrowser1.Document.body.innerHTML = temp
End Sub