VB获取网页源码中的内容

Question

以下为路由器网页源码中的一段代码.
我想要获取其中的
              Firmwave Version =v1.00.25
              MAC Address      =00:21:29:EF:0D:99
              Router Name      =WRTU54G-TM
 获取的值分别显示在text1.text,text2.text,text3.text中。请问各位朋友用WebBrowser控件怎么实现呢。其它控件也行。谢谢各位朋友了.
              
Router Information </B></P></FONT></TD>
<TD width=8 bgColor=#000000 height=25>&nbsp;</TD>
<TD width=101 height=25>
<SCRIPT>ShowText(share.firmwarever)</SCRIPT>
Firmware Version &nbsp;:&nbsp;</TD>
<TD><B>v1.00.25, May. 25, 2010</B></TD>
<TD width=13 height=25>&nbsp;</TD>
<TD width=15 background=UI_05.gif height=25>&nbsp;</TD></TR>
<TD colSpan=3 height=25>&nbsp;</TD>
<TD width=101 height=25>
<SCRIPT>ShowText(stacontent.curtime)</SCRIPT>
Current Time &nbsp;:&nbsp;</TD>
<TD><B>Not Available </B></TD>
<TD width=13 height=25>&nbsp;</TD>
<TD width=15 background=UI_05.gif height=25>&nbsp;</TD></TR>
<TR>
<TD width=156 bgColor=#e7e7e7 height=25>&nbsp;</TD>
<TD colSpan=3 height=25>&nbsp;</TD>
<TD width=101 height=25>
<SCRIPT>ShowText(share.macaddr)</SCRIPT>
MAC Address &nbsp;:&nbsp;</TD>
<TD><B>00:21:29:EF:0D:99</B></TD>
<TD width=13 height=25>&nbsp;</TD>
<TD width=15 background=UI_05.gif height=25>&nbsp;</TD></TR>
<TR>
<TD width=156 bgColor=#e7e7e7 height=25>&nbsp;</TD>
<TD width=8 background=UI_04.gif height=25>&nbsp;</TD>
<TD colSpan=3 height=25>&nbsp;</TD>
<TD width=101 height=25>
<SCRIPT>ShowText(share.routename)</SCRIPT>
Router Name &nbsp;:&nbsp;</TD>
<TD><B>WRTU54G-TM</B></TD>
<TD width=101 height=25>
<SCRIPT>ShowText(share.hostname)</SCRIPT>
IP Address &nbsp;:&nbsp;</FONT></TD>
<TD><FONT style="FONT-SIZE: 8pt"><B>0.0.0.0</B></FONT></TD>
<TD width=13 height=25>&nbsp;</TD>
<TD width=15 background=UI_05.gif height=25>&nbsp;</TD></TR>
<TR>
<TD width=156 bgColor=#e7e7e7 height=25>&nbsp;</TD>
<TD width=8 height=25><IMG height=30 src="UI_04.gif" width=8 border=0></TD>
<TD bgColor=#ffffff colSpan=3 height=25>&nbsp;</TD>
<TD width=101 bgColor=#ffffff height=25><FONT style="FONT-SIZE: 8pt">
<SCRIPT>ShowText(share.submask)</SCRIPT>
Subnet Mask &nbsp;:&nbsp;</FONT></TD>
<TD width=296 bgColor=#ffffff height=25><FONT style="FONT-SIZE: 8pt"><B>0.0.0.0</B></FONT></TD>
<TD width=13 bgColor=#ffffff height=25>&nbsp;</TD>
<TD width=15 bgColor=#ffffff height=25><IMG height=30 src="UI_05.gif" width=15 border=0></TD></TR>
<TR>
<TD width=101 bgColor=#ffffff height=25><FONT style="FONT-SIZE: 8pt">
<SCRIPT>ShowText(share.defgateway)</SCRIPT>
Default Gateway &nbsp;:&nbsp;</FONT></TD>
<TD width=296 bgColor=#ffffff height=25><FONT style="FONT-SIZE: 8pt"><B>0.0.0.0</B></FONT></TD>
<TD width=13 bgColor=#ffffff height=25>&nbsp;</TD>
<TD width=15 bgColor=#ffffff height=25><IMG height=30 src="UI_05.gif" width=15 border=0></TD></TR>
<TR>
<TD width=156 bgColor=#e7e7e7 height=25>&nbsp;</TD>
<TD><FONT style="FONT-SIZE: 8pt">
<SCRIPT>ShowText(share.dns)</SCRIPT>
DNS 1&nbsp;:&nbsp;</FONT></TD>
<TD><FONT style="FONT-SIZE: 8pt"><B></B></FONT></TD>
<TD width=13 height=25>&nbsp;</TD>
<TD width=15 background=UI_05.gif height=25>&nbsp;</TD></TR>
<TR>
<TD width=156 bgColor=#e7e7e7 height=25>&nbsp;</TD>
<SCRIPT>ShowText(share.dns)</SCRIPT>
&nbsp;</TD>
<TD width=13 height=25>&nbsp;</TD>
<TD width=15 background=UI_05.gif height=25>&nbsp;</TD></TR>
<TD width=15 background=UI_05.gif>&nbsp;</TD></TR></TBODY></TABLE></TD>
<TD vAlign=top width=176 bgColor=#6666cc>
<TABLE cellSpacing=0 cellPadding=0 width=176 border=0>
<TBODY>
<TR>
<TD width=11 bgColor=#6666cc height=25>&nbsp;</TD>
<TD width=156 bgColor=#6666cc height=25><FONT color=#ffffff><SPAN><BR>
<SCRIPT>ShowText(hstatrouter2.right1)</SCRIPT>
<B>Firmware Version. </B>This is the Router's current firmware. <BR><BR>
<SCRIPT>ShowText(hstatrouter2.right2)</SCRIPT>
<B>Current Time. </B>This shows the time, as you set on the Setup Tab. <BR><BR>
<SCRIPT>ShowText(hstatrouter2.right3)</SCRIPT>
<B>MAC Address. </B>This is the Router's MAC Address, as seen by your ISP. <BR><BR>
<SCRIPT>ShowText(hstatrouter2.right4)</SCRIPT>
<B>Router Name. </B>This is the specific name for the Router, which you set on the Setup Tab. <BR><B><A href="help/Status-Help.htm" target=_blank>
<SCRIPT>ShowText(share.more)</SCRIPT>
<SCRIPT>document.write("<INPUT onclick=window.location.replace('Router-Status.htm') type=button name=refresh_button value=\"" + sbutton.refresh + "\">");</SCRIPT>
<INPUT onclick="window.location.replace('Router-Status.htm')" type=button value=Refresh name=refresh_button> &nbsp;&nbsp; </TD>
<TD width=15 bgColor=#000000 height=33>&nbsp;</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></FORM></DIV></BODY></HTML>

Answer 1

正则表达式、Instr函数都可以。

Answer 2

v[\d\.]+
[\dA-Z]{2}:[\dA-Z]{2}:[\dA-Z]{2}:[\dA-Z]{2}:[\dA-Z]{2}:[\dA-Z]{2}
Router Name[^>]*?</TD>\r\n<TD><B>(.*?)</B>
以上是3个值的正则表达式，拿去用吧

Answer 3

 To sysdzw谢谢各位的回答。我只是个菜鸟啊``看不懂是什么意思。。能否给出代码呢。。 再次谢谢了

Answer 4

'此代码由“正则测试工具  v1.1.35”自动生成，请直接调用TestReg过程
Private Sub TestReg()
    Dim strData As String
    Dim reg As Object
    Dim matchs As Object, match As Object    strData = "<SCRIPT>ShowText(share.firmwarever)</SCRIPT>"  &  vbCrLf  & _
              "Firmware Version &nbsp;:&nbsp;</TD>"  &  vbCrLf  & _
              "<TD><B>v1.00.25, May. 25, 2010</B></TD>"  &  vbCrLf  & _
              "<TD width=13 height=25>&nbsp;</TD><TD width=101 height=25>"  &  vbCrLf  & _
              "<SCRIPT>ShowText(share.macaddr)</SCRIPT>"  &  vbCrLf  & _
              "MAC Address &nbsp;:&nbsp;</TD>"  &  vbCrLf  & _
              "<TD><B>00:21:29:EF:0D:99</B></TD>"  &  vbCrLf  & _
              "<TD width=13 height=25>&nbsp;</TD>"  &  vbCrLf  & _
              "<TD width=15 background=UI_05.gif height=25>&nbsp;</TD></TR>"  &  vbCrLf  & _
              "<TR>"  &  vbCrLf  & _
              "<TD width=156 bgColor=#e7e7e7 height=25>&nbsp;</TD>"  &  vbCrLf  & _
              "<TD width=8 background=UI_04.gif height=25>&nbsp;</TD>"  &  vbCrLf  & _
              "<TD colSpan=3 height=25>&nbsp;</TD>"  &  vbCrLf  & _
              "<TD width=101 height=25>"  &  vbCrLf  & _
              "<SCRIPT>ShowText(share.routename)</SCRIPT>"  &  vbCrLf  & _
              "Router Name &nbsp;:&nbsp;</TD>"  &  vbCrLf  & _
              "<TD><B>WRTU54G-TM</B></TD>"  &  vbCrLf  & _
              "<TD width=101 height=25>"  &  vbCrLf  & _
              "<SCRIPT>ShowText(share.hostname)</SCRIPT>"    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.MultiLine = True    reg.Pattern = "v[\d\.]+"
    Set matchs = reg.Execute(strData)
Debug.Print matchs(0).Value    reg.Pattern = "[\dA-Z]{2}:[\dA-Z]{2}:[\dA-Z]{2}:[\dA-Z]{2}:[\dA-Z]{2}:[\dA-Z]{2}"
    Set matchs = reg.Execute(strData)
Debug.Print matchs(0).Value    reg.Pattern = "Router Name[^>]*?</TD>\r\n<TD><B>(.*?)</B>"
    Set matchs = reg.Execute(strData)
Debug.Print matchs(0).SubMatches(0)
End Sub

Answer 5

TO sysdzw
  谢谢你的帮助。问题解决了`。。你能提供那个“正则测试工具“的源代码给我吗？？？
   
   我想深入的了解一下。谢谢了。

Answer 6

可以的啊，你调用了没有啊？
Private Sub Form_Load()
TestReg
End Sub