VFP 愛用者社區

[ufochen]

myword = Createobject("InternetExplorer.Application")
myword.Navigate("http://mail.google.com/mail/?shva=1#inbox")
myword.visible = .t.
以上程序會開啟ie,並停留於gmail登入畫面
請問有辦法讓程式自動填寫帳號,密碼,及按下登入鍵嗎?

[小賴]

oIE = CREATEOBJECT("InternetExplorer.Application")
oIE.visible = .T.
oIE.Navigate("http://mail.google.com/mail/?shva=1#inbox")
DO WHILE oIE.ReadyState <> 4 && (! oIE.Busy)
DoEvents
ENDDO
oDo = oIE.Document
oName = oDo.getElementById("Email")
oName.value = "AAAA" && 帳號
oPass = oDo.getElementById("Passwd")
oPass.value = "1234" && 密碼
oSubmit = oDo.getElementsByTagName("Input")
oSubmit.Item(13).Click && 登入

[Patrick Wu]

後學的作法如下 供 先進參考 :

oIE = CREATEOBJECT('internetexplorer.application')
oIE.NAVIGATE('http://www.cilink.com.tw/')
oIE.VISIBLE=.F. &&&& 帳號 密碼 的畫面 <<< 不須 >>>顯示
DO WHILE oIE.BUSY OR oIE.READYSTATE <> 4
ENDDO

oIE.DOCUMENT.FORMS.form1.userid.VALUE = "3417845"
oIE.DOCUMENT.FORMS.form1.userpwd.VALUE = "e251488"

oIE.DOCUMENT.FORMS.form1.submit.CLICK

[ufochen]

謝謝指導!!
經測試:
2樓前輩的方法可以成功登入指定信箱
但登入後使用者如果沒有先登出,而直接關閉ie視窗,
再次執行2樓前輩的程式碼,則會出現錯誤:oNEME is not an object.
但仍然可登入指定的gmail信箱,只是會有錯誤訊息而已!!



3樓前輩的方法會出現錯誤
以下3行列會出現錯誤: OLE error code 0x80020006:UnKnown name
oIE.DOCUMENT.FORMS.form1.userid.VALUE = "3417845"
oIE.DOCUMENT.FORMS.form1.userpwd.VALUE = "e251488"
oIE.DOCUMENT.FORMS.form1.submit.CLICK

[Patrick Wu]

給 ufochen 先進的是範列 裡面的內容要看自我的須求
oIE = CREATEOBJECT('internetexplorer.application')
oIE.NAVIGATE('http://postserv.post.gov.tw/webpost/CSController?cmd=POS4001_1&_MENU_ID=189&_SYS_ID=D&_ACTIVE_ID=190')
oIE.VISIBLE=.T.

DO WHILE oIE.BUSY OR oIE.READYSTATE <> 4
ENDDO

oIE.DOCUMENT.FORMS.MainForm.MAILNO1.VALUE = "96373510004610402418"
oIE.DOCUMENT.FORMS.MainForm.cmd.value="POS4001_2"
oIE.DOCUMENT.FORMS.document.MainForm.submit()

這是後學昨天寫的 掛號信 自動查詢系統 給 ufochen 先進參考

[ufochen]

[ufochen]

ieMonitor = Createobject("InternetExplorer.Application")
ieMonitor.Navigate("http://220.134.1.202")
ieMonitor.Visible = .T.&& 至此...IE 畫面出現
*WAIT "" WINDOW TIMEOUT 0.5
Do While ieMonitor.BUSY Or ieMonitor.READYSTATE <> 4
DoEvents
Enddo
ieMonitor.Document.getElementById("username").Value= "admin"
ieMonitor.Document.getElementById("password").Value= "12345678"

上述代碼可以正確開啟IE並自動填入帳號與密碼,但是當我按下登入鍵時,卻提示"帳號不得空白",經測試後發現帳號與密碼的輸入框雖然有填入了,但系統卻視為空白的,一定要手動填入才行,我把分別把帳號與密碼各刪去一個字再補上,就可以登入了,請教各位先進,有辦法自動登入嗎?
另一個問題是,如果網址連不上會出現錯誤訊息!如何防止?

[garfield]

現在的瀏覽器基於安全性原則已不能用 getElementById("XXX").Value 的方式來自動填值到網頁裡.

[ufochen]

[garfield]

剛才想到其實還有其它方式
oWS = CreateObject("WScript.Shell")
oPaint = oWS.Exec("C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe")
*暫時沒想到如何填入網址, 先手動輸入網址 http://220.134.1.201:100 , 不然改用 Createobject("InternetExplorer.Application")可能也可以吧
inkey(0)
? oWS.AppActivate(oPaint.ProcessID),oWS.SendKeys("admin"),oWS.SendKeys( "{TAB}" ),inkey(0.2),oWS.SendKeys("1234"),oWS.SendKeys( "{Enter}" )

[Patrick Wu]

給 Ufochen 先進參考

LOCAL M->REP_TIMES
THISFORM.VISIBLE = .F.
_SCREEN.WindowState = 1
oWS = Createobject("Wscript.Shell")
oIE = CREATEOBJECT( "internetexplorer.application" )

oIE.TOP = 0
oIE.LEFT = 0
oIE.Visible = .T.

oIE.NAVIGATE( "http://postserv.post.gov.tw/pstmail/main_mail.html" )

DO WHILE oIE.BUSY OR oIE.READYSTATE <> 4
ENDDO

INKEY(05)

ieMonitor.Document.getElementById("username").Value= "admin"
ieMonitor.Document.getElementById("password").Value= "12345678"
改用以下方是輸入 應該 OK

STORE 1 TO M->REP_TIMES
DO WHILE M->REP_TIMES <= LEN(M->RGT_C_A + M->RGT_CD2)
oWS.SendKeys(SUBSTR(M->RGT_C_A + M->RGT_CD2 , M->REP_TIMES , 01))
INKEY(0.1)
STORE M->REP_TIMES + 1 TO M->REP_TIMES
ENDDO

重點應該是在 INKEY(0.1) 再填入下一個字

[Patrick Wu]

給 Ufochen 先進參考 因 帳 & 密 不符 請自行套用

ieMonitor = Createobject("InternetExplorer.Application")
ieMonitor.Navigate("http://220.134.1.201:100")
ieMonitor.Visible = .T.&& 至此...IE 畫面出現
Do While ieMonitor.BUSY Or ieMonitor.READYSTATE <> 4
DoEvents

STORE "admin" TO M->A
STORE "12345678" TO M->B

INKEY(05)

STORE 1 TO M->REP_TIMES
DO WHILE M->REP_TIMES <= LEN(M->A)
ieMonitor.Document.getElementById("username").Value = ieMonitor.Document.getElementById("username").Value + SUBSTR(M->A , M->REP_TIMES , 01)
INKEY(0.5)
STORE M->REP_TIMES + 1 TO M->REP_TIMES
ENDDO

STORE 1 TO M->REP_TIMES
DO WHILE M->REP_TIMES <= LEN(M->B)
ieMonitor.Document.getElementById("password").Value = ieMonitor.Document.getElementById("password").Value + SUBSTR(M->A , M->REP_TIMES , 01)
INKEY(0.5)
STORE M->REP_TIMES + 1 TO M->REP_TIMES
ENDDO

[ufochen]

[Patrick Wu]

用
oWS = Createobject("Wscript.Shell")
.
.

oWS.SendKeys("{TAB}") 幾次(請自己算一下) 跳到 getElementById("username")
.

STORE 1 TO M->REP_TIMES
DO WHILE M->REP_TIMES <= LEN(M->A)
oWS.SendKeys(SUBSTR(M->A , M->REP_TIMES , 01))
INKEY(0.1)
STORE M->REP_TIMES + 1 TO M->REP_TIMES
ENDDO

試試