inet有没有判断当前网页是否下载完毕的工能

2004-07-22 02:44:56 260 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

CST微波工作室端口设置保姆级教程：从波导端口到离散端口，手把手教你搞定S参数仿真本文提供CST微波工作室端口设置的详细教程，涵盖波导端口和离散端口的选择与配置，助力工程师精准完成S参数仿真。通过微带线滤波器案例，详解端口尺寸、阻抗设置及常见问题排查，提升仿真效率与准确性。阅读详情

inet可以下载网页HTML原码
他下载完网页后怎么做将些原码赋值给一个变量
还有，inet有没有判断当前网页是否下载完毕的工能
谢谢

我用WebBrowser取得网页源码，直接运行正常，但在编译后出错
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.sdqx.gov.cn/sdcity.php"
End Sub

Private Sub WebBrowser1_DownloadComplete()
'页面下载完毕
Dim doc, objhtml
Set doc = WebBrowser1.Document

Set objhtml = doc.body.createtextrange() <--------提示这行出错
If Not IsNull(objhtml) Then
Text1.Text = objhtml.htmltext
End If

End Sub

我用WebBrowser取得网页源码，直接运行正常，但在编译后出错

提示：实时错误“91” Object 变量或 with 块变量没有设置
可能是没有下载完所致，

Private Sub WebBrowser1_DownloadComplete()
if webbrowser.busy=false then
Dim doc, objhtml
Set doc = WebBrowser1.Document

Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text1.Text = objhtml.htmltext
End If
end if
End Sub

...全文