VB6自動填寫網頁表格

fung3103

用VB添加個webbrowser控鍵進來盡量把它在窗體上畫大點
我把webbrowser的name屬性改為IE，當然也可以是你自己喜歡

1. 
   
2. Private Sub Form_Load()
   
3.     '初始化時打開該網頁
   
4.     IE.Navigate "s4.travian.cn/login.php" '自己加http://並不是宣傳, 測試用途
   
5. End Sub

複製代碼

找個2個command控鍵，分別為command1和command2控鍵，將其caption改為 「輸入」 和 「確定」;

1. 
   
2. Private Sub command1_Click()
   
3.     Dim vDoc, vTag
   
4.     Dim i As Integer
   
5.     Set vDoc = IE.Document
   
6.     For i = 0 To vDoc.All.length - 1 '檢測所有標籤
   
7.             If UCase(vDoc.All(i).tagName) = "INPUT" Then  '找到input標籤
   
8.                 Set vTag = vDoc.All(i)
   
9.                 If vTag.Type = "text" Then 'TYPE
   
10.                     vTag.Value = "123456" '這個是輸入到用戶名中得值
    
11.                 End If
    
12.                 If vTag.Type = "password" Then 'TYPE
    
13.                     vTag.Value = "123456" '這個是輸入到密碼框中的值
    
14.                 End If
    
15.                 If vTag.Name = "s1" Then
    
16.                     vTag.Click
    
17.                 End If
    
18.           End If
    
19.     Next i
    
20. End Sub

複製代碼

1. 
   
2. Private Sub command2_Click()
   
3.     Dim vDoc, vTag
   
4.     Dim i As Integer
   
5.     Set vDoc = IE.Document
   
6.     For i = 0 To vDoc.All.length - 1 '檢測所有標籤
   
7.             If UCase(vDoc.All(i).tagName) = "INPUT" Then  '找到input標籤
   
8.                 Set vTag = vDoc.All(i)
   
9.                 If vTag.Name = "s1" Then
   
10.                     vTag.Click '點擊確定鍵
    
11.                 End If
    
12.             End If
    
13.     Next i
    
14. End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

asimops0258

感謝您的分享～～
正好可以寫自動登入wifi

mabinogi0418

感謝板大分享 我會好好研究的@@

fung3103

不是不許宣傳嗎...我在別的論壇找到的

既然如此，那請您不要隨意至其他論壇轉載他人的文件，以免侵犯智慧財產權。
by arthurliuliu

ldistinctt

這和我之前使用的方法不同

在找標籤及輸入的功能上

少了不少行數，這下又學到一招了

不過這樣一來我的程式可要大修特修了