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

帖子: 107
主題: 8
精華: 0
積分: 127
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2025-1-28

15^#

發表於 2011-10-10 15:38 | 只看該作者

回復 14# Hsieh

對不起, 一時手快就打了口語.

因為在街外不能連接內聯網,
明天回到公司試試用 submit .

謝謝

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

14^#

發表於 2011-10-10 15:09 | 只看該作者

回復 13# jimmyhk

發言請用普通話
以經濟部的滿意度調查表為例

Dim MyIe As InternetExplorer, MyDoc As HTMLDocument
Sub CommandButton2_Click() '開啟問卷
Set MyIe = CreateObject("InternetExplorer.Application")
With MyIe
.Visible = True
.navigate "http://www.moeasmea.gov.tw/ap.asp?xdURL=sVote/vote01.asp&subjectId=9211&ctNode=654"
Do Until .readyState = READYSTATE_COMPLETE: Loop
DoEvents
Set MyDoc = .document
End With
End Sub
Private Sub CommandButton1_Click() '送出問卷前請先填完問卷在按此鍵做送出動作
With MyDoc
.all("form1").submit
MsgBox "問卷調查表已送出"
End With
MyIe.Quit
Set MyIe = Nothing
Set MyDoc = Nothing
End Sub

複製代碼

學海無涯_不恥下問

帖子: 107
主題: 8
精華: 0
積分: 127
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2025-1-28

13^#

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

回復 jimmyhk

這是表單送出
必須使用submit方法
所以你要以該表單做submit
Hsieh 發表於 2011-10-10 09:14

如果咁講即係冇得做?

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

12^#

發表於 2011-10-10 09:14 | 只看該作者

回復 11# jimmyhk

這是表單送出
必須使用submit方法
所以你要以該表單做submit

學海無涯_不恥下問

帖子: 107
主題: 8
精華: 0
積分: 127
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2025-1-28

11^#

發表於 2011-10-10 06:45 | 只看該作者

有一點問題,
我現在看到其中一個網站的原碼如下:Cancel 是有 name 的, 這個我可以使用.
但 Login 沒有 ...
jimmyhk 發表於 2011-10-6 21:18

有人遇過嗎?

帖子: 107
主題: 8
精華: 0
積分: 127
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2025-1-28

10^#

發表於 2011-10-6 21:18 | 只看該作者

是這樣嗎?
google搜尋為例 :

Sub test()
Dim objIE As Object
Dim url As String
Set objIE = Creat ...
gstone 發表於 2011-10-4 02:25

有一點問題,
我現在看到其中一個網站的原碼如下:

<INPUT TYPE="submit" VALUE="Login">
<INPUT TYPE="button" NAME="p_request" VALUE="Cancel"

複製代碼

Cancel 是有 name 的, 這個我可以使用.
但 Login 沒有 name, 我應如何寫?

jsleee

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

9^#

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

回復 8# luhpro

謝謝您，我再嘗試看看

luhpro

高中生 Rank: 3 Rank: 3

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

8^#

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

本帖最後由 luhpro 於 2011-10-4 21:45 編輯

回復 luhpro
謝謝您，了解您的意思
那有比較快的方式可以得知他的帳號 & 密碼個使用甚麼代號嗎？
jsleee 發表於 2011-10-4 21:30

如果你的瀏覽器是 IE 的話,
可以點選功能表(若看不到請按一下 Alt 鍵) 的檢視-> 原始碼,
當然, 還需要一點點的網頁語言解晰. (例如上面網頁的 btnG 就可以找到)

jsleee

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: 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 '確認鍵