AutoIT 利用Obj组件获取外网IP与外网地址。

$HTTP = ObjCreate("microsoft.xmlhttp")
$HTTP.Open("get", "", False)
$HTTP.Send("")
$return = $HTTP.responsetext;BinaryToString($oHTTP.responseBody)
$IP = StringRegExp($return, '((2[0-4]\d|25[0-5]|[01]?\d\d?)\.){3}(2[0-4]\d|25[0-5]|[01]?\d\d?)',2)
$array = StringRegExp($return, '([^<]+)', 1)
$HTTP.Close
MsgBox (0,"!!","您的IP地址为 : " & $IP[0] & @CRLF & "您的地理位置是: " & $array[0])