参考: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
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:1.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-11/20181192141275689.png)
[此贴子已经被作者于2018/11/9 21:04:33编辑过]