TCPStartup()
Local $sRequest = 'GET /?method=push_msg&api_v=1.1&satellite_adv=OBLIGATORY&phone=89063579714&text=TEST&[email protected]&password=000000 HTTP/1.1' & @CRLF
$sRequest &= 'Accept: */*'& @CRLF
$sRequest &= 'Accept-Language: ru'& @CRLF
$sRequest &= 'User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; MRA 5.10 (build 5309); .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; InfoPath.2; .NET4.0C; .NET4.0E; COOEE)'& @CRLF
;$sRequest &= 'Accept-Encoding: gzip, deflate'& @CRLF ; Отключаем кодировку.
$sRequest &= 'Host: api.sms24x7.ru'& @CRLF
$sRequest &= 'Connection: Keep-Alive'& @CRLF & @CRLF
Local $sDomain = 'api.sms24x7.ru'
Local $iPort = 80, $URL
Local $sIP = TCPNameToIP($sDomain)
Local $iSocket = TCPConnect($sIP, $iPort)
TCPSend($iSocket, $sRequest)
Local $sData = '', $iTimer = TimerInit()
Do
$sBuffer = TCPRecv($iSocket, 1024)
$iError = @error
If Not $sBuffer = '' Then
$sData &= $sBuffer
$iTimer = TimerInit()
EndIf
Until $iError <> 0 OR TimerDiff($iTimer) > 2000
$sData=BinaryToString(StringToBinary($sData),4)
ConsoleWrite($sData & @LF)