|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
215001
註冊時間: 2003-06-11 文章: 389
第 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 文章: 563 來自: 臺灣
第 2 樓
|
發表於: 星期四 八月 17, 2017 9:20 pm 文章主題: |
|
|
跟以前我的狀況很像,有沒有檢查,相容性檢視設定? _________________ 大家好,請多指教 |
|
回頂端 |
|
|
215001
註冊時間: 2003-06-11 文章: 389
第 3 樓
|
發表於: 星期五 八月 18, 2017 11:00 am 文章主題: |
|
|
謝謝 nelsonchuang
把公路監理網站,加入到 相容性檢視設定
可以了 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|