[R] Client , Server long distance.

[mangaskiff]

Bonjour alors voila j'aimerai savoir de quel manière je pourrais faire la meme chose qu'avec ces script mais avec

des ordinateur qui ne sont pas sur la même connexion comme par exemple mon ordinateur et celui d'un amis.

► 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)
$lip_serveur = GUICtrlCreateInput(@IPAddress1, 48, 64, 321, 21)
$lmsg = 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($lip_serveur)
$msg=GUICtrlRead($lmsg)
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

► Afficher le texteServer

#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

Merci d'avance.

[TommyDDR]

Si ton script marche en lical, il ne faut rien changer à ton script pour qu'il marche sur le net.

Il faut juste que le port du serveur soit redirigé vers ton PC si tu as une box.

Free : Se connecter sur son compte a partir de http://subscribe.free.fr/login/, internet , Configurer mon routeur Freebox, et dans redirection de ports tu met : 16523 / TCP / ton IP LOCALE / 16523 et tu clique sur AJOUTER (il faudra ensuite redémarré t'a free box pour que cela soit pris en compte

Orange / alice /darty etc... :
Ouvre ton navigateur internet et tape l'adresse IP de ta box (en général : http://192.168.1.1) puis fouille un peu pour trouver la page de redirection de port.