Discussion :

[Barbu15-95]

Bonjour,
je suis sous VB6 et W98
Dans une application j'ai une bouton arrêt PC:
Le code est le suivant :

Code :

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

1
2
3
4
5
6
7
 
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Declare Function ExitWindows Lib "user32" (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long
___________________________________
Private Sub Command5_Click()
ret = Shell("rundll32.exe user.exe, exitwindows")
End Sub

J'ai le message :

Erreur dans user.exe
Entrée manquante

je vois pas ou j'ai fait une erreur .
Merci de votre aide

[ThierryAIM]

Code :

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

1
2
3
4
5
6
Private Declare Function ExitWindows Lib "user32" alias "ExitWindowsEx" _
         (ByVal uFlags as Long, ByVal dwReserved as Long) as Long
 
Private Sub Command5_Click()
    Ret = ExitWindows(0&, 0&)
End Sub