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}
Imprimer "TEST TCP Senden"
 $I Winsocks.inc
Déclarer Data$,sockTCP&,IP$,a&,Ende%,Computername$,z&
GetComputerName
Computername$ = @$(0)
imprimer Computername$
IP$ = "127.0.0.1"
imprimer @&(0)
Imprimer " 1) bouton c Drücken um une liaison herzustellen"
Imprimer " 2) bouton s x la fois Drücken um données trop Senden"
Imprimer " 3) bouton k Drücken um den Verbindungs Socket trop schliesen"

WhileNot Ende%

    waitinput
    locate 8,1
    imprimer %clé

    IF %clé = 99' bouton c

        CreateSocketTcp'Stellt une TCP Socket her
        sockTCP& = @&(0)
        imprimer "Connect: "; @&(0)
        ConnectTcpTo 6969,IP$,sockTCP&'Port, IP , Socket Stellt une liaison zum angegebenen IP her
        imprimer "Connect: "; @&(0)

    ENDIF

    IF %clé = 107' bouton k Kill Socket

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

    ENDIF

    IF %clé = 115' bouton s Kill Send Data

        Data$ = "TIME : "+ @Time $(0)+»+ @Time $(1)+" sur dem calculateur: "+Computername$
        sendTCP sockTCP&,Data$'Sock ,données Sendet données zur einer IP avec qui qui Socket verbunden wurde
        imprimer "Send: "; @&(0)

    ENDIF

Wend

CloseWinsocks