返回列表 上一主題 發帖

Vba控制網頁

reangame

帖子
66 
主題
16 
精華
0 
積分
99 
點名
0  
作業系統
Win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-12 
最後登錄
2023-10-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-6-9 15:04 | 只看該作者

Vba控制網頁

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

reangame

帖子
66 
主題
16 
精華
0 
積分
99 
點名
0  
作業系統
Win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-12 
最後登錄
2023-10-26 
2#
發表於 2017-6-10 18:52 | 只看該作者
請問有大大能夠幫忙回答一下嗎？拜託拜託
我是斯多

TOP

VBALearner

帖子
102 
主題
14 
精華
0 
積分
142 
點名
0  
作業系統
Win10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2016-7-31 
最後登錄
2020-3-21 

論壇贊助勳章
3#
發表於 2017-6-11 12:53 | 只看該作者
回復 2# reangame

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

TOP

Joforn
　暱稱: 南宮飄雪

中學生Rank: 2

帖子
109 
主題
2 
精華
0 
積分
114 
點名
0  
作業系統
Win7 Win10 
軟體版本
Office 2019 WPS 
閱讀權限
20 
性別
男 
來自
深圳 
註冊時間
2013-2-2 
最後登錄
2024-11-6 
4#
發表於 2017-6-11 17:15 | 只看該作者
webbrowser1.Document.parentWindow.execScript "checkID();", "JavaScript"
世界那麼大，可我想去哪？

TOP

Joforn
　暱稱: 南宮飄雪

中學生Rank: 2

帖子
109 
主題
2 
精華
0 
積分
114 
點名
0  
作業系統
Win7 Win10 
軟體版本
Office 2019 WPS 
閱讀權限
20 
性別
男 
來自
深圳 
註冊時間
2013-2-2 
最後登錄
2024-11-6 
5#
發表於 2017-6-11 17:48 | 只看該作者
由checkID這個名稱猜測，這個代碼僅僅檢測了輸入的ID是否正確，猜測樓主想要的效果是自動提交表單？如果是，那麼上面的代碼可能達不到要求。
世界那麼大，可我想去哪？

TOP

reangame

帖子
66 
主題
16 
精華
0 
積分
99 
點名
0  
作業系統
Win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-12 
最後登錄
2023-10-26 
6#
發表於 2017-6-16 23:58 | 只看該作者
回復 3# VBALearner


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

TOP

reangame

帖子
66 
主題
16 
精華
0 
積分
99 
點名
0  
作業系統
Win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-12 
最後登錄
2023-10-26 
7#
發表於 2017-6-17 00:04 | 只看該作者
本帖最後由 reangame 於 2017-6-17 00:08 編輯
由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()
請問有甚麼解決方式嗎?
我是斯多

TOP

        靜思自在 : 真正的愛心，是照顧好自己的這顆心。
返回列表 上一主題