windev 7.5 et wifi

bonjour,
je chreche à éteindre et allumer le wifi sur un portable ,
systême windows 7 familial
windev 7.5

j'ai trouvé ce bout de code sur un forum dotnet,


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

---

• Partager ce contenu :