Hi guys,
I've tried some difficults realizing a simple whois from whois.radb.net. I've tried to query "-i origin AS32934", the right way to retrieve all FB IPs (as developer page says) but I really don't understand what is wrong with my script:
$ws = DllOpen("ws2_32.dll")
TCPStartup()
$ip = TCPNameToIP("whois.radb.net")
$socket = TCPConnect($ip, 43)
TCPSend($socket, "-i origin AS32934")
Local $text
While 1
$recv = TCPRecv($socket, 2048)
If @error Then
$aRet = DllCall($ws, "int", "WSAGetLastError")
MsgBox(0,$recv,$aRet[0])
ExitLoop
EndIf
If $recv <> "" Then
$text &= $recv
EndIf
WEnd
ConsoleWrite(@CRLF & $text & @CRLF)
TCPCloseSocket($socket)
TCPShutdown()
The loops ends as soon as TCPRecv is called... and WSAGetLastError reports no error!
Thanks to all