VB6自動填寫網頁表格

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

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

複製代碼

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

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

複製代碼

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

複製代碼