WhoIs and socket

[Eusebio]

Anyboyd knows the way to connect to WhoIs server with sockets? I know the port is 43 but I don't know how to connect and save the data.

Thanks,

Eusebio.

[Eusebio]

If you are interested, I Know how now:

TCPStartUp()

dim $datos=""

$ip=TCPNameToIP ("whois.nic.fr")
while 1
    $socket = TCPConnect($ip, 43 )
    If $socket = -1 Then 
        MsgBox(1,@error,"No conectado")
    Else
        ExitLoop
    EndIf
WEnd

TCPSend ( $socket,"123pizza.fr" & @CRLF )
If @error Then
    MsgBox(1,@error,"Error al enviar los datos")
EndIf

While 1
    $recv = TCPRecv( $Socket, 2048 )
    If @error Then ExitLoop

    If $recv <> "" Then 
        $datos=$datos & $recv
    EndIf
WEnd
ConsoleWrite($datos)

TCPShutdown ( )