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 & " 条
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 & " 条
VB.NET读取网页超链接
3465

被折叠的 条评论
为什么被折叠?



