[..] Connexion client/serveur

[NewHere]

Bonjour,

je viens d'essayer de faire une connexion client => serveur, mais erreur lors du tcpsend.

Help me plz !

Client :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <IE.au3>
Dim $WS_popup
dim $ES_AUTOHSCROLL
dim $ES_NUMBER
dim $MainSocket
$F = GUICreate("Client", 363, 498, 393, 117)
GUISetFont(7, 400, 0, "Verdana")
$T = GUICtrlCreateTab(16, 112, 329, 177)
$button1 = GUICtrlCreateButton("Send", 272, 464, 73, 25, 0)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
GUISetState(@SW_SHOW)
$collegue = GUICtrlCreateInput("", 128, 230, 97, 20, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
while 1
    $NMSG = GUIGetMsg()
    Switch $NMSG
        Case $GUI_EVENT_CLOSE
            Exit
TCPStartup()
$MainSocket = TCPConnect($collegue, 2048)


    $ConnectedSocket = TCPConnect($MainSocket)
    $send = TCPSend($ConnectedSocket, 2048)


Case $button1
    $send [2]
While 1
                $NMSG = GUIGetMsg()
                Switch $NMSG
                    Case $GUI_EVENT_CLOSE
                        Exit
                EndSwitch
            WEnd
    EndSwitch
WEnd

Serveur :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

$g_IP = "192.168.1.20"
TCPStartup()
$MainSocket = TCPListen($g_IP, 2048,  100 )
$ConnectedSocket = -1
Do
        $ConnectedSocket = TCPAccept($MainSocket)
    Until $ConnectedSocket <> -1
While 1
$ConnectedSocket = TCPAccept($MainSocket)
$recv = TCPRecv($ConnectedSocket, 2048)

if $recv = [2] Then
    Exit
Else
    MsgBox(0, "Error", "z")
endif
wend

[NewHere]

UP

[Tlem]

Nous sommes en période de vacance, donc ce n'est pas en remontant le sujet toutes les 24h que vous aurez forcément une réponse.

J'ai déjà supprimé celui que vous aviez fait hier, soyez donc un peut moins pressant et cherchez sur le forum pour voir si cette question n'aurait pas été déjà abordée.

[Yogui]

exemple tout simple mais qui fonctionne


Serveur à lancer en premier :

► Afficher le texte

Code : Tout sélectionner

TCPStartUp()
$MainSocket = TCPListen(@IPAddress1, 65000 )
If $MainSocket = -1 Then Exit
While 1
$ConnectedSocket = TCPAccept( $MainSocket)
    If $ConnectedSocket >= 0 Then
        msgbox(0,"","Client connecté")
        while 1
        $msg=TCPRecv($ConnectedSocket,1024)
            if $msg <> "" then msgbox(0,"Data:",$msg)
            if @error then exitloop
        wend
    EndIf
Wend

Client :

► Afficher le texte

Code : Tout sélectionner

$ipserveur = @IPAddress1 ;"IP du Pc faisant office de serveur"
TCPStartUp()
$MainSocket = TCPConnect($ipserveur, 65000 )

    tcpsend($MainSocket,@ComputerName&"|"&@IPAddress1)
    sleep(2000)

[NewHere]

Merci, mais pour la commande tcpsend et tcprecv comment cela fonctionne, j'ai essayé cela :
Client

► Afficher le texte

Code : Tout sélectionner

$ipserveur = "192.168.1.20" ;"IP du Pc faisant office de serveur"
TCPStartUp()
$MainSocket = TCPConnect($ipserveur, 65000 )

tcpsend($MainSocket,@ComputerName&"|"&@IPAddress1)
sleep(2000) 
[color=#FF0000]TCPSend($MainSocket) = ("2")[/color]
sleep(2000)

Serveur

► Afficher le texte

Code : Tout sélectionner

$ip = "192.168.1.20"
TCPStartUp()
$MainSocket = TCPListen($ip, 65000 )
If $MainSocket = -1 Then Exit
While 1
$ConnectedSocket = TCPAccept( $MainSocket)
If $ConnectedSocket >= 0 Then
msgbox(0,"","Client connecté")
while 1
$msg=TCPRecv($ConnectedSocket,1024)
if $msg <> "" then msgbox(0,"Data:",$msg)
if @error then exitloop
wend
[color=#FF0000]while 1
    $msg=TCPRecv($connectedsocket, 1024)
    if $msg = ("2") then msgbox (0, "2", "2 recu")
    wend[/color]EndIf
Wend

L'erreur :
C:\Users\****\Desktop\aut2.au3 (7) : ==> Incorrect number of parameters in function call.:
TCPSend($MainSocket) = ("2")
^ ERROR

[Yogui]

Cette erreur est normal

tcpsend demande deux paramètre

tcpsend ($MainSocket,"coucou")

vous n'en avez qu'un seul.


TCPSend
--------------------------------------------------------------------------------

Sends data on a connected socket.

TCPSend (mainsocket, data )


Parameters

mainsocket The connected socket identifier (SocketID) as returned by a TCPConnect function.
data binary/string to be send to the connected socket.

[NewHere]

Voila j'ai fait comme vous me l'avez indiqué
Serveur

► Afficher le texte

Code : Tout sélectionner

$ip = "192.168.1.20"
TCPStartUp()
$MainSocket = TCPListen($ip, 65000 )
If $MainSocket = -1 Then Exit
While 1
$ConnectedSocket = TCPAccept( $MainSocket)
If $ConnectedSocket >= 0 Then
msgbox(0,"","Client connecté")
while 1
$msg=TCPRecv($ConnectedSocket,1024)
if $msg <> "" then msgbox(0,"Data:",$msg)
if @error then exitloop
wend
while 1
    $msg=TCPRecv($connectedsocket, 1024)
    if $msg = "2" then msgbox (0, "gg", "monfrere")

    wend
EndIf
Wend

Client

► Afficher le texte

Code : Tout sélectionner

$ipserveur = "192.168.1.20" ;"IP du Pc faisant office de serveur"
TCPStartUp()
$MainSocket = TCPConnect($ipserveur, 65000 )

tcpsend($MainSocket,@ComputerName&"|"&@IPAddress1)
sleep(2000) 
TCPSend($MainSocket, "2")
sleep(2000)

Mais le probleme c'est que cela envoit 2 au serveur et le serveur me sort une msgbox avec en titre data et ecrit 2.
Moi ce que je veux faire fonctionner c'est que : si le client envoie "2" au serveur et que le script du serveur dit que si il recoit 2 alor ... Je fais ceci ou cela comme ouvrir notepad ou un autre truc. Or, ici ca créed une message box avec ecrit 2 :s

[NewHere]

Nouveau probleme, quand je ne mets pas de gui tout fonctionne bien, mais quand je la met, la connection fonctionne mais pas les boutons relier aux tcpsend.

Client :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <IE.au3>
dim $WS_EX_TOOLWINDOW
dim $WS_EX_WINDOWEDGE
$Form1 = GUICreate("Msn create u@you.u msn By mickael599", 606, 649, 209, 38, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$connecter = GUICtrlCreateButton("Se connecter", 143, 250, 86, 30, 0)
$envoyer = GUICtrlCreateButton("Envoyer les commandes", 143, 180, 86, 30, 0)
$envoyer2 = GUICtrlCreateButton("Envoyer2 les commandes", 143, 120, 86, 30, 0)
GUISetState(@SW_SHOW)
While 1
    $MSG = GUIGetMsg()
    Switch $MSG
        Case $GUI_EVENT_CLOSE
            Exit
            
        case $connecter
$ipserveur = "192.168.1.20"
TCPStartUp()
$MainSocket = TCPConnect($ipserveur, 65000 )
case $envoyer
    while 1
tcpsend($MainSocket,@ComputerName&"|"&@IPAddress1)
sleep(2000)
wend
case $envoyer2
    while 1
TCPSend($MainSocket, "2")
sleep(2000)
TCPSend($MainSocket, "3")
sleep(2000)
wend
            Exit
    EndSwitch
WEnd

Serveur :

► Afficher le texte

Code : Tout sélectionner

$ipserveur = "192.168.1.20"
TCPStartUp()
$MainSocket = TCPConnect($ipserveur, 65000 )

tcpsend($MainSocket,@ComputerName&"|"&@IPAddress1)
sleep(2000) 
TCPSend($MainSocket, "2")
sleep(2000)
TCPSend($MainSocket, "3")
sleep(2000)