 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
215001
註冊時間: 2003-06-11
文章: 393
第 1 樓
|
 發表於: 星期四 八月 17, 2017 5:35 pm 文章主題: 公路監理網站,查詢車輛狀況,在XP可以,在Win7卻沒有結果 |
 |
|
請教各位,我透過程式,在公路監理網站,自動查詢某車輛的狀況,如下面的程式碼
在XP執行正常
在Win7執行卻沒有結果,好像submit.click()沒有執行,不知道是那裡有問題
| 代碼: |
WAIT WINDOW "連線中....請稍候" NOWAIT NOCLEAR
MVD_IE = NEWOBJECT('InternetExplorer.Application')
MVD_IE.VISIBLE = .T.
MVD_IE.NAVIGATE("https://mvdvan.hinet.net/mvdvan/whpg.htm?cgi_callee=dq") && 公路監理首頁
=wait_IE(30)
MVD_IE.Document.frames.item(1).Document.frames.item(0).document.form1.cgi_dq_id.value="帳號" && Hinet ADSL 帳號
MVD_IE.Document.frames.item(1).Document.frames.item(0).document.form1.cgi_dq_pw.value="密碼" && Hinet ADSL 密碼
MVD_IE.Document.frames.item(1).Document.frames.item(0).document.form1.cgi_dq_qmode.value=1 && 查詢汽車
MVD_IE.Document.frames.item(1).Document.frames.item(0).document.form1.cgi_dq_qdata.value="車牌號碼" && 如: AB-1234
MVD_IE.Document.frames.item(1).Document.frames.item(0).document.form1.notcgi_submit.click()
=wait_IE(30)
WAIT CLEAR
MESSAGEBOX("ok")
RETURN
**********************************************************************************
FUNCTION wait_ie
LPARAMETERS xtimeout && 等待秒數
LOCAL xsec,xret
xret=.T.
xsec=INT( SECONDS() )
do while MVD_IE.busy or MVD_IE.readyState <> 4
IF ABS( INT(SECONDS())-xsec )>=xtimeout
xret=.F.
EXIT
ENDIF
enddo
RETURN xret
ENDFUNC
|
|
|
| 回頂端 |
|
 |
nelsonchuang
註冊時間: 2003-09-04
文章: 564
來自: 臺灣
第 2 樓
|
| 發表於: 星期四 八月 17, 2017 9:20 pm 文章主題: |
|
|
跟以前我的狀況很像，有沒有檢查，相容性檢視設定？
_________________
大家好,請多指教 |
|
| 回頂端 |
|
|
215001
註冊時間: 2003-06-11
文章: 393
第 3 樓
|
| 發表於: 星期五 八月 18, 2017 11:00 am 文章主題: |
|
|
謝謝 nelsonchuang
把公路監理網站,加入到 相容性檢視設定
可以了 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
