Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Basic information for a visited Website
Message
 
To
20/11/2004 09:45:12
General information
Forum:
Visual FoxPro
Category:
Web Services
Environment versions
Visual FoxPro:
VFP 6 SP5
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
00963189
Message ID:
00963232
Views:
8
This message has been marked as a message which has helped to the initial question of the thread.
Sorry I misunderstood. But I would be surprised you could write a generic enough function that would fit many websites. Most wedsites do not publish their IP addresss.
My suggestion would be to download the webpage, parse it, and retrieve the required information, rather thatn trying to navigate the page, through the internet explorer.
Soemthing like:
oIE = createobject('internetexplorer.application')
oIE.Navigate('www.tek-tips.com')
lcStr=oIe.Document.body.innertext
?lcStr
>>You could automate this site using GET and POST
>>http://www.networksolutions.com/en_US/whois/index.jhtml
>>
>Hi Mike,
>
>Thanks for your repli..
>
>But, sorry, maybe I did not make myself clear.. What I meant, was by a VFP program.. I'd like to:
>
>
>oIe                             = CREATEOBJECT("InternetExplorer.Application")
>sele table_with_many_providers
>scan
>    cwprovider                  = "www."+allt(provedor)+"."+allt(tipo)+iif(empty(pais),"","."+allt(pais))
>    oIe.Navigate(cwprovider)
>    nStartSeconds               = SECONDS()
>    Do while type("oIE.Document")="U" AND (SECONDS()-nStartSeconds < 10)
>    Enddo
>    If  type("oIE.Document")="U"
>	Loop
>    Endif
>    nStartSeconds               = SECONDS()
>    Do WHILE LOWER(oIe.Document.ReadyState) <> "complete" AND (SECONDS()-nStartSeconds < 20)
>    Enddo
>    *
>    * at this point I'd like to get (if possible) from oIe.Document object
>    * Any information (from the website visited) such as IP adress number, country, state, SMTP, etc..
>    * to update my 'table_with_many_providers'
>    *
>endscan
>
>
>Claudio
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform