Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Running list of names against www.whitepages.com
Message
General information
Forum:
Visual FoxPro
Category:
Web Services
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01175860
Message ID:
01175872
Views:
9
>The problem with www.whitepages.com is they does seem to have to API or webservice capability. Meaning the result of you search would be a webpage. You need to do you own parsing to deal with the information you get back.
>
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,
little precision,
I think it's better to replace
INKEY(5)
with
Wait window 'Parsing...' nowait
Do While oIE.ReadyState # 4 && Wait for ready state
EndDo
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst
Previous
Reply
Map
View

Click here to load this message in the networking platform