Désactiver Connexion au réseau local

Version imprimable

Bonjour,

Je souhaite activer/desactiver une de mes connexion au reseau local ( j'en ai 2, bureau / maison ).

J'ai deja trouvé des chose mais en VB et je voudrait le faire en Delphi histoire d'avoir l'application en TrayIcon...

C'est une function de type ON / OFF ...

Voici ce que j'ai commencé à retranscrire d'un bout de code que j'a trouvé en VB :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
procedure TFormMain.SwitchOnOff;
var
   sConnectionName : string;
   sEnableVerb : string;
   sDisableVerb : string;
   shellApp, oControlPanel, oNetConnections, oLanConnection: OleVariant;
 
   i: integer;
   bEnabled: boolean;
   oEnableVerb, oDisableVerb: Variant;
   s: string;
begin
 
   sConnectionName := 'Connexion au réseau local';
 
   sEnableVerb := 'Activer';
   sDisableVerb := 'Désactiver';
 
   shellApp := CreateOleObject('shell.application');
   oControlPanel := shellApp.Namespace(ssfCONTROLS);
 
   oNetConnections := null;
 
   for i := 0 to oControlPanel.Items.Count - 1 do
   begin
      // C'est a ce niveau que ca plante *** 
 
      if oControlPanel.Items[i].Name = 'Connexions réseau' then
      begin
         oNetConnections := oControlPanel.Items[i].getfolder;
         break;
      end;
   end;
 
   if oNetConnections = null then
   begin
      MessageDlg('''Connexions réseau'' non trouvée', mtWarning, [mbOK], 0);
      Exit;
   end;
 
   oLanConnection := null;
 
   for i := 0 to oNetConnections.items.count - 1do
   begin
      if LowerCase(oNetConnections.items[i].Name) = LowerCase(sConnectionName) then
      begin
         oLanConnection := oNetConnections.items[i];
         break;
      end;
   end;
 
   if oLanConnection = null then
   begin
      MessageDlg(sConnectionName + ' non trouvée', mtWarning, [mbOK], 0);
      Exit;
   end;
 
   bEnabled := true;
 
   oEnableVerb := null;
   oDisableVerb := null;
 
   s := 'Verbs: ' + #13#10;
   for i := 0 to oLanConnection.verbs.Count - 1 do
   begin
     s := s + #13#10 + oLanConnection.verbs[i].name;
 
     if oLanConnection.verbs[i].name = sEnableVerb then
     begin
        oEnableVerb := oLanConnection.verbs[i];
        bEnabled := false;
     end;
 
     if oLanConnection.verbs[i].name = sDisableVerb then
        oDisableVerb := oLanConnection.verbs[i];
   end;
 
   if bEnabled then
   begin
      oLanConnection.invokeverb(sDisableVerb);
      oDisableVerb.DoIt;
   end
   else
   begin
      oLanConnection.invokeverb(sEnableVerb);
      oEnableVerb.DoIt;
   end;
end;

*** Au niveau du IF qui se trouve sous le commentaire, j'ai droit a une superbe erreur : membre introuvable.

Comme la variable est definie en tant que Variant, je n'ai pas le droit au Ctrl+Espace.

Je n'ai rien trouvé sur le sujet en Deplhi...

Merci d'eclairer ma lanterne.

Bonjour,

desole pour la reponse tardive :) mais je viens d'avoir le meme probleme

donc j'ai essayé de debugger ton code

et ca donne ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
procedure TFormMain.SwitchOnOff;
var
   sConnectionName : string;
   sEnableVerb : string;
   sDisableVerb : string;
   shellApp, oControlPanel, oNetConnections, oLanConnection: OleVariant;
 
   i: integer;
   bEnabled: boolean;
   oEnableVerb, oDisableVerb: Variant;
   s: string;
begin
 
   sConnectionName := 'Connexion au réseau local';
 
   sEnableVerb := '&Activer';
   sDisableVerb := '&Désactiver';
 
   shellApp := CreateOleObject('shell.application');
   oControlPanel := shellApp.Namespace(3);
 
   oNetConnections := null;
 
   for i := 0 to oControlPanel.Items.Count - 1 do
   begin
 
      if oControlPanel.Items.item(i).Name = 'Connexions réseau' then
      begin
         oNetConnections := oControlPanel.items.Item(i).getfolder;
         break;
      end;
   end;
 
   if VarIsNull(oNetConnections) then
   begin
      MessageDlg('''Connexions réseau'' non trouvée', mtWarning, [mbOK], 0);
      Exit;
   end;
 
   oLanConnection := null;
 
   for i := 0 to oNetConnections.items.count - 1do
   begin
      if oNetConnections.items.item(i).Name = sConnectionName then
      begin
         oLanConnection := oNetConnections.items.item(i);
         break;
      end;
   end;
 
   if VarIsNull(oLanConnection) then
   begin
      MessageDlg(sConnectionName + ' non trouvée', mtWarning, [mbOK], 0);
      Exit;
   end;
 
   bEnabled := true;
 
   oEnableVerb := null;
   oDisableVerb := null;
 
   s := 'Verbs: ' + #13#10;
   for i := 0 to oLanConnection.verbs.Count - 1 do
   begin
     s := s + #13#10 + oLanConnection.verbs.item(i).name;
     memo1.lines.add(oLanConnection.verbs.item(i).name);
     if oLanConnection.verbs.item(i).name = sEnableVerb then
     begin
        oEnableVerb := oLanConnection.verbs.item(i);
        bEnabled := false;
     end;
 
     if oLanConnection.verbs.item(i).name = sDisableVerb then
        oDisableVerb := oLanConnection.verbs.item(i);
   end;
 
   if bEnabled then
   begin
      oLanConnection.invokeverb(sDisableVerb);
      oDisableVerb.DoIt;
   end
   else
   begin
      oLanConnection.invokeverb(sEnableVerb);
      oEnableVerb.DoIt;
   end;
end;

09/06/2008, 20h24
Droïde Système7

Bonjour,

Je viens de tester sous Vista ce super code, mais une boîte me retourne :
"Connexions réseau non trouvée' :roll:

Mais je n'ai pas neutralisé mon UAC pour approfondir.

Qui d'autre peut m'infirmer ou me confirmer que sous Vista ce code est fonctionnel ?

Merci 8-)