[VB6]點擊網頁元素

這個很好用耶~XD"
搜尋Tag尋找Class和指定名稱
這種寫法很好用喔
還可以改成找ID或其他的
廣泛用在......

1. Public Function ClickBtn(Wb As Webbrowser, BtnClass As String, BtnName As String)
   
2. Dim vDoc, vTag
   
3. Dim i As Integer
   
4. 
   
5. Set vDoc = Wb.Document
   
6. For i = 0 To vDoc.All.Length - 1  '檢測所有標籤
   
7. Onion = UCase(vDoc.All(i).tagName)
   
8. 
   
9. If UCase(vDoc.All(i).tagName) = BtnClass Then '找到標籤INPUT
   
10. Set vTag = vDoc.All(i)
    
11. If vTag.Value = BtnName Then
    
12. vTag.Click '點擊
    
13. End If
    
14. End If
    
15. 
    
16. Next i
    
17. End Function

使用方法:

1. Call ClickBtn(w1, "INPUT", "快速啟動")

 

 

其中可以改成取得某段文字innerhtml,value等等