Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Executable pour redemarrer

Executable pour redemarrer

5 réponses
Avatar
kevin
Bonjour, jaimerai connaitre les commandes sous vb pour
faire un excutable permettant de redemmarrer la machine
quand on la lance
Signaler un problème avec ce contenu

5 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
jean-marc
"kevin" wrote in message
news:072101c49647$2d8853d0$
Bonjour, jaimerai connaitre les commandes sous vb pour
faire un excutable permettant de redemmarrer la machine
quand on la lance



Hello,
VB n'a pas de "commandes" pour faire ça. En revanche, VB sait appeler une
API de Windows pour le faire.
l' API en question est:

Private Declare Function ExitWindowsEx Lib "user32" _
(ByVal dwOptions As Long, _
ByVal dwReserved As Long) As Long

et la mise en oeuvre:
http://support.microsoft.com/?kbid8796

--
Jean-marc
Avatar
le_troll
Bonjour, voici un "reset hot"

Private Declare Function ExitWindowsEx Lib "user32" _

(ByVal uFlags As Long, ByVal dwReserved As Long) As Long

'

Dim retour As Long

retour = ExitWindowsEx(2, 0)

Unload Me


--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"kevin" a écrit dans le message de
news:072101c49647$2d8853d0$
Bonjour, jaimerai connaitre les commandes sous vb pour
faire un excutable permettant de redemmarrer la machine
quand on la lance


Avatar
kevin
J'ai essayer les deux cas mais ca ne marche pas du tout
l'ordinateur ne redémarre pas. Dans le cas ou il y a un
module cela me met " Running Windows NT or Windows 2000 "
mais c'est tout.
Est ce possible de le faire avec un executable plus simple
et que ca marche?
Avatar
le_troll
Tiens, envois lui tout ça dans les dents :

'GESTION DE WINDOWS

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long,
ByVal dwReserved As Long) As Long

'

Dim retour As Long

'

'Tout fermer sans quitter Windows

retour = ExitWindowsEx(0, 0)

Unload Me End



'Et. couper l'alimentation si la chose est possible

retour = ExitWindowsEx(1, 0)

Unload Me End



'Reset hot

retour = ExitWindowsEx(2, 0)

Unload Me



'Fermer les applications qui ne répondent plus sans quitter

Retour = ExitWindowsEx(4, 0)

Unload Me


--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"kevin" a écrit dans le message de
news:8f1a01c4967c$0a5dd850$
J'ai essayer les deux cas mais ca ne marche pas du tout
l'ordinateur ne redémarre pas. Dans le cas ou il y a un
module cela me met " Running Windows NT or Windows 2000 "
mais c'est tout.
Est ce possible de le faire avec un executable plus simple
et que ca marche?
Avatar
jean-marc
"kevin" wrote in message
news:8f1a01c4967c$0a5dd850$
J'ai essayer les deux cas mais ca ne marche pas du tout
'ordinateur ne redémarre pas. Dans le cas ou il y a un
module cela me met " Running Windows NT or Windows 2000 "
mais c'est tout.
Est ce possible de le faire avec un executable plus simple
t que ca marche?



Hello,

non, car ce genre de bisouille est "system dependant".

--
Jean-marc