[VB6]點擊網頁元素
這個很好用耶~XD"
搜尋Tag尋找Class和指定名稱
這種寫法很好用喔
還可以改成找ID或其他的
廣泛用在......
使用方法:
搜尋Tag尋找Class和指定名稱
這種寫法很好用喔
還可以改成找ID或其他的
廣泛用在......
- Public Function ClickBtn(Wb As Webbrowser, BtnClass As String, BtnName As String)
- Dim vDoc, vTag
- Dim i As Integer
- Set vDoc = Wb.Document
- For i = 0 To vDoc.All.Length - 1 '檢測所有標籤
- Onion = UCase(vDoc.All(i).tagName)
- If UCase(vDoc.All(i).tagName) = BtnClass Then '找到標籤INPUT
- Set vTag = vDoc.All(i)
- If vTag.Value = BtnName Then
- vTag.Click '點擊
- End If
- End If
- Next i
- End Function
- Call ClickBtn(w1, "INPUT", "快速啟動")
其中可以改成取得某段文字innerhtml,value等等
Onion = UCase(vDoc.All(i).tagName)
回覆刪除這行是甚麼意思啊?
作者已經移除這則留言。
刪除傳回包含已轉換成大寫之指定字串的字串或字元。
刪除大大
回覆刪除Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.Length - 1
Call UCase(vDoc.All(i).tagName)
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If InStr(vTag.GetAttribute("name"), "t_AccountID") Then vTag.Value = "XXXXXXXX"
End If
Next
請問我這樣為甚麼無法把東西輸入到網頁上的TextBox呢??
之前我也寫過自動PO文的
也只要
WebBrowser1.Document.All("title").Value = Text2
這樣就能輸入了...難道是它有保護?
你確定Element ID都一樣嗎?
刪除恩恩Element ID確定都一樣
刪除這是新樂豆打帳號的TextBox...純想做自動登錄
登入的鈕也是不能Click
剛剛翻了好久...找不到解決方法
補充:免費加入會員按的到
刪除作者已經移除這則留言。
刪除作者已經移除這則留言。
回覆刪除請問要如何選擇checked的值,我在寫樂豆註冊時無法選擇性別的值
回覆刪除Dim birthMonth As HtmlElement = WebBrowser2.Document.GetElementById("birthMonth")
If birthMonth <> Nothing Then
birthMonth.SetAttribute("value", "1")
End If
我是用這個方法