[..] Script de connection TCP/UDP (Projet)

[L4crymal]

Live Box et ça ne fonctionne toujours pas XD

EDIT : que ce soit avec No-Ip ou DynDns

Mettez moi au courant si vous y arriver mieux que moi

[Cyrille]

je veux bien t'aider mais si je le fait dans ce sujet ça va faire un peu trop hors sujet...

Mais j'ai fait un tuto sur mon forum qui peut t'aider :
http://100-100-entre-ados.forumactif.co ... -t3834.htm
Les points 3.b 4 et 5 du tuto.( Le reste c'est pour monter un serveur web très simple peu sécurisé xD)

[L4crymal]

Bon je viens prendre des nouvelles

Chez moi ça ne marche toujours pas, je cherche en vain des tutos mais je vais essayer de reformater mon ordinateur pour voir si cela ne viens pas d'un dysfonctionnement.

Et vous, où en êtes vous

[Cyrille]

ne formate pas ton pc ^^ y a sûrement moyen de faire autrement ^^

Moi j'ai effectivement un problème. D'un pc A à un autre pc B ça marche, mais de B vers à A ca ne marche pas... Et toujours une erreur de connexion refusé quand j'utilise mon ip public.

[L4crymal]

+ D'info STP sur ton reseau

Vers quels PC ça marche/marche pas ( version du PC )
Ton roteur : Est-ce une LiveBox, Modem, ou autre ...

[Cyrille]

Je suis en cable direct entre un xp et un vista.
Du vista(client) au XP (serveur) ca marche mais du XP(client) au Vista(serveur) ca marche pas...

[L4crymal]

Tu as utiliser quoi comme ip pour le serveur ?

[Cyrille]

Ha oui c'est peut être ça -_-, vu que le pc vista est sur deux réseaux... une vers le pc XP un vers la livebox... Je reteste ça ce week end, j'ai pas le pc xp ici.

[L4crymal]

Hum j'ai entendu parler des serveurs VPN pensez vous qu'on puisse en tirer profit ?

[minoui]

Les vpn ... Ben en fait c'est pareil j'ai jamais réussis à ouvrir les bons ports xD
Le seul truc que j'ai réussis a faire c'est a avoir des centaine de test de ping depuis une machine en chine qui a essayer de rentrer dans mon Pc mais bon tu peut essayer si sa te chante

Lien (serveur) : http://www.zebulon.fr/dossiers/35-vpn.html
Lien (client) : http://www.zebulon.fr/dossiers/36-creez ... iente.html

P.S j'adore zébulon s'est le surnom que me donne mes profs (Les cools )

[L4crymal]

Merci j'ai VISTA ^^ mais je me suis débrouiller et franchement c'est pas si simple ce genre de serveur

[minoui]

A ok dsl ^^

[L4crymal]

J'ai plus de nouvelles personnes nous aide :'( ce soir j'irai chercher sur GOOGLE : serveur client UDP TCP je suis sur qu'il y a qqchose merci de me tenir au courant si vous faites de même

[TurT]

Bonjour je viens a l'aide!

D'après ce que j'ai lu le Serveur a comme port d'écoute 14584 (celui-ci est changeable il suffit juste qu'il soit commun avec le client) donc soit il faut utilisé un port déjà ouvert sur toute les box en mode router (c'est a dire adresse ip privée du style 192.168.*.*) le port 80 est celui des navigateurs internet.

Pour ceux voulant utilisé se port d'origine: 14584 il faut faire un redirection de port sur l'interface de la box (En général on se connecte depuis une page internet avec l'adresse ip du réseau ex:192.168.0.1, cette ip peut être différente en fonction des FAI: free, orange, neuf etc...)
La redirection de port se présent en général comme cela:

a lire de haut en bas de gauche a droite
Port entré: | Protocole: | adresse ip: | port écoute:
14584 | TCP/UDP | IP du serveur | 14584

Si c'est pas clair je préciserai en détail!

[L4crymal]

Fa je l'ai fait y a longtemps cela ne change rien, essaie chez toi, dit moi en des nouvelles

[TurT]

Je l'ai fait hier au travail en même temps que je l'expliquer, j'ai changer les ports du serveur et client en 80, j'ai lancer le serveur sur mon pc le client sur un autre mit l'adresse ip de mon pc (le serveur) et sa a marché!
Détail il a fallu que je déactive le pare-feu windows sur le serveur (mon pc) pour autorisé les entrés, étonnant étant donné que j'ai pris le port internet qui est censé passer partout o_0

[L4crymal]

J'essaie donc avec le 80 !!! ( oui normale car le port 80 est autorisé mais pas le logiciel spécifié )

EDIT : finalement chez moi cela ne fonctionne pas ... quelqu'un pourrait tester ?

[Douves]

Les ports, moi, ils fonctionnent tous, bref
Pour le multi-client, essaye d'utiliser une DLL avec :
L'etat actuel
L'ip

$recv = tcprecv....
Verif dans la dll
revoi a l'ip connecté par rapport a l'etat actuel
Sinon, ouvre une nouvelle connetion (ecris dans la dll )

Enjoy

[anon25]

Salutation, Je vais vous raconter une histoire:

Il était une fois, AUTOIT, il aidait au début beaucoup de personne aimant l'informatique à faire des "macro", mais AUTOIT étant très réputé et puissant, il évolua et devenu encore + puissant et recueillant + de possibilités de fonctionnement. Mais aujourd'hui, les utilisateurs de AUTOIT se posent une question : Pourquoi les fonctions sur TCP/UDP existent telles si personnes ne sais les faire fonctionner entre 2 ordinateurs ou ne sais que très peut de leur puissance?

C'est alors que ce projet naquit : Le pouvoir de la connexion TCP/UDP !

Je vais tenter de faire un script/tuto sur ces fonctions, et j'ai besoin de VOUS! *Oncle Sam pour ceux qui connaissent*

Voici les deux scripts là ou ils en sont (Explications Traduite):

SERVER :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)
;==============================================
;==============================================
;SCRIPT DU SERVER ; A LANCER EN PREMIER
;==============================================
;==============================================

Example()

Func Example()
    
    Sleep (100)
    ; INFOS A COMPLÉTÉES
   Local $szServerPC = @ComputerName
   Local $szIPADDRESS = TCPNameToIP($szServerPC)
    Local $nPORT = 14584
    Local $MainSocket, $GOOEY, $edit, $ConnectedSocket, $szIP_Accepted
    Local $msg, $recv

    ; Lancement des services TCP
    ;==============================================
    TCPStartup()

    ; Ouverture d'un port sur le reseau / ATTENTION UN PARE FEU PEU BLOQUER CETTE FONCTION
    ; Utilisation pour l'ouverture de : L'ip Public (@IPAddress1) avec le port 14584 (inutilisé normalement)
    ;==============================================
    $MainSocket = TCPListen($szIPADDRESS, $nPORT,5000)

    ; Si la connection au port à échouée, alors on recommence
    If $MainSocket = -1 Then 
    Example()
    EndIf

    ; Création d'un GUI pour envoyer des données vers un autre PC part le port ouvert
    ;==============================================
    $GOOEY = GUICreate("Mon Server (IP: " & $szIPADDRESS & ")", 300, 200)
    $edit = GUICtrlCreateEdit("", 10, 10, 280, 180)
    GUISetState()


    ; Initialisation de la variable définissant la connexion
    ;==============================================
    $ConnectedSocket = -1


    ;Attente d'une demande de connection
    ;==============================================
    Do
        $ConnectedSocket = TCPAccept($MainSocket)
    Until $ConnectedSocket <> -1


    ; Connaitre l'adresse IP du CLIENT
    $szIP_Accepted = SocketToIP($ConnectedSocket)

    ; Fenêtre GUI affichant les données envoyées
    ;==============================================
    While 1

        $msg = GUIGetMsg()

        ; Fermeture de la GUI
        ;--------------------
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop

        ; Reçoit des données à partir du port connecté / 2048 bytes maximum
        ;----------------------------------------------------------------
        $recv = TCPRecv($ConnectedSocket, 2048)

        ; Si les données on mal été reçues, le SERVER se ferme
        ;----------------------------------------------------------------
        If @error Then ExitLoop

        ; Rafraichissement des données envoyées
        ;----------------------------------------------------------------
        If $recv <> "" Then GUICtrlSetData($edit, _
           $szIP_Accepted & " > " & $recv & @CRLF & GUICtrlRead($edit))
    WEnd


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

    TCPShutdown()
EndFunc   ;==>Example

; Fonction permettant de connaitre l'adresse IP du CLIENT connecté au SERVER
;----------------------------------------------------------------------
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

CLIENT :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
$szIPADDRESS = InputBox("Connexion à un SERVER", "IP du SERVER : ", @IPAddress1)
Opt('MustDeclareVars', 1)


;==============================================
;==============================================
;SCRIPT DU CLIENT ; A LANCER EN DEUXIEME
;==============================================
;==============================================

Example()

Func Example()
    ; INFOS A COMPLÉTÉES
    Local $ConnectedSocket, $szData
    Local $nPORT = 14584

    ; Lancement des services TCP
    ;==============================================
    TCPStartup()

    ; Initialisation de la variable définissant la connexion
    ;==============================================
    $ConnectedSocket = -1

    ;Connection sur le SERVER d'adresse IP:*voir ImputBox* avec le port 14584 (inutilisé normalement)
    ;=======================================================
    $ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)

    ; Si une erreur existe alors on l'envoie par MsgBox puis le script se ferme
    If @error Then
        MsgBox(4112, "Error", "TCPConnect failed with WSA error: " & @error)
        ; Si il n'y a pas d'erreur le CLIENT est connecté au SERVER

    Else
        ;Demande de données à envoyées
        While 1
            ; InputBox des données à envoyées
            $szData = InputBox("Data for Server", @LF & @LF & "Enter data to transmit to the SERVER:")

            ; Si il y a une erreur ou si le bouton annuler est préssé le script se ferme, si les données envoyées sont nul, ne rien faire
            If @error Then 
            Exit
                
        ElseIf $szData = "" Then 
            Sleep (0)
            EndIf
            ; Envoie des données vers le SERVER
            TCPSend($ConnectedSocket, $szData)

            ; Si les données n'ont pas été envoyées, le CLIENT se Déconnecte
            ;----------------------------------------------------------------
            If @error Then ExitLoop
        WEnd
    EndIf
EndFunc   ;==>Example

Si vous avez des amélioration venez me les proposer !
Le script sera mis à jour lorsque une modification sera effectuée
Voici les Problèmes ou questions que je me pose avant de continuer merci de bien vouloir y répondre :

-Lorsque le bouton Cancel une nouvelle GUI du serveur s'ouvre ( à corriger par : Lorsque le bouton CANCEL est appuyé, le CLIENT se ferme et le SERVER reste tel qu'il est en attente d'une nouvelle connexion)

Seulement en réseau ou via Internet ça fonctionne?

Si j'installe comme prévu, le server peut accéder au DD du client ?

J'aimerais avoir d'avantages d'explications svp, car j'aimerais pouvoir accéder au DD de mon deuxième ordinateur (dans mon appartement), via l'Internet, avec des codes et sans logiciel, je veut comprendre le fonctionnement des ports et des connexions en exploitant AutoIT.

Merci

[Iste]

Seulement en réseau ou via Internet ça fonctionne?

Le protocole TCP/IP ne fait pas la difference entre lan et net
C'est juste aux routeurs de bien faire le boulot.

Sinon, si c'est juste pour fouiller dans le DD, je te conseil VNC qui permet le transfère de fichier de facon assez simple (avec AU3 ca devient vite compliqué...)