WAN IP Adresi Bulma

?GetPublicIpAddress()

 

********************************************************************************

Function GetPublicIpAddress()

********************************************************************************

*!* Returns public IP address

*!* Works under all conditions, routers, proxies, etc.

*!* Works in all Windows versions from 95 to Vista

*!* Downloads a file from a public HTTP server

 

    #Define ERROR_SUCCESS    0

 

    Local;

        m.lcUrl As String, ;

        m.lcFile As String, ;

        m.lcIP As String

 

*!* Generate a random Temp file name:

    m.lcFile = Addbs(Sys(2023)) + Sys(3)

 

*!* Add fake parameter to avoid web caching:

    m.lcUrl = "http://checkip.dyndns.org" + "?" + Sys(3)

 

*!* Set default value to return if API call fails:

    m.lcIP = "0.0.0.0"

 

*!* Attemp to download file:

    If apiURLDownloadToFile(0, m.lcUrl, m.lcFile, 0, 0) = ERROR_SUCCESS Then

*!* Check if file was created:

        If File(m.lcFile) Then

*!* Extract IP from file:

            m.lcIP = Substr(Filetostr(m.lcFile), 77)

            m.lcIP = Left(m.lcIP, Len(m.lcIP) - 16)

            Delete File (m.lcFile)

        Endif

    Endif

 

    Return m.lcIP

Endfunc

 

********************************************************************************

Function apiURLDownloadToFile(m.pCaller, m.szURL, m.szFileName, m.dwReserved, m.lpfnCB)

********************************************************************************

    Declare Integer URLDownloadToFile In urlmon.Dll As apiURLDownloadToFile;

        Integer pCaller, ;

        String szURL, ;

        String szFileName, ;

        Integer dwReserved, ;

        Integer lpfnCB

    Return apiURLDownloadToFile(m.pCaller, m.szURL, m.szFileName, m.dwReserved, m.lpfnCB)

Endfunc