[R] Upnp pour mappage de port

[PCXeon2]

Bonjour a tous

Voila je vient vous embeté , mais avec une questions utile ,
donc je commence :p, je suis actuellement en train de dévellopper un client de messagerie instantané, pour le moment tous tourne a merveille, tous les logiciels client sont connecter en TCP a un serveur centrale que j'heberge chez moi et qui se charge de router les données recu au divers participant du chat.
Je suis entrain d'implenter une fonctionnalité qui a pour but de proposer des echanges de fichiers entre 2 participant du chat, pour le moments les données doivent transité par mon serveur, ce qui a pour concéquence de surcharger fortement ma bande passante .

J'aimerais donc relier en direct les 2 PC qui echange les données par une connection TCP, mais pour cela les ports que j'utilise doivent etre mapper dans le routeur, si cela ne pose aucun probleme pour des utilisateurs averti, cela pose un gros probleme au utilisateur plus lambda!

C'est pour cela qu'il me faut intégrer une fonction de mappage de port par le protocole Upnp dans mon client de messagerie, mais malheureusement je n'ai rien trouver pour le moment sur la toile.

C'est pour cela que je me tourne vers vous tous

En éspérant que l'ont réussise ensemble a trouver une solution a ce probleme, qui je le crois dois ennuyer pas mal de dévelloppeur réseaux.

Merci d'avance a tous pour votre aide

[PCXeon2]

et voila probleme autorésolu

voici un script qui fait sa:

Code : Tout sélectionner

;This program enables an IRC file transfer port
;And then puts up a prompt waiting for the user
;to be finished transferring files

$theNatter = ObjCreate( "HNetCfg.NATUPnP")
Dim $mappingPorts
$mappingPorts = $theNatter.StaticPortMappingCollection

If IsObj($mappingPorts) Then
 
 ;We add a new port saying that externally accept from port 1024
 ;route to internal port 1024 on computer with IP 192.168.1.101
 ;Enabling the forward, and giving a name of the forward to be IRC
 
 $mappingPorts.Add (1024, "TCP", 1024, "192.168.1.101", True, "IRC")
 MsgBox(0, "Ports added", "Total number of ports after add is " & $mappingPorts.Count & ". Hit OK when you're done transfering")
 
 ;To uniquely specify a forward, you give the external port
 ;and the protocol - here we remove the forward that we added
 
 $mappingPorts.Remove (1024, "TCP")
 MsgBox(0, "Ports removed", "We're done and the total number of ports is " & $mappingPorts.Count)
 
Else
 
 MsgBox(0, "Problem","Could not create a uPnP object")
 
EndIf