Question

求助VB WebBrowser获得网页指定元素并显示在程序中

Answer 1

Private Sub Form_Load()
Label1.Caption = ""
Label1.AutoSize = True '自动调整大小
WebBrowser1.Width = 0 '为了不让其显示出来，设置宽度为0
WebBrowser1.Height = 0 ''为了不让其显示出来，设置高度为0
WebBrowser1.Navigate ""
Timer1.Interval = 100 '每秒更新一次
Timer1.Enabled = True '启动定时器
End Sub

Private Sub Timer1_Timer()
ss = WebBrowser1.Document.body.innerText '得到所有文字
aa = "国家授时中心标准时间" '找出要分离的文字前面有标志性的文字
bb = InStr(1, ss, aa) '确定位置
cc = Mid(ss, bb + Len(aa) + 2, 8) '取出要的东西
Label1.Caption = "国家授时中心标准时间：" & Trim(cc) '显示出来