[UDF] _NicControl.au3 (Contrôle des connexions réseau)

Partagez des fonctions et des UDF AutoIt.
Règles du forum
.
Répondre
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11714
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

[UDF] _NicControl.au3 (Contrôle des connexions réseau)

#1

Message par Tlem »

Pour des besoins professionnel, j'ai créé cet UDF que je partage avec vous.

Voici quelques exemples d'utilisation :

Code : Tout sélectionner

; Activation de toutes les cartes réseau.
_NicControl("All")

; Activation de toutes les cartes réseau dont le nom contient 'local'.
_NicControl("local", 1, 0)

; Désactivation de la connexion 1394.
_NicControl("Connexion 1394", 0)

; Désactivation d'une connexion inexistante et retour d'erreur.
$Res = _NicControl("Connexion XYZ", 0)
MsgBox(0, "Infos", "$Res=" & $Res & "   @Error=" & @error & "   @Extented=" & @extended)
Edit : Non compatible avec Vista et 2003 Serveur.
Je travail actuellement sur une nouvelle version.
Je mettrais à jour dés qu'elle sera terminée.

Compatible Windows 98.
Fichiers joints
NicControl_XP.au3
(5.17 Kio) Téléchargé 568 fois
NicControl_XP.au3
(5.17 Kio) Téléchargé 568 fois
Modifié en dernier par Tlem le dim. 30 nov. 2008 23:17, modifié 5 fois.
Raison : Code mis en fichier joint.
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11714
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

Re: [UDF] _NicControl (Contrôle des connexions réseau)

#2

Message par Tlem »

Voici la nouvelle version qui est compatible avec toutes les versions de Windows Win32_NT (à partir de Windows 2000).

Normalement j'ai fait le tour du débuggage sur XP et Vista.
Mais si vous avez des commentaires, pas de problème.

Le mode d'utilisation est le même que le code précédent.

Non Compatible Windows 98.
Fichiers joints
NicControl.au3
(8.07 Kio) Téléchargé 2247 fois
NicControl.au3
(8.07 Kio) Téléchargé 2247 fois
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11714
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

Re: [UDF] _NicControl.au3 (Contrôle des connexions réseau)

#3

Message par Tlem »

Suite à quelques échanges avec nos camarades Anglais et un membre de la communauté AutoIt Australien (Kim), nous avons constaté que la version précédemment proposée avais quelques bugs sur les versions Anglaise de certains OS.

J'ai donc ré-écrit une grosse partie du code, et me suis inspiré de quelques nouveautés vues sur le forum Anglais.
Pour l'occasion, j'en ai profité pour renommer l'UDF en NetCC.au3 qui veut dire Network Connection Control et aussi pour rajouter trois fonctionnalités :
- _NetCC("Nom de la connexion", 4) => Renvois l'état de la connexion.
- _NetCC("Nom de la connexion", 2) => Inverse l'état de la connexion.
- _NetCC("Nom de la connexion", 3) => Répare la connexion.
- _NetCCGetList() => Renvois un tableau des connexions disponibles.

L'UDF est en Anglais, mais si ça pose problème je donnerais les explications ici même.
Script testé sur :
  • - Windows 2000 Professionnel Fr
    - Windows XP Pro SP2 - SP3 Fr
    - Windows XP Pro SP2 US
    - Windows Vista Pro FR
Le mode d'utilisation est le même que le code précédent.
Vous trouverez ci-joint au post, l'UDF avec une mini GUI pour mettre en application les fonctions disponibles.

Ce code n'est sans doute pas parfait, je reste donc ouvert à toutes améliorations ou report de bugs. ;)


Non Compatible Windows 98.
Fichiers joints
GUINetCC.au3
Exemple GUI
(3.19 Kio) Téléchargé 789 fois
GUINetCC.au3
Exemple GUI
(3.19 Kio) Téléchargé 789 fois
NetCC.au3
Script principal.
(11.56 Kio) Téléchargé 871 fois
NetCC.au3
Script principal.
(11.56 Kio) Téléchargé 871 fois
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
Avatar du membre
ricky
Niveau 7
Niveau 7
Messages : 443
Enregistré le : ven. 06 févr. 2009 09:25
Localisation : Suisse
Status : Hors ligne

Re: [UDF] _NicControl.au3 (Contrôle des connexions réseau)

#4

Message par ricky »

Hello,

je viens de découvrir cet UDF, c'est pas mal, mais j'ai une erreur en compilant :

Image

Tu l'as déjà testé sur Seven? Merci d'avance
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11714
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

Re: [UDF] _NicControl.au3 (Contrôle des connexions réseau)

#5

Message par Tlem »

Je ne l'ai pas testé sous Seven, mais sous Vista 32 Bits.
Vous dites que l'erreur survient lors de la compilation. :shock:

Quelle version d'AutoIt utilisez-vous ?
Quel est le code que vous compilez ?
Ligne 1062 semble être une ligne d'include. Il serait bien de déterminer de quel include il s'agit. :roll:
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
kimsland
Niveau 1
Niveau 1
Messages : 1
Enregistré le : mer. 31 août 2011 03:27
Status : Hors ligne

Re: [UDF] _NicControl.au3 (Contrôle des connexions réseau)

#6

Message par kimsland »

Hi Thierry,

Just wanted to tell you that over 3 years later, I'm still using this script :)
I always have it on my Desktop, and double click on it to disable (or re-enable) the network when required. (Note: Still using XP SP3 English)

Again, a big thank-you to you for this.

By the way, the only tiny issue is, when re-enabling the network, my network icon (in the taskbar) continually has that 'Acquiring network address' message, but the network is 100% anyway.
Its actually an old unresolved MS Windows issue.
How I fix it is by going into Network properties then selecting ok, all of sudden the icon (in the taskbar) is back to normal again! Silly MS.

Thanks again Thierry, and to others who commented.
This small app is unique and worthy for any individual who cares about security, when away from their computer (ie Antivirus scans etc)

Regards,
Kim

Edit: Thought I'd upload the exe zipped up, for anyone to use :)
Fichiers joints
NetCC.zip
NetCC.exe
(240.19 Kio) Téléchargé 431 fois
NetCC.zip
NetCC.exe
(240.19 Kio) Téléchargé 431 fois
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11714
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

Re: [UDF] _NicControl.au3 (Contrôle des connexions réseau)

#7

Message par Tlem »

Tank's kimsland.
Happy that this script was useful for someone.
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
Avatar du membre
mikell
Modérateur
Modérateur
Messages : 6197
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: [UDF] _NicControl.au3 (Contrôle des connexions réseau)

#8

Message par mikell »

kimsland a écrit :How I fix it is by going into Network properties then selecting ok, all of sudden the icon (in the taskbar) is back to normal again!
A common trouble for XP users...
Did you solve this by adding some lines of code in the udf or do you still manage this manually ?
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Répondre