[R] Client , Server 1 seul envoie

[mangaskiff]

Bonjour alors j'ai crée des scriptes simple pour faire des test 1 client et 1 serveur.

Seulement je ne comprend pas dans mon script je ne peux envoyé qu'un message et après sa m'affiche:

"Le paquet n'a pas pu être envoyer"

Les Scriptes:

► Afficher le texteClient

#include <Inet.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\pierre\desktop\form1.kxf
$Form1_1 = GUICreate("Form1", 468, 218, 192, 124)
$ip_serveur = GUICtrlCreateInput(@IPAddress1, 48, 64, 321, 21)
$msg = GUICtrlCreateInput("Msg", 48, 40, 321, 21)

$Button1 = GUICtrlCreateButton("evoie", 160, 104, 129, 57, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$ip=_GetIP()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$ip_serveur=GUICtrlRead($ip_serveur)
$msg=GUICtrlRead($msg)
Local $SocketEnvoi , $msg , $port=16523
if @error Then
MsgBox(4112,"Erreur","Il ya eu une erreur :" &@error)

TCPStartup()
Else
if @error Then
MsgBox(4112,"Erreur","Une erreur s'est produite")
Exit
EndIf
$SocketEnvoi = TCPConnect($ip_serveur,$port)
TCPSend($SocketEnvoi, $ip&"\"&$msg)
if @error Then
MsgBox(4112,"Erreur","Le paquet n'a pas pu etre envoyer!")
EndIf
EndIf

EndSwitch
WEnd

Et le serveur:

► Afficher le texteServeur

#include <GUIConstantsEx.au3>

$ip_serveur = InputBox("Adresse IP","IP du serveur",@IPAddress1)

$port = 16523
$bloc_text = GUICreate("Mon Serveur", 300, 200)
$edit = GUICtrlCreateEdit("", 10, 10, 280, 180)
GUISetState()
while 1
TCPStartup()
$MainSocket = TCPlisten($ip_serveur,$port,10000)
$Socket_receptrice = -1
do
$Socket_receptrice = TCPAccept($MainSocket)
$msg = GUIGetMsg()
if $msg = $GUI_EVENT_CLOSE then Exit

until $Socket_receptrice <> -1


$msg = GUIGetMsg()

if $msg = $GUI_EVENT_CLOSE then Exit
$data=TCPRecv($Socket_receptrice,4096)

$message = StringSplit($data,"\")

If $message <> "" then
if $message[2]="google" Then
ShellExecute("http://www.google.fr/")
GUICtrlSetData(-1,$message[1]&">"&$message[2]& @CRLF &GUIctrlRead($edit))
TCPShutdown()
Else
GUICtrlSetData(-1,$message[1]&">"&$message[2]& @CRLF &GUIctrlRead($edit))
TCPShutdown()
endIF
endIF
TCPShutdown()
WEnd

Ceci a été fait très vite je m'excuse pour la présentation des script j'editrai dans pas long temps.

[sylvanie]

L'erreur principale est ici :

$ip_serveur=GUICtrlRead($ip_serveur)
$msg=GUICtrlRead($msg)

vous écrasez les id des edits-box par leur contenu.
La première fois, ça passe car on utilse les valeur tapez, mais au 2 eme tours on dit au script de lire l'edit d'identifiant 192.168.x.x et l'edit d'dentfiant message_tapé ...

rebaptiser les id des contrôles $label_ip_serveur et $label_msg, puis :
$ip_serveur=GUICtrlRead($label_ip_serveur)
$msg=GUICtrlRead($label_msg)

sinon faites attention à @error, elle se reporte à la dernière action, ainsi

Code : Tout sélectionner

msg = GUICtrlRead($label_msg)
Local $SocketEnvoi, $msg, $port = 16523
If @error Then
 

peut être erroné, puisqu'on fait des assignation entre temps (celle ci n'est pas la plus significative, c'est cele du else qui est plus génante)

Bonne continuation

[mangaskiff]

Merci cela fonctionne.