.Net 知識家

引用元件 MICROSOFT Internet Controls
拉一個WebBrowser1 一個Command1
Option Explicit
Private Sub Form_Load()

WebBrowser1.Navigate "http://tw.yahoo.com"
End Sub

Private Sub Command1_Click()
Dim vTag, browser

Dim IEList As New ShellWindows
 
Dim vDoc, i

For Each browser In IEList
Set vTag = WebBrowser1.Document.All
For i = 0 To vTag.length - 1
If UCase(vTag.Item(i).tagName) = "A" Then
vDoc = vTag.Item(i).href
If InStr(vDoc, "http://www.wretch.cc/video/") Then
vTag.Item(i).Click
 
End If
End If
Next
Next
End Sub


就分兩部分
第1 找出網址
第2 點擊目標網址
這比用模擬按鍵的方法好
因為模擬按鍵必需要一直停在目錄視窗
使用click網址 你可以把該視窗縮小
做其他的事情 不用呆呆的看他一直點擊
 

---

如有錯誤 歡迎指正