Gmail Extract

[Gintaras]

With HtmlDoc would be difficult or impossible, because javascript often uses 'window' object. In HtmlDoc there is no window and 'window' object, only 'document' object.

Can automate it in web browser control.

Function Dialog91

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

str controls = "3"
str ax3SHD
ax3SHD=""
if(!ShowDialog("Dialog91" &Dialog91 &controls)) ret

;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 533 313 "Dialog"
;3 ActiveX 0x54030000 0x0 0 0 532 312 "SHDocVw.WebBrowser"
;END DIALOG
;DIALOG EDITOR: "" 0x2030208 "*" "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,goto load
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1

;____________________

;load

;user data
str user="xxxxxxxxxxxxxxxxxxxx@gmail.com"
str password="xxxxxxxxxxxxxxxxxxx"

;____________________

;load gmail. If not logged in, will load login page.
str url
opt waitmsg 1
web "http://mail.google.com/mail/" 1 hDlg "" url
;out url
if(!url.beg("https://www.google.com/accounts/ServiceLogin")) ret ;;already logged in

;fill login form
;out 1
Htm el
el=htm("INPUT" "Email" "" hDlg 0 12 0x121); el.SetText(user)
el=htm("INPUT" "Passwd" "" hDlg 0 13 0x121); el.SetText(password)
el=htm("INPUT" "signIn" "" hDlg 0 14 0x121); el.Click
;out 2