Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ISP Tcp/Ip
Message
General information
Forum:
Visual FoxPro
Category:
Internet applications
Title:
Miscellaneous
Thread ID:
00961853
Message ID:
00961889
Views:
14
>>Hi guys.
>>
>>I'm doing a method to send by email the ISP IP address. I would like to know how to retreive the IP when behind a router. Is there a way ? I need it cause sometime, my client does't have a fix Tcp/Ip and when i'm trying to connect with Pc Anywhere I must call my client to have the new one.
>>
>
oIE = Createobject('internetexplorer.application')
>oIE.Navigate("http://www.whatismyip.org")
>* Wait for page to load
>...
>? oIE.Document.Body.InnerText
>? oIE.Quit()
>
Thanks based with your code I create this:
Thisform.NewObject('_webbrowser','_webbrowser4',home()+'gallery\_webview.vcx')

With Thisform._webbrowser
	.top=0
	.left=0
	.Navigate('http://www.whatismyip.org')
	.Height = 230
	.Width = 900
	.visible = .f.
ENDWITH 

DO WHILE thisform._webbrowser.Readystate <> 3 
	INKEY(1)
ENDDO

Thisform.text1.Value = Thisform._webbrowser.Document.Body.InnerHtml
Thisform.RemoveObject("_webbrowser")
Previous
Reply
Map
View

Click here to load this message in the networking platform