Discussion :

[zitoun]

Salut,
Je veut pour des raisons d'economies de batterie desactiver ma carte WIFI si je n'en ai pas besoin...
Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private myAdaptor as OpenNETCF.Net.Adapter
 
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim oCol As OpenNETCF.Net.AdapterCollection = OpenNETCF.Net.Networking.GetAdapters()
       Dim a As OpenNETCF.Net.Adapter
       For Each a In oCol
           If a.IsWireless Then
               myAdaptor = a
           End If
       Next
End Sub
 
 
 
Private Sub WifiOff()
       myAdaptor.UnBindAdapter()
End Sub
 
Private Sub WifiOn()
       myAdaptor.BindAdapter()
End Sub

Mais voilà mon problème:
Au démarrage de mon Form1, si le Wifi est actif il nya pas de problème tout fonctionne à merveille, mais si au démarrage de mon Form1 le Wifi est inactif alors le programme ne détecte pas de OpenNETCF.Net.Adapter, donc la variable myAdaptor ne sera pas instanciée et donc le programme plante NullReferenceExeption...
Quelqu'un peut-il m'aider...en me corrigeant ou même en me proposant une autre solution...Merci d'avance

[freddyboy]

fait juste un test sur ta variable pour voir si elle est null.if (myAdaptor != null) ...

@+

[zitoun]

fait juste un test sur ta variable pour voir si elle est null.if (myAdaptor != null) ...

@+

Désolé, je n'ai pas été assez clair, ce n'est pas ça mon probleme.
Mon problème c'est que lorsque je demarre mon programme avec le WIFI inactif, je n'ai plus la possibilité de l'activer car je ne peux pas le détecter.
J'espere que c'est clair.
Merci quand même.
Je suis toujour à la recherche de solution.

[zitoun]

Entre temps j'ai trouvé une autre astuce pour désactiver mon WIFI (Super!!! ):

Pour désactiver mon chèr WIFI il faut ajouter cette entrée dans la base des registres: [HKEY_LOCAL_MACHINE\Comm\NdisPower]<adapterName>=dword:4
et pour le réactiver je n'ai qu'à supprimer cette entrée.

Mais voilà que je me trouve conforonté à un autre problème (Non! Encore? ):

les modification de la base des registre ne sont prises en compte que si je redemarre mon PDA ( j'appuie 2 foi sur le bouton power ).
Est ce que quelqu'un sait comment s'en passer (redemmarer le PDA) car c'est contraignant pour l'utilisateur.

[zitoun]

Bon,
Je me suis débrouillé tout seul comme un grand :trouve: ...
Bref, pour desactiver le cher WIFI de votre PDA, il faut faire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
   Private Declare Function DevicePowerNotify Lib "coredll.dll" (ByVal name As String, ByVal state As PowerState, ByVal flags As Integer) As Integer
    Private Declare Function SetDevicePower Lib "coredll.dll" (ByVal name As String, ByVal flags As Integer, ByVal state As PowerState) As Integer
 
 
Private Enum PowerState
     PwrDeviceUnspecified = -1
     D0 = 0 'full on
     D1 = 1 'low power
     D2 = 2 'standby
     D3 = 3 'sleep
     D4 = 4 'off
     PwrDeviceMaximum = 5
End Enum
Private Sub WifiOn()
    DevicePowerNotify("{98C5250D-C29A-4985-AE5F-AFE5367E5006}\WLAGS46F1", PowerState.D0, 1)                 SetDevicePower("{98C5250D-C29A-4985-AE5F-AFE5367E5006}\WLAGS46F1", 1, PowerState.D0)
End Sub
Privaye Sub WifiOff()
    DevicePowerNotify("{98C5250D-C29A-4985-AE5F-AFE5367E5006}\WLAGS46F1", PowerState.D4, 1)                  SetDevicePower("{98C5250D-C29A-4985-AE5F-AFE5367E5006}\WLAGS46F1", 1, PowerState.D4)
End Sub

WLAGS46F1: OpenNETCF.Net.Adapter.Name()
{98C5250D-C29A-4985-AE5F-AFE5367E5006}:Franchement je ne sais pas à quoi ça correspond exactelent, mais ça fonctionne. il se trouve à la base des registre à l'adresse suivante:
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Power\Suspend
Si qlq sais de quoi il s'agit qu'il mexplique...
Merci Pour tous...

[freddyboy]

@+