XProfan

 {$cleq}
Print "TEST TCP Senden"
 $I Winsocks.inc
Declare Data$,sockTCP&,IP$,a&,Ende%,Computername$,z&
GetComputerName
Computername$ = @$(0)
print Computername$
IP$ = "127.0.0.1"
print @&(0)
Print " 1) Taste c Drücken um eine Verbindung herzustellen"
Print " 2) Taste s x mal Drücken um Daten zu Senden"
Print " 3) Taste k Drücken um den Verbindungs Socket zu schliesen"

WhileNot Ende%

    waitinput
    locate 8,1
    print %key

    IF %key = 99' Taste c

        CreateSocketTcp'Stellt einen TCP Socket her
        sockTCP& = @&(0)
        print "Connect: "; @&(0)
        ConnectTcpTo 6969,IP$,sockTCP&'Port, IP , Socket Stellt eine Verbindung zum angegebenen IP her
        print "Connect: "; @&(0)

    ENDIF

    IF %key = 107' Taste k Kill Socket

        CloseSocketx sockTCP&
        print "Close: "; @&(0)

    ENDIF

    IF %key = 115' Taste s Kill Send Data

        Data$ = "TIME : "+ @Time$(0)+":"+ @Time$(1)+" Auf dem Rechner: "+Computername$
        sendTCP sockTCP&,Data$'Sock ,Daten Sendet Daten zur einer IP mit der der Socket verbunden wurde
        print "Send: "; @&(0)

    ENDIF

Wend

CloseWinsocks

 {$cleq}
Cls
Print "TEST TCP Empfang (Server)"
 $I Winsocks.inc
Declare Datainc$,sockTCP&,IP$,a&,Ende%,connecktsocket&,Endex&,IP_inc$,z&
USERMESSAGES 5000,5001
Init 2,2
print @&(0)
CreateSocketTcp
InitTCP @&(0),6969,5000,%hWnd'Initialisiert einen Socket der auf eingehende verbindungen wartet und bei einer verbindung
connecktsocket& = @&(0)'die definierte Message an das festgelegte Fenster Sendet
sockTCP& = 0
SETTIMER 100

WhileNot Ende%

    WAITINPUT
    Endex& = 0

    IF (%wmTimer = 1) or (%UMessage = 5001)

        Whilenot Endex&

            locate 10,1
            Print "Timer";&GetTickCount
            recfrom sockTCP&

            IF @&(0) = -1

                Endex& = 1

            ELSE

                Datainc$ = @$(0)
                print Datainc$
                print "Gesendet von IP:"
                getIP
                IP_inc$ = @$(0)
                print IP_inc$

            ENDIF

        Wend

    ENDIF

    IF %UMessage = 5000'Wird ausgeführt wenn eingehende verbindung die Message ausgelöst hatt

        'if sockTCP& = 0
        GetConnectSocket connecktsocket&'liefert den Socket zurück der die verbindung aufgenommen hat
        sockTCP& = @&(0)
        locate 8,1
        print "Connect to Socket: ";sockTCP&
        SocketToThreatTcp sockTCP&,%hWnd,5001'der Socket der die verbindung aufgenommen hat wird veranlast im hintergrund
        print @&(0)'auf eingehende Daten zu warten und bei eingehenden Daten die Definierte Message zu senden

    ENDIF

    IF %key = 99' Taste c

        cls

    ENDIF

wend

waitinput
CloseWinsocks

 {$cleq}
Imprimir "TEST TCP Senden"
 $I Winsocks.inc
Declarar Data$,sockTCP&,IP$,a&,Ende%,Computername$,z&
GetComputerName
Computername$ = @$(0)
imprimir Computername$
IP$ = "127.0.0.1"
imprimir @&(0)
Imprimir " 1) Taste c Drücken una Verbindung herzustellen"
Imprimir " 2) Taste s x veces Drücken en Daten a Senden"
Imprimir " 3) Taste k Drücken en el Verbindungs Socket a schliesen"

Sinestar encargado Ende%

    waitinput
    locate 8,1
    imprimir %key

    IF %key = 99' Taste c

        CreateSocketTcp'Stellt una TCP Socket her
        sockTCP& = @&(0)
        imprimir "Connect: "; @&(0)
        ConnectTcpTo 6969,IP$,sockTCP&'Port, IP , Socket Stellt una Verbindung para angegebenen IP her
        imprimir "Connect: "; @&(0)

    ENDIF

    IF %key = 107' Taste k Kill Socket

        CloseSocketx sockTCP&
        imprimir "Close: "; @&(0)

    ENDIF

    IF %key = 115' Taste s Kill Send Data

        Data$ = "TIME : "+ @Time$(0)+":"+ @Time$(1)+" Auf el Rechner: "+Computername$
        sendTCP sockTCP&,Data$'Sock ,Daten Sendet Daten a uno IP con el el Socket verbunden wurde
        imprimir "Send: "; @&(0)

    ENDIF

Wend

CloseWinsocks