22.12.2016, 21:43
|
|
Познающий
Регистрация: 15.12.2016
Сообщений: 46
С нами:
4953206
Репутация:
3
|
|
Можно, вот подсказка
Код:
Dim o
Dim res
Set o = CreateObject("Microsoft.XMLHTTP")
o.open "GET", "http://icanhazip.com", False
o.send
res = o.responseText
Msgbox res
|
|
|