Soyez le premier à donner votre avis sur cette source.
Vue 3 571 fois - Téléchargée 447 fois
Voir le zip 'New : mise à jour : 'pour Fermer Windows ss WinXp : 'Ds un module, mettre Declare Function ExitWindows Lib "user32" Alias "ExitWindowsEx" (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long 'ensuite, lorsque WinXp doit fermer mettre Call ExitWindows(4, dwReserved) 'En fait, cela n'éteind pas l'ordi mais ferme la session. C déjà pas mal.
28 avril 2003 à 23:23
28 avril 2003 à 22:40
un pti' 9/10 ;)
Pour eteindre, essaye plutot ExitWindowsEx que ExitWindows comme ceci :
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub ExWin()
' Pour rebooter en FORCANT le "quitage" (???) des autres appli'
call ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
' ou encore
' pour ETEINDRE le PC toujours "en forcant"
call ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
' et enfin
' pour seulement fermer la session
call ExitWindowsEx(EWX_FORCE Or EWX_LOGOFF, 0)
End Sub
10 juil. 2002 à 22:19
je plaisanttttttte!!! bon c'est mon humour linuxien vu ue je suis sous vb que depuis quelque semaine et je dois dire que ce langage est top cool
comme quoi la simplicité peut etre efficace
8 juil. 2002 à 14:18
Ca marche super bien.
Par contre Si qq'un d'autre sait comment éteindre la machine ss WinXp, merci d'avance.
1 juil. 2002 à 23:23
tu mérite 9/10 pour ton appli.
rendre une apli invisible : app.taskvisible=false (ca equivaut à la rendre 'service')
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.