vb.NET webbrowser 修改网页源码

发布网友发布时间：2022-05-24 12:18

共1个回答

热心网友时间：2023-10-13 00:56

Dim c
Private Sub Form_Load()
URL = "http://zhidao.baidu.com/question/123100932.html"
c = 0
WebBrowser1.Navigate URL
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If c = 1 Then Exit Sub '这个是为了防止这个过程无限执行下去
c = c + 1
tmp = WebBrowser1.Document.body.innerhtml
tmp = Replace(tmp, "88753967", "好玩吗？")
WebBrowser1.Document.body.innerhtml = tmp
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com