- 帖子
- 66
- 主題
- 16
- 精華
- 0
- 積分
- 99
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-8-12
- 最後登錄
- 2023-10-26
|
7#
發表於 2017-6-17 00:04
| 只看該作者
本帖最後由 reangame 於 2017-6-17 00:08 編輯
由checkID這個名稱猜測，這個代碼僅僅檢測了輸入的ID是否正確，猜測樓主想要的效果是自動提交表單？如果是， ...
Joforn 發表於 2017-6-11 17:48 
其實我只是要做一個很簡單的登入動作而已，之前沒問題，可是最近改版後就無法登入了，
程式碼寫法跟下面的一樣：- 1: Sub login()
- 2: Dim loginID As String
- 3: Dim loginPW As String
- 4: loginID = "myid"
- 5: loginPW = "mypw"
- 6:
- 7: Dim ie As InternetExplorer
- 8: Dim doc As HTMLDocument
- 9: Dim element As IHTMLElementCollection
- 10: Set ie = CreateObject("InternetExplorer.Application")
- 11: ie.navigate ("http://www.saveonbook.com/post/post.jsp?active=0")
- 12: ie.Visible = True
- 13: Do Until ie.readyState = READYSTATE_COMPLETE
- 14: DoEvents
- 15: Loop
- 16: Set doc = ie.document
- 17: Set element = doc.getElementsByName("LoginPA")
- 18: element.Item(0).Value = loginID
- 19: Set element = doc.getElementsByName("PasswordPA")
- 20: element.Item(0).Value = loginPW
- 21: Set element = doc.getElementsByName("img23")
- 22: element.Item(0).Click
- 23: End Sub
請問有甚麼解決方式嗎? |
|
