Sign in to follow this  
Followers 0
Eusebio

WhoIs and socket

2 posts in this topic




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 ( )

WhoIsYouTube Video downloaderSoundex - SoundexEx - Levenshtein Distance (algorithms)[font="Arial"]I3osé[/font][font="Arial"]AutoIT[/font]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0