Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: ismail pp
  
 
 
 ismail pp
 To: Ken Murphy
  Where is Ken Murphy?
 Springhill
 Canada
 Ken Murphy
 Tags
Subject: RE: IP Adress
Thread ID: 112530 Message ID: 112548 # Views: 1 # Ratings: 0
Version: Visual FoxPro 9 Category: Other
Date: Thursday, November 09, 2006 3:04:27 PM         
   


Sir,
The site is blocked in here
Ismail
> > Sir
> > The code provided returns nothing.The site "whatismyip.com" seem blocked and I think it is not practical. Please provide API code or something else.
> >
> > Thankfully
> >
> > Ismail
> >
> > > > Hi Experts
> > > >
> > > > I have a IP adress retrieving program (got from download section) which worked with Dialup conections. But recently subscribed to ADSL (Modem Linksys Model WAG200G, with 4 port Router) connected to NIC is not giving the dynamic IP adress of ISP, Iam getting hardware IP only ie:
192.168.1.100. Anybody can provide code to retireve the dynamic IP adress provided by ISP?.
> > > >
> > > > Iam using RADMIN to access my clients over internet using IP adress.
> > > >
> > > > Thankfully
> > > >
> > > > Ismail

> > >
> > > If you have INet connection you could parse the string returned by WhatIsMyIP.COM and get your publick IP:
> > >
> > > LOCAL oIe AS InternetExplorer.Application
> > > LOCAL tDt
> > > 
> > > oIe = CREATEOBJECT([InternetExplorer.Application])
> > > oIe.Navigate2([whatismyip.com])
> > > tDt = DATETIME()
> > > 
> > > DO WHILE oIe.ReadyState <> 4 AND DATETIME() - tDt < 30
> > >    INKEY(0.01) 
> > > ENDDO
> > > 
> > > ** Extract public IP
> > > ALINES(laLines,oIe.Document.Body.InnerText)
> > > MESSAGEBOX([Your public IP is ]+ALLTRIM(laLines[3]))
> > > oIe = NULL
> > > 

> > >
> > >
> > > Borislav Borissov
> > >
> > >

>
> Ismail,
>
> Borislav's code works for me. Try just copying and pasting it into the command window and run it. Can you access that site from IE? Just click here: www.WhatisMyIP.com
>
> Ken
> You shall know the truth - and the truth shall set you free. (John 8:33)


ENTIRE THREAD

IP Adress Posted by ismail pp @ 11/9/2006 12:14:22 PM
RE: IP Adress Posted by Borislav Borissov @ 11/9/2006 12:35:39 PM
RE: IP Adress Posted by ismail pp @ 11/9/2006 2:13:58 PM
RE: IP Adress Posted by Borislav Borissov @ 11/9/2006 2:52:15 PM
RE: IP Adress Posted by Ken Murphy @ 11/9/2006 2:53:35 PM
RE: IP Adress Posted by ismail pp @ 11/9/2006 3:04:27 PM
RE: IP Adress Posted by Ken Murphy @ 11/9/2006 4:47:57 PM
RE: IP Adress Posted by tushar @ 11/9/2006 3:38:59 PM
RE: IP Adress Posted by ismail pp @ 11/9/2006 9:24:03 PM
RE: IP Adress Posted by Borislav Borissov @ 11/9/2006 9:38:37 PM