IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate(URL) Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
end = 5
repeat ifb POS(Search, IE.Document.Body.InnerText) > 0 THEN IE.navigate("https://mail.google.com/mail/h/") Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
IESETDATA( IE, GmailID, "Email" ) IESETDATA( IE, GmailPASS, "Passwd" ) IESetData( IE,True,"signIn") Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
IELINK(IE,"メールを作成") Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4) Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
IESetData(IE,True,"nvp_bu_send","送信",2) Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
end = -5 EXITEXIT
else Count2 = Count for i = 1 to Count if GETKEYSTATE(VK_END) then exit Count2 = Count2 - 1 sleep(1) Fukidasi("リロード待機中 " + Count2 + "<#CR>ENDキーで終了", 50, 50 ) next IE.document.location.reload(true) Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4) endif until (end < 1)
