windev 7.5 et wifi
Le
eric

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
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
Quelqu'un peux t'il traduire cela en windev compréhensible
Merci
Eric
eric
On 24 sep, 11:06, eric