Fixed _getIP()

[RBox]

The _getIP() function in the Inet.au3 file in the Include folder uses an out-of-date site (whatsmyip.com) that's down. I updated it to work with cmyip.com.

Here goes:

func _getIP()
    Local $ip
    If InetGet("http://www.cmyip.com", @TempDir & "\~ip.tmp") Then
        $ip = FileRead(@TempDir & "\~ip.tmp", FileGetSize(@TempDir & "\~ip.tmp"))
        FileDelete(@TempDir & "\~ip.tmp")
        $ip = StringTrimLeft($ip, 36)
        $ip = StringLeft ($ip, StringInStr($ip, "   - CMyIP.com</title>"))
        Return $ip
    Else
        SetError(1)
        Return -1
    Endif
EndIf
Endfunc

Comments?

[w0uter]

http://www.autoitscript.com/forum/index.ph...9&hl=_GetIp

[Cyber]

however good function

[The Kandie Man]

I don't understand the over complicated _GetIP that comes with Autoit. Why don't we just use something like this?:

#include <INet.au3>
msgbox(0,"",GetWAN())
Func GetWAN()
    Return _INetGetSource("http://filezilla.sourceforge.net/misc/ip.php")
EndFunc