AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <all.au3>
#include <Date.au3>
Opt('MustDeclareVars', 1)
Opt("TrayMenuMode",1)           ;0=append, 1=no default menu, 2=no automatic check, 4=menuitemID  not return
Opt("TrayAutoPause",0)     
;==============================================
;==============================================
;SERVER!! Start Me First !!!!!!!!!!!!!!!
;==============================================
;==============================================

Example()

Func Example()
    ; Set Some reusable info
    ; Set your Public IP address (@IPAddress1) here.
;   Local $szServerPC = @ComputerName
;   Local $szIPADDRESS = TCPNameToIP($szServerPC)
    Local $szIPADDRESS = @IPAddress1
    Msgbox(0,"",@IPAddress1)
    Local $nPORT = 33891
    Local $MainSocket, $GOOEY, $edit, $ConnectedSocket, $szIP_Accepted
    Local $msg, $recv

    ; Start The TCP Services
    ;==============================================
    TCPStartup()

    ; Create a Listening "SOCKET".
    ;   Using your IP Address and Port 33891.
    ;==============================================
    $MainSocket = TCPListen($szIPADDRESS, $nPORT)

    ; If the Socket creation fails, exit.
    If $MainSocket = -1 Then Exit


    ; Create a GUI for messages
    ;==============================================
    
    TrayTip("","My Server (IP: " & $szIPADDRESS & ")", 4)
    
    $GOOEY = GUICreate("My Server (IP: " & $szIPADDRESS & ")", 300, 200,-1,-1,-1,$WS_EX_TOPMOST)
   


    ; Initialize a variable to represent a connection
    ;==============================================
    $ConnectedSocket = -1


   
     ;Wait for and Accept a connection
    ;==============================================
    Do
        $ConnectedSocket = TCPAccept($MainSocket)
        $msg = GUIGetMsg()

        ; GUI Closed
        ;--------------------
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop

    Until $ConnectedSocket <> -1

    ; Get IP of client connecting
    $szIP_Accepted = SocketToIP($ConnectedSocket)

    ; GUI Message Loop
    ;==============================================
    While 1
        $msg = GUIGetMsg()

        ; GUI Closed
        ;--------------------
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop

        ; Try to receive (up to) 2048 bytes
        ;----------------------------------------------------------------
        $recv = TCPRecv($ConnectedSocket, 2048)
        ;MsgBox (0,"test", $recv)

        ; If the receive failed with @error then the socket has disconnected
        ;----------------------------------------------------------------
        ;If @error Then ExitLoop

        ; Update the edit control with what we have received
        ;----------------------------------------------------------------
        ;If $recv <> "" Then Traytip("", _Now() & " : " & $recv,5 )
        If $recv <> "" Then Traytip("", $recv,5 )
    WEnd


    If $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket)

    TCPShutdown()
EndFunc   ;==>Example

; Function to return IP Address from a connected socket.
;----------------------------------------------------------------------
Func SocketToIP($SHOCKET)
    Local $sockaddr, $aRet
   
    $sockaddr = DllStructCreate("short;ushort;uint;char[8]")

    $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
            "ptr", DllStructGetPtr($sockaddr), "ptr", DllStructGetSize($sockaddr))
    If Not @error And $aRet[0] = 0 Then
        $aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
        If Not @error Then $aRet = $aRet[0]
    Else
        $aRet = 0
    EndIf

    $sockaddr = 0

    Return $aRet
EndFunc   ;==>SocketToIP

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
$szIPADDRESS = InputBox("Question", "Envoyer à quel ip ?", "192.168.1.3")
Opt('MustDeclareVars', 1)

;==============================================
;==============================================
;CLIENT! Start Me after starting the SERVER!!!!!!!!!!!!!!!
;==============================================
;==============================================

Example()

Func Example()
    ; Set Some reusable info
    ;--------------------------
    Local $ConnectedSocket, $szData
    ; Set $szIPADDRESS to wherever the SERVER is. We will change a PC name into an IP Address
;   Local $szServerPC = @ComputerName
;   Local $szIPADDRESS = TCPNameToIP($szServerPC)

    Local $nPORT = 33891

    ; Start The TCP Services
    ;==============================================
    TCPStartup()

    ; Initialize a variable to represent a connection
    ;==============================================
    $ConnectedSocket = -1

    ;Attempt to connect to SERVER at its IP and PORT 33891
    ;=======================================================
    $ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)

    ; If there is an error... show it
    If @error Then
        MsgBox(4112, "Error", "TCPConnect failed with WSA error: " & @error)
        ; If there is no error loop an inputbox for data
        ;   to send to the SERVER.
    Else
        ;Loop forever asking for data to send to the SERVER
        While 1
            ; InputBox for data to transmit
            $szData = InputBox("Data for Server", @LF & @LF & "Enter data to transmit to the SERVER:")

            ; If they cancel the InputBox or leave it blank we exit our forever loop
            If @error Or $szData = "" Then ExitLoop

            ; We should have data in $szData... lets attempt to send it through our connected socket.
            TCPSend($ConnectedSocket, $szData)

            ; If the send failed with @error then the socket has disconnected
            ;----------------------------------------------------------------
            If @error Then ExitLoop
        WEnd
    EndIf
EndFunc   ;==>Example

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>

Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 633, 447, 193, 125)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
Global $Edit1 = GUICtrlCreateEdit("", 16, 120, 601, 233, $ES_READONLY)
GUICtrlSetData(-1, "")
Global $Input1 = GUICtrlCreateInput("Taper le texte du message ici", 16, 360, 601, 21)
GUICtrlSetOnEvent(-1, "Input1Change")
Global $Button1 = GUICtrlCreateButton("Envoyer", 480, 392, 129, 41, 0)
GUICtrlSetOnEvent(-1, "Button1Click")
Global $Input2 = GUICtrlCreateInput("Adresse IP du PC à joindre", 24, 16, 289, 21)
GUICtrlSetOnEvent(-1, "Input2Change")
Global $Button2 = GUICtrlCreateButton("Connexion", 392, 16, 185, 25, 0)
GUICtrlSetOnEvent(-1, "Button2Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Local $szIPADDRESS = @IPAddress1
Local $nPORT = 33891
Local $MainSocket, $ConnectedSocket = -1, $szData
Local $recv
Local $DszIPADDRESS = @IPAddress1

TCPStartup()
$MainSocket = TCPListen($szIPADDRESS, $nPORT)
If $MainSocket = -1 Then
    MsgBox(0, "Erreur 1", "Erreur de création du socket !")
    Exit
EndIf

While 1
    If $ConnectedSocket = -1 Then
        $ConnectedSocket = TCPAccept($MainSocket)
    Else
        $recv = TCPRecv($ConnectedSocket, 2048)
        If @error Then
            MsgBox(0, "Erreur 2", "Erreur de données reçues !")
            Form1Close()
        EndIf
        If $recv <> "" Then GUICtrlSetData($Edit1, " > " & $recv & @CRLF & GUICtrlRead($Edit1))
    EndIf
Sleep(100)
WEnd

Func Button1Click()
    
EndFunc
Func Form1Close()
    If $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket)
    TCPShutdown()
    Exit
EndFunc
Func Input1Change()
    $szData = @IPAddress1 &" > "& GUICtrlRead($Input1)
    TCPSend($ConnectedSocket, $szData)
    If @error Then
        MsgBox(0, "Erreur 4", "Erreur d'envoie")
    Else
        GUICtrlSetData($Edit1, $szData & @CRLF & GUICtrlRead($Edit1))
        GUICtrlSetData($Input1, "")
    EndIf
EndFunc
Func Button2Click()
    $DszIPADDRESS = GUICtrlRead($Input2)
    If Ping($DszIPADDRESS, 250) <> 0 Then
        $ConnectedSocket = TCPConnect($DszIPADDRESS, $nPORT)
        If @error Then
            MsgBox(0, "Erreur 3", "Erreur de connexion au serveur")
        Else
        guictrlsetstate($Input2,$GUI_DISABLE)
        guictrlsetstate($Button2,$GUI_DISABLE)
        EndIf
    EndIf
EndFunc
Func Input2Change()
    Button2Click()
EndFunc