Following is Visual Foxpro code to get internet IP.
Anyone can help to translate it to FWH plz :-
loExplorer = CreateObject("InternetExplorer.Application")
loExplorer.Navigate2("www.whatismyip.com")
DO WHILE loExplorer.readystate <> 4
ENDDO
loDoc = loExplorer.Document
cIp = UPPER(loDoc.Body.Innertext)
FUNCTION MAIN()
LOCAL oExplorer := CREATEOBJECT( "InternetExplorer.Application" )
oExplorer:Navigate2( "www.whatismyip.com" )
WHILE oExplorer:ReadyState <> 4
HB_IDLESLEEP( 1 )
ENDDO
? UPPER( oExplorer:Document:Body:InnerText )
oExplorer:Quit()
INKEY( 0 )
RETURN NILThanks. Can get Harbour version ?
FUNCTION MAIN()
LOCAL oExplorer := TOleAuto():New( "InternetExplorer.Application" )
oExplorer:Navigate2( "www.whatismyip.com" )
WHILE oExplorer:ReadyState <> 4
HB_IDLESLEEP( 1 )
ENDDO
? UPPER( oExplorer:Document:Body:InnerText )
oExplorer:Quit()
INKEY( 0 )
RETURN NILwhere can I download hbole.lib ?
Sent to your private email.
EMG
Thanks, got it.
But after link got this error when running BUILDH.BAT :
Error: Unresolved external '_hb_vmMessage' referenced from HBOLE.LIB|ole2
Sorry, it seems that your Harbour version is too old and I have no way to build a hbole.lib compatible with it.
EMG