Что нового

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

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
VladUs,
HungryDwarf,
Можно и без Encoding.au3:
Код:
$sSourse = InetRead("https://api.vkontakte.ru/method/getProfiles?uids=1&fields=online")
ConsoleWrite(BinaryToString($sSourse, 4) & @CR)
 
Автор
H

HungryDwarf

Новичок
Сообщения
35
Репутация
3
а как его привести в удобоваримый вид, чтобы можно было например в блокнот написать ?
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
HungryDwarf [?]
а как его привести в удобоваримый вид, чтобы можно было например в блокнот написать ?
Попробуйте так:
Код:
$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)
 
Автор
H

HungryDwarf

Новичок
Сообщения
35
Репутация
3
madmasles
огроменное спасибо. честное слово, очень вам благодарен.
 
Верх