我的旧程序是由VB6创建的,它运行良好, 我正在使用Web浏览器控件加载网页,然后在字符串中获取html,最近我收到以下错误消息,当我尝试将HTML代码加载到字符串变量时,它只发生在大页面上。
我的代码如下
Dim html As String
Private Sub GetHtm_Click()
WebBrowser1.Navigate (webVar)
Do
DoEvents
Loop Until Not WebBrowser1.Busy
html = WebBrowser1.Document.documentElement.outerHTML
End Sub
答案 0 :(得分:0)
WebBrowser1.Document.documentElement.outerHTML
仅适用于DocumentComplete
个活动。
Private Sub WebBrowser1_DocumentComplete()
html = WebBrowser1.Document.documentElement.outerHTML
End Sub