伊莉討論區

標題: VB6自動填寫網頁表格 [打印本頁]
作者: fung3103    時間: 2010-1-19 19:36 PM     標題: VB6自動填寫網頁表格

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


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


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


  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
複製代碼


  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
複製代碼
作者: ldistinctt    時間: 2010-1-21 19:36 PM

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

在找標籤及輸入的功能上

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

不過這樣一來我的程式可要大修特修了
作者: fung3103    時間: 2010-1-21 19:36 PM

本帖最後由 arthurliuliu 於 2010-1-22 19:36 PM 編輯

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

既然如此，那請您不要隨意至其他論壇轉載他人的文件，以免侵犯智慧財產權。
by arthurliuliu
作者: mabinogi0418    時間: 2010-3-23 19:36 PM

感謝板大分享 我會好好研究的@@
作者: asimops0258    時間: 2015-2-16 19:36 PM

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



歡迎光臨 伊莉討論區 (http://a401.file-static.com/) Powered by Discuz!