Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement WinDev windev 7.5 et wifi

windev 7.5 et wifi

2 réponses
Avatar
eric
bonjour,
je chreche =E0 =E9teindre et allumer le wifi sur un portable ,
syst=EAme windows 7 familial
windev 7.5

j'ai trouv=E9 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 =3D -1
D0 =3D 0 'full on
D1 =3D 1 'low power
D2 =3D 2 'standby
D3 =3D 3 'sleep
D4 =3D 4 'off
PwrDeviceMaximum =3D 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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
eric
On 24 sep, 11:05, eric wrote:

Quelqu'un peux t'il traduire cela en windev compréhensible
Merci
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" (ByVa l
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
Avatar
eric
Finalement j'utiliserai la commande devcon

eric


On 24 sep, 11:06, eric wrote:
On 24 sep, 11:05, eric wrote:

Quelqu'un peux t'il traduire cela en windev compréhensible
Merci
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" (By Val
> name As String, ByVal state As PowerState, ByVal flags As Integer) As
> Integer
>     Private Declare Function SetDevicePower Lib "coredll.dll" (ByVa l
> 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