10 lines
202 B
Plaintext
10 lines
202 B
Plaintext
Dim o
|
|
Set o = CreateObject("MSXML2.XMLHTTP")
|
|
o.open "GET", "https://2ip.io", False
|
|
o.SetRequestHeader "User-Agent", "curl/8.8.0"
|
|
o.send
|
|
|
|
ip=Trim(o.responseText)
|
|
echo ip
|
|
|
|
if Len(ip)=0 then echo vbNewLine |