[發問] 透過 Sendkeys 語法開啟有帳號密碼的網頁問題

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 1
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

2^#

發表於 2011-9-24 08:44 | 只看該作者

都沒有人回應？
希望有人可以分享 Sendkeys 開啟有帳號密碼的網頁的例子....
並分享訣竅....
謝謝

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 1
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

3^#

發表於 2011-10-3 21:51 | 只看該作者

還是這個功能有其他的替代方式或更好的方法？

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

4^#

發表於 2011-10-3 22:20 | 只看該作者

請教先進：
1. 不同的網頁帳號密碼所使用的代號都不一樣，經常不得其門而入，不知道有無固定的模式可以取得該資訊，
否則都不知道要將帳號/密碼的值 Sendkeys 給甚麼參數......
jsleee 發表於 2011-9-21 22:15

這點無解,
網頁要怎麼設計與參數名稱要怎麼定是隨人喜好的,
所以只有遷就網頁的內容來定了.

至於第2點我不會.

gstone

帖子: 15
主題: 1
精華: 0
積分: 60
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-9-22
最後登錄: 2016-11-8

5^#

發表於 2011-10-4 02:25 | 只看該作者

是這樣嗎?
google搜尋為例 :

Sub test()
Dim objIE As Object
Dim url As String
Set objIE = CreateObject("InternetExplorer.Application")
url = "http://www.google.com.tw/webhp?hl=zh-TW" '網址
objIE.Visible = True
objIE.Navigate url

Do While objIE.Busy = True '待網頁載入完成
DoEvents
Loop

objIE.Document.all("q").Value = "test" '欲輸入文字方塊的值。
objIE.Document.all("btnG").Click '確認鍵
End Sub

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 1
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

6^#

發表於 2011-10-4 21:30 | 只看該作者

回復 4# luhpro

謝謝您，了解您的意思
那有比較快的方式可以得知他的帳號 & 密碼個使用甚麼代號嗎？

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 1
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

7^#

發表於 2011-10-4 21:36 | 只看該作者

回復 5# gstone

謝謝您....
很接近我想要的東西....
請教您程式碼中的意思：
1. 請問 DoEvents 是甚麼意思？
2. Document.all("q") 是代表甚麼？
3. Document.all("btnG") 是代表按鈕嗎？如何得知他的代號？
請協助抽空回覆，謝謝您.....

Do While objIE.Busy = True '待網頁載入完成
DoEvents
Loop

objIE.Document.all("q").Value = "test" '欲輸入文字方塊的值。
objIE.Document.all("btnG").Click '確認鍵