Private Sub Form_Load()
WebBrowser1.Navigate "http://php.weather.sina.com.cn/search.php?city=武汉&dpc=1"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim test As String
test = WebBrowser1.Document.body.innerhtml
test = Mid(test, InStr(test, ""))
test = Mid(test, 1, InStr(test, "") + 14)
End Sub
test就是截取到的信息，你可以自行处理
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024