1.VB如何获取webbrowser源码指定文本
2.VBä¸çWebBrowser1
VB如何获取webbrowser源码指定文本
1. 第一个红框前的网页网页网站请假源码文本:WebBrowser1.Document.getElementById("list_uin").getElementsByTagName("label")(0).innerText
2. 第二个红框的文本:WebBrowser1.Document.getElementById("list_uin").getElementsByTagName("label")(1).innerText
VBä¸çWebBrowser1
è¯è¯è¿ä¸ªåæ³ï¼
建ç«ä¸ä¸ªwb(0),Visible=False
(WBæ¯WebBrowseræ§ä»¶æ°ç»ââåªè¦è®¾ç½®å®çIndex=0è¿æVisible=Falseå³å¯ï¼
代ç æ¯ï¼
Sub InitWB(Optional Update As Boolean=False)
If Update Then Unload(wb(1))
Load wb(1)
wb(1).visible = true
wb(1).left = 0
wb(1).top = 0
wb(1).width =
wb(1).height = 'åå§åå®ç尺寸åæ ä½ èªå·±å
'å¦æè¿æå ¶ä»å±æ§è®¾ç½®è¿éå ä¸
End Sub
Private Sub Form_Load()
InitWB
End Sub
å¦æè¦æ´æ°ï¼è°ç¨è¯å¥Call InitWB(true)
è¿æ ·åºè¯¥æ¯å¯ä»¥çã
ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼
建ç«ä¸ä¸ªWebrowser1,å½å为wbï¼è®¾ç½®ä»çå±æ§index=0
ç¶åç¨ä¸é¢ä»£ç