[Сеть, интернет] Получение ответа от сервера

#include <Encoding.au3>
$inet= InetRead("https://api.vkontakte.ru/method/getProfiles?uids=1&fields=online")
ConsoleWrite(_Encoding_CyrillicTo1251( BinaryToString ($inet ))& @CRLF)

$sSourse = InetRead("https://api.vkontakte.ru/method/getProfiles?uids=1&fields=online")
ConsoleWrite(BinaryToString($sSourse, 4) & @CR)

$sText = @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC & @TAB
$sSourse = InetRead("https://api.vkontakte.ru/method/getProfiles?uids=1&fields=online", 17)
If @error Then
	MsgBox(16, 'Error', @error)
	Exit
EndIf
$sSourse = BinaryToString($sSourse, 4)
ConsoleWrite($sSourse & @CR)
$sFirstName = StringRegExpReplace($sSourse, '.*?first_name":"(.*?)",?.*', '$1 ')
$sLastName = StringRegExpReplace($sSourse, '.*?last_name":"(.*?)",?.*', '$1: ')
$sOnline = StringRegExpReplace($sSourse, '.*?online":(\d)\D?.*', '$1')
$sText &= $sFirstName & $sLastName
If $sOnline == '0' Then
	$sText &= 'OffLine'
Else
	$sText &= 'OnLine'
EndIf
MsgBox(64, 'Info', $sText)
FileWriteLine(@ScriptDir & '\Log_vkontakte.txt', $sText)