Discussion :

[khlzk]

bonjour
svp
je pensais qu'a l'installation du serveur HF le port est ouvert automatiquement.
est il possible d'ouvrir le port 4900 par programmation
merci

[khlzk]

re bonjour a tous
svp
Y a t il un moyer avec WLangage ou API
merci

[dsr57]

Bonjour

Pour moi, je ne pense pas que cela soit possible pour des questions de sécurité.

Bon dev

[michel.souris]

Bonjour,

C'est tout de même un peu consternant.... le WLangage ne peut pas tout faire !

Quoiqu'il en soit vous avez 2 options :

-> Manipulation d'API Windows
-> Ligne de commande DOS

[khlzk]

re bonjour
saurier vous quel API ou un bout de Code
merci

[michel.souris]

A priori HNetCfg dans la dll OLE32....

https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx


PS : pour vous répondre j'ai tout simplement cherché sur Google...

[hpascal]

Bonjour

C'est possible en ligne de commande avec netsh

Un exemple sur cette page : http://docs.mongodb.org/manual/tutor...etsh-firewall/

[khlzk]

Merci a tous
je prefere API mais l'anglais est un prbleme pour moi
un bout de code serait impecable

le netsh peut etre je trouverai d'ou le telecharger mais comment l'utiliser
Ce qui serait bien c'est d'ouvrir le Port 4900 avec l'installation de mon application windev
merci

[jurassic pork]

hello,
le netsh il est déjà dans ton système si tu as xp ou supérieur :
pour ouvrir le port 4900 en entrée pour le parefeu :
pour XP :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

netsh firewall add portopening TCP 4900 "Manta Port 4900"

pour Vista et supérieur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

netsh advfirewall firewall add rule name="Manta TCP Port 4900" dir=in action=allow protocol=TCP localport=4900

A exécuter avec des droits d'administration (attention à l'UAC) et en ligne de commande . Dans windev utiliser lanceappli ou la classe cconsole.
Ami calmant, J.P

[michel.souris]

Personnellement je j'ai pas réussi à manipuler l'API en question (donc pour vous fournir un exemple de code, c'est ballot)... vu que mon utilisation était relativement limitée je passe par Netsh en ligne de commande.

Comme le précise JP les pré-requis système reste les mêmes que pour une ouverture manuel des ports (droit admin et jeton admin si UAC).

[khlzk]

Re bonjour
jurassic pork svp
je voudrais l'ouverture du port au demarrage de l'installation
je n'arrive pas a savoir ou placer ce code
Code :
netsh advfirewall firewall add rule name="Manta TCP Port 4900" dir=in action=allow protocol=TCP localport=4900

[khlzk]

Mon code ne marche pas (n'ouvre pas le port 4900)

Lancé est un booléen
sParamètres est une chaîne = "advfirewall firewall add rule name=""Manta TCP Port 4900"" dir=in action=allow protocol=TCP localport=4900"

// Lance l'application
bLancé = LanceAppli("netsh.exe" + " " + + sParamètres)

SI ErreurDétectée ALORS
Erreur()
FIN

corrigez moi merci

[jurassic pork]

hello,
ton code a l'air bon mais tu dois avoir un problème de privilèges. Tu dois avoir l'UAC activé. Quand je lance ton code en test dans windev j'ai le message :

L'opération demandée requiert une élévation (Exécuter en tant qu'administrateur).<\n><\r><\n><\r><\n>Code Retour : 1

Il faut que tu lances windev en cliquant sur Exécuter en tant qu'administrateur pour que cela marche en mode test.
Et pour la génération de ton exécutable il faut que dans sécurité/Contrôle des comptes utilisateurs tu coches Intégrer un manifeste pour Windows Vista et supérieur et que tu coches ensuite Mon application nécessite les privilèges administrateur

Ami calmant, J.P

[khlzk]

Bonjour jurassic pork
j'ai essayé à la lettre votre conseil mais pas d'ouverture de port 4900
j'ai créé un Exe avec
- Intégrer un manifeste pour Windows Vista et supérieur et - Mon application nécessite les privilèges administrateur
(je vois bien la fenetre DOS qui s'ouvre et se referme)
je suis en windows 7
avez vous une autre precision
merci

[jurassic pork]

hello,
tu dois avoir un autre souci alors,
vérifie que la règle "Manta TCP Port 4900" est bien dans les règles des connexions entrantes de ton parefeu (paramètres avancées) si oui c'est que tu as un autre problème.

Ami calmant, J.P

[khlzk]

Pardon jurassic pork
j'ai l'habitude de nommer le port tout court en "4900"
alors qu'avec ce code c'est : Manta TCP Port 4900
c'est pour ca que je ne l'ai pas trouver
ca marche impecable
merci beaucoup

[khlzk]

Re bonjour
svp
je vois sur le pare feu que le port est ouvert plusieurs fois
comment l'eviter
merci

[jurassic pork]

Cela n'est pas grave sinon click droit supprimer sur les règles en trop.
A vérifier que la règle n'est pas là plusieurs fois à cause d'un paramètre différent comme le profil

[khlzk]

merci jurassic pork pour votre patience

j'ai supprimé dans pare feu tous port 4900 entrant et sortant sur mon poste
1/ pourtant j'arrive a ouvrir un serveur HF dans une autre machine a partir de mon poste
et j'ai cree un exe avec le code:
SI SocketConnecte("Test", 4900) ALORS Info("OUI") SINON Info("NON")
et le resultat est toujours oui si mon code est correcte ca veut dire port toujours 4900 ouvert

est il ouvert par un autre protocol!!??
merci