2024-07-28 01:14:38 +03:00
|
|
|
Dim o
|
|
|
|
|
Set o = CreateObject("MSXML2.XMLHTTP")
|
|
|
|
|
o.open "GET", "https://2ip.io", False
|
2024-08-01 19:28:37 +03:00
|
|
|
o.SetRequestHeader "User-Agent", "curl/8.8.0"
|
2024-07-28 01:14:38 +03:00
|
|
|
o.send
|
2024-08-02 21:55:56 +03:00
|
|
|
|
|
|
|
|
ip=Trim(o.responseText)
|
|
|
|
|
echo ip
|
|
|
|
|
|
|
|
|
|
if Len(ip)=0 then echo vbNewLine
|
