返回列表 上一主題 發帖

遇到不是IE的原件，該如何自動登入?

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-9-25 13:31 | 只看該作者

遇到不是IE的原件，該如何自動登入?

網頁元素
本帖最後由 GBKEE 於 2016-4-26 10:45 編輯

<input name="account" id="account" type="text" size="18"/>
<input name="passwd" id="passwd" onkeypress="dologin(event)" type="password"/>
前面兩個
一個是帳號欄位account
就會寫成 .Document.all("").Value = "AAA"
一個是密碼欄位passwd
就會寫成 .Document.all("").Value = "AAA"
如果按鈕卻出現以下原件，似乎不是IE系列的
<input onclick="checkInput('submit');" type="button" value="登入"/>
該如何填寫裡面的名稱? .Document.all("").Click

正常IE系列的會是這樣
<input name="butLogin" id="butLogin" language="javascript" onclick="if (typeof(Page_ClientValidate) == 'function') Page_ClientValidate(); " type="submit" value="登入"/>
就會寫成 .Document.all("butLogin").Click
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2014-9-27 19:24 | 只看該作者
回復 1# av8d
  1. With .Document
  2.             Set A = .getElementsByTagName("input")
  3.             '<input name="account" id="account" type="text" size="18"/>
  4.             'name="account" <=通常都會一樣=> id="account"
  5.             A("account").Value = "AAA"
  6.             '<input name="passwd" id="passwd" onkeypress="dologin(event)" type="password"/>
  7.             'name="passwd" <=通常都會一樣=> id="passwd"
  8.             A("passwd").Value = "AAA"
  9.             '<input onclick="checkInput('submit');" type="button" value="登入"/>
  10.             '沒有 name ,也沒有id 但有type="button",value="登入"
  11.             Debug.Print A.Length - 1
  12.             For i = 0 To A.Length - 1
  13.                Debug.Print A(i).Type, A(i).Value
  14.                 If A(i).Type = "button" And A(i).Value = "登入" Then
  15.                     A(i).Click
  16.                     Exit For
  17.                 End If
  18.             Next            
  19.         End With
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
3#
發表於 2014-10-8 08:57 | 只看該作者
回復 2# GBKEE


input name 使用
With CreateObject("InternetExplorer.Application")
        .Navigate ""
        .Visible = True

        Do While .Busy Or .ReadyState <> 4
            DoEvents
        Loop
  .Document.all ("").Value = ""

select name則使用?
input type則使用?

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2014-10-8 09:43 | 只看該作者
回復 3# av8d
http://forum.twbts.com/thread-12601-1-1.html
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
5#
發表於 2014-10-9 00:00 | 只看該作者
回復 4# GBKEE

網址：http://www.otc.org.tw/web/stock/ ... o_analysis/pera.php   

    .Document.all("rdo_search_site").Click
    .Document.all("input_search_stk").Value = "1"

以上兩個分開做 -> 有效果
和在一起做則第一個無效果
求解，謝謝！

備註：
.Document.all("rdo_search_site").Click
以上這段是右上方選取全站搜尋的按鈕按下

.Document.all("input_search_stk").Value = "1"
以上這段是右上方在個股查詢右方輸入1

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2014-10-9 06:17 | 只看該作者
本帖最後由 GBKEE 於 2014-10-9 06:28 編輯

回復 5# av8d
  1. Option Explicit
  2. Sub Ex_網頁元素()
  3.     Dim i As Integer, E As Object
  4.     With CreateObject("InternetExplorer.Application")
  5.         .Visible = True
  6.         .Navigate "HTTp://www.otc.org.tw/web/stock/aftertrading/peratio_analysis/pera.php"
  7.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  8.          
  9.         With .Document
  10.           '*** 這段程式碼可查看這網頁的元素內容
  11.           '  On Error Resume Next
  12.           '  For Each E In .all
  13.           '      i = i + 1
  14.           '      Cells(i, "a") = E.tagname
  15.           '      Cells(i, "b") = E.ID
  16.           '      Cells(i, "c") = E.Name
  17.           '      Cells(i, "d") = E.Value
  18.           '      Cells(i, "e") = E.innertext
  19.           '      Cells(i, "f") = E.Type
  20.           '      Cells(i, "g") = E.href
  21.           '  Next
  22.           '****************************************
  23.             '*** 全站搜尋
  24.             .all("rdo_search_site").Click    '全站搜尋選項.Click,後相對應的text框會顯示
  25.             .all("input_search_site").Value = "3126"
  26.             Stop
  27.             '*** 個股查詢
  28.             .all("rdo_search_stk").Click
  29.             .all("input_search_stk").Value = "1256"
  30.             
  31.             '按下 搜尋鍵
  32.             .all("header_search_btn").Click
  33.         End With
  34.     '    .Quit        '關閉網頁
  35.     End With
  36. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題