Набросал простейший код, который должен отправить HTTP GET запрос.
Однако в консоли отладки у меня лишь этот текст:
Он показывает, что данные отправлены, но ответа нет. Где я ошибся :stars: ?
Код:
TCPStartup()
$socket = TCPConnect(TCPNameToIP("vk.com"), 80)
ConsoleWrite("IP: " & TCPNameToIP("vk.com") & @CRLF)
$data = "GET / HTTP/1.0"
addLine($data, "User-Agent: Opera/9.80 (Windows NT 6.1) Presto/2.12.388 Version/12.16")
addLine($data, "Host: www.vk.com")
addLine($data, "Accept: */*")
addLine($data, "Accept-Language: ru-RU,ru;q=0.9,en;q=0.8")
addLine($data, "Accept-Encoding: gzip, deflate")
addLine($data, "Cache-Control: no-cache")
addLine($data, "Connection: close")
addLine($data, @CRLF)
$sent = TCPSend($socket, $data)
ConsoleWrite("BytesSent: " & $sent & " from " & StringLen($data) & " total" & @CRLF)
;sleep(5000)
$rcv = ""
while 1
$r = TCPRecv($socket, 16)
if $r = "" Then ExitLoop
$rcv &= $r
WEnd
ConsoleWrite("Error: " & @Error & ", Size: " & StringLen($rcv) & ", Data: " & $rcv & @CRLF)
func addLine(ByRef $main, $data)
$main &= (@CRLF & $data)
EndFuncОднако в консоли отладки у меня лишь этот текст:
Код:
IP: 87.240.131.117
BytesSent: 238 from 238 total
Error: 0, Size: 0, Data:Он показывает, что данные отправлены, но ответа нет. Где я ошибся :stars: ?
