DECLARE INTEGER ShellExecute IN shell32.dll ; > INTEGER hndWin, ; > STRING cAction, ; > STRING cFileName, ; > STRING cParams, ; > STRING cDir, ; > INTEGER nShowWin >cAction ="open" > >oIE = createobject('internetexplorer.application') >oIE.Navigate('http://www.whitepages.com/9901/log_feature/adv_search_w_email/search/FindPerson?firstname_begins_with=1&firstname=Mike&name=Gagnon&housenumber=&street=&city_zip=H9R+3K8&state_id=QC&default_listing=phone&listing=mixed') >INKEY(5) >lcStr=oIe.Document.body.innerHTML >lcFile = SYS(2023)+SYS(2015)+'.htm' >STRTOFILE(lcStr,lcFile) >=ShellExecute(0,cAction,lcFile,"","",1)Hi Mike,
INKEY(5)with
Wait window 'Parsing...' nowait Do While oIE.ReadyState # 4 && Wait for ready state EndDo