[發問] 執行階段錯誤 '438': 物件不支援此屬性或方法

本帖最後由 av8d 於 2014-8-18 13:54 編輯

登入用.rar (21.05 KB)

Private Sub CommandButton3_Click()
'帳密驗證
With CreateObject("InternetExplorer.Application")
.Navigate "https://cas.tycg.gov.tw/casserver/login?service=http%3A%2F%2Fe.tycg.gov.tw%2Fapp%2Fportal%2Flogin"
Do While .Busy Or .ReadyState <> 4
DoEvents
Loop
'帳號欄位
.Document.all("username").innerText = "A"
'密碼欄位
.Document.all("password").innerText = "B"
.Document.all("usernamebutton").Click
.Visible = True
'.Navigate "http://odis.tycg.gov.tw/HOME/Home_Splitter.aspx"
End With
End Sub

複製代碼

帳號成功自動丟上去，到了密碼就卡住了，懇請大大們幫忙，謝謝
我會繼續在網路上尋找解答！

樓主熱帖

av8d

大學生 Rank: 4

帖子: 710
主題: 280
精華: 0
積分: 1016
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-1-19

2^#

發表於 2014-8-18 15:08 | 顯示全部帖子

回復 2# GBKEE

原始檔.rar (2.73 KB)

TOP

av8d

大學生 Rank: 4

帖子: 710
主題: 280
精華: 0
積分: 1016
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-1-19

3^#

發表於 2014-8-18 21:35 | 顯示全部帖子

本帖最後由 av8d 於 2014-8-18 21:42 編輯

回復 4# GBKEE

請問
帳號是填在帳AAA號
密碼是填在 TEST 上這樣?
是不是因為他是用ASP寫的~所以會比較複雜?
再次感謝版主用心良苦的幫助.

Sub Ie_document()
Sub Ie()
是選擇一個即可?

TOP

av8d

大學生 Rank: 4

帖子: 710
主題: 280
精華: 0
積分: 1016
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-1-19

4^#

發表於 2014-8-19 10:53 | 顯示全部帖子

本帖最後由 av8d 於 2014-8-19 10:56 編輯

回復 6# GBKEE

非常感謝板大解開難題~我稍做修改了一下~還是感覺不是很通順~因為複製貼上的關係出現了兩個With~

Private Sub CommandButton1_Click()
'帳密驗證
With CreateObject("InternetExplorer.Application")
.Navigate "https://cas.tycg.gov.tw/casserver/login?service=http%3A%2F%2Fe.tycg.gov.tw%2Fapp%2Fportal%2Flogin"
Do While .Busy Or .ReadyState <> 4
DoEvents
Loop
.Visible = True
'帳號欄位
.Document.all("username").innerText = "***"
'密碼欄位
'.Document.all("password").innerText = "***"
With .Document.getElementsByTagName("input")
For i = 0 To .Length - 1
If .Item(i).ID = "password" And .Item(i).Name = "password" Then
'大小寫有分別
.Item(i).Value = "***"
End If
Next
End With
.Document.all("usernamebutton").Click
End With
End Sub

複製代碼

新提問
如果重複執行，會出現
執行階段錯誤'91'
沒有設定物件變數或 With 區塊變數
錯誤段落如下
.Document.all("username").innerText = "***"
我在想應該是重複登入，因此找不到帳號欄位
所以我使用了On Error Resume Next，請問版主是否可行

TOP

av8d

大學生 Rank: 4

帖子: 710
主題: 280
精華: 0
積分: 1016
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-1-19

5^#

發表於 2014-8-19 14:05 | 顯示全部帖子

本帖最後由 av8d 於 2014-8-19 14:25 編輯

回復 8# GBKEE

可能是已經登入了~但是在按一次~他會找不到輸入帳號和密碼的地方，
他會直接前往帳號密碼正確的頁面，所以他會出現找不到帳號欄位的錯誤，
因此我使用忽略On Error Resume Next解決可否？謝謝版主！

TOP

av8d