参考:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49278
例如
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.某某网站.com/某某网页.html")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim elems As object = web.Document.GetElementById("ctl00_ContentPlaceHolder1_lbCode") '采购单号
If elems IsNot Nothing Then
msgbox(elems.InnerText)
End If
此主题相关图片如下:1.png
[此贴子已经被作者于2018/11/9 21:04:33编辑过]