VB读取网站超链接

VB读取网站超链接!

VB读取网站超链接!
2011年01月23日
　　Private Sub Command1_Click()
　　WebBrowser1.Navigate (Trim(Text1.Text))
　　End Sub
　　Private Sub Form_Load()
　　WebBrowser1.Navigate (Trim(Text1.Text))
　　End Sub
　　Private Sub Timer1_Timer()
　　On Error Resume Next
　　WebBrowser1.Silent = True
　　Frame1.Caption = "连接列表： 您浏览的网站共： => " & List1.ListCount & " 条