Vba控制網頁

reangame

想使用Vba控制網頁，查到一個按鍵的原始碼為下列：
<button onclick="javascript:checkID();">確認</button>&nbsp;&nbsp;&nbsp;
造成無法自動點選，請問大大該如何處理？

reangame

請問有大大能夠幫忙回答一下嗎？拜託拜託

VBALearner

回復 2# reangame

我不是很清楚VBA可不可以處理這個狀況...
依我寫爬蟲的經驗...可能.......用Chrome的開發人員工具去了解一下javascript的函數checkID()是甚麼內容，通常會有組成url字串的程式，按照其程式邏輯用VBA湊出參數再送POST
建議網址貼上來，好方便大家研究

Joforn

webbrowser1.Document.parentWindow.execScript "checkID();", "JavaScript"

Joforn

由checkID這個名稱猜測，這個代碼僅僅檢測了輸入的ID是否正確，猜測樓主想要的效果是自動提交表單？如果是，那麼上面的代碼可能達不到要求。

reangame

回復 3# VBALearner


    不好意思，因為是內部網路，無法提供網址，感謝您的回答。

reangame

由checkID這個名稱猜測，這個代碼僅僅檢測了輸入的ID是否正確，猜測樓主想要的效果是自動提交表單？如果是， ...
Joforn 發表於 2017-6-11 17:48

其實我只是要做一個很簡單的登入動作而已，之前沒問題，可是最近改版後就無法登入了，
程式碼寫法跟下面的一樣：

1.    1: Sub login()
   
2.    2:     Dim loginID As String
   
3.    3:     Dim loginPW As String
   
4.    4:     loginID = "myid"
   
5.    5:     loginPW = "mypw"
   
6.    6:     
   
7.    7:     Dim ie As InternetExplorer
   
8.    8:     Dim doc As HTMLDocument
   
9.    9:     Dim element As IHTMLElementCollection
   
10.   10:     Set ie = CreateObject("InternetExplorer.Application")
    
11.   11:     ie.navigate ("http://www.saveonbook.com/post/post.jsp?active=0")
    
12.   12:     ie.Visible = True
    
13.   13:     Do Until ie.readyState = READYSTATE_COMPLETE
    
14.   14:         DoEvents
    
15.   15:     Loop
    
16.   16:     Set doc = ie.document
    
17.   17:     Set element = doc.getElementsByName("LoginPA")
    
18.   18:     element.Item(0).Value = loginID
    
19.   19:     Set element = doc.getElementsByName("PasswordPA")
    
20.   20:     element.Item(0).Value = loginPW
    
21.   21:     Set element = doc.getElementsByName("img23")
    
22. 22:     element.Item(0).Click
    
23.   23: End Sub

複製代碼

錯誤點就是在程式碼點擊登入的地方第22行，因為找不到按鍵ID了，查看按鍵網頁原始碼才發現變成javascript checkID()
請問有甚麼解決方式嗎?