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 arrêter le PC

arrêter le PC

13 réponses
Avatar
big
Bonjour;
je cherche un bout de code VB qui arrêtra le PC. Merci d'avance.
Signaler un problème avec ce contenu

10 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
1 2
Avatar
Kiriasse
Utiliser la fonction de l'API Windows :
Public Declare Function ExitWindowsEx Lib "user32" ( _
ByVal uFlags As Long, _
ByVal dwReserved As Long _
) As Long

== "big" a écrit dans le message de news:

Bonjour;
je cherche un bout de code VB qui arrêtera le PC. Merci d'avance.


Avatar
LE TROLL
Et même qu'après il faut mettre la suite:

Dim retour As Long
retour = ExitWindowsEx(1, 0)
Unload Me End
-------------------

"Kiriasse" a écrit dans le message de news:
420cabbb$0$817$
Utiliser la fonction de l'API Windows :
Public Declare Function ExitWindowsEx Lib "user32" ( _
ByVal uFlags As Long, _
ByVal dwReserved As Long _
) As Long

== > "big" a écrit dans le message de news:

Bonjour;
je cherche un bout de code VB qui arrêtera le PC. Merci d'avance.





Avatar
ng
> Unload Me End


On evitera qd mm le end.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

LE TROLL wrote:
Et même qu'après il faut mettre la suite:

Dim retour As Long
retour = ExitWindowsEx(1, 0)
Unload Me End
-------------------

"Kiriasse" a écrit dans le message de news:
420cabbb$0$817$
Utiliser la fonction de l'API Windows :
Public Declare Function ExitWindowsEx Lib "user32" ( _
ByVal uFlags As Long, _
ByVal dwReserved As Long _
) As Long

== >> "big" a écrit dans le message de
news:
Bonjour;
je cherche un bout de code VB qui arrêtera le PC. Merci d'avance.






Avatar
Kiriasse
Ou le Unload Me.


== "ng" a écrit dans le message de news:

Unload Me End


On evitera qd mm le end.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

LE TROLL wrote:
Et même qu'après il faut mettre la suite:

Dim retour As Long
retour = ExitWindowsEx(1, 0)
Unload Me End
-------------------

"Kiriasse" a écrit dans le message de news:
420cabbb$0$817$
Utiliser la fonction de l'API Windows :
Public Declare Function ExitWindowsEx Lib "user32" ( _
ByVal uFlags As Long, _
ByVal dwReserved As Long _
) As Long

== >>> "big" a écrit dans le message de
news:
Bonjour;
je cherche un bout de code VB qui arrêtera le PC. Merci d'avance.










Avatar
LE TROLL
Ah non, si tu mets le "end" il va devenir tout rouge de colère :o)
---------

"Kiriasse" a écrit dans le message de news:
420cdce9$0$19429$
Ou le Unload Me.


== > "ng" a écrit dans le message de news:

Unload Me End


On evitera qd mm le end.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

LE TROLL wrote:
Et même qu'après il faut mettre la suite:

Dim retour As Long
retour = ExitWindowsEx(1, 0)
Unload Me End
-------------------

"Kiriasse" a écrit dans le message de news:
420cabbb$0$817$
Utiliser la fonction de l'API Windows :
Public Declare Function ExitWindowsEx Lib "user32" ( _
ByVal uFlags As Long, _
ByVal dwReserved As Long _
) As Long

== >>>> "big" a écrit dans le message de
news:
Bonjour;
je cherche un bout de code VB qui arrêtera le PC. Merci d'avance.













Avatar
Kiriasse
J'évitais moi aussi le End selon le bon principe que si l'on doit utiliser
End pour qu'une application soit réellement complètement fermée c'est que
quelque chose ne colle pas dans le Query Unload ou le Unload.
Mais « on » m'a dit que les Unload sont plus faciles à repérer par les
pirates que les End (quand on programme l'arrêt de son application pour des
raisons de protection).
Kiriasse
www.kiriasse.fr

== "LE TROLL" <le a écrit dans le message de news:
%
Ah non, si tu mets le "end" il va devenir tout rouge de colère :o)
---------

"Kiriasse" a écrit dans le message de news:
420cdce9$0$19429$
Ou le Unload Me.


== >> "ng" a écrit dans le message de news:

Unload Me End


On evitera qd mm le end.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

LE TROLL wrote:
Et même qu'après il faut mettre la suite:

Dim retour As Long
retour = ExitWindowsEx(1, 0)
Unload Me End
-------------------

"Kiriasse" a écrit dans le message de news:
420cabbb$0$817$
Utiliser la fonction de l'API Windows :
Public Declare Function ExitWindowsEx Lib "user32" ( _
ByVal uFlags As Long, _
ByVal dwReserved As Long _
) As Long

== >>>>> "big" a écrit dans le message de
news:
Bonjour;
je cherche un bout de code VB qui arrêtera le PC. Merci d'avance.












Avatar
Aski
Bonsoir,

De toutes façons, je ne vois pas comment sortir d'une gestion d'erreur
critique sans utiliser End.

Aski

"Kiriasse" a écrit dans le message de
news:420cf09f$0$808$
J'évitais moi aussi le End selon le bon principe que si l'on doit utiliser
End pour qu'une application soit réellement complètement fermée c'est que
quelque chose ne colle pas dans le Query Unload ou le Unload.
Mais « on » m'a dit que les Unload sont plus faciles à repérer par les
pirates que les End (quand on programme l'arrêt de son application pour


des
raisons de protection).
Kiriasse
www.kiriasse.fr

== > "LE TROLL" <le a écrit dans le message de news:
%
> Ah non, si tu mets le "end" il va devenir tout rouge de colère :o)
> ---------
>
> "Kiriasse" a écrit dans le message de news:
> 420cdce9$0$19429$
>> Ou le Unload Me.
>>
>>
>> == > >> "ng" a écrit dans le message de news:
>>
>>>> Unload Me End
>>> On evitera qd mm le end.
>>>
>>> --
>>> Nicolas G.
>>> FAQ VB : http://faq.vb.free.fr
>>> API Guide : http://www.allapi.net
>>> Google Groups : http://groups.google.fr/
>>> MZ-Tools : http://www.mztools.com/
>>>
>>> LE TROLL wrote:
>>>> Et même qu'après il faut mettre la suite:
>>>>
>>>> Dim retour As Long
>>>> retour = ExitWindowsEx(1, 0)
>>>> Unload Me End
>>>> -------------------
>>>>
>>>> "Kiriasse" a écrit dans le message de news:
>>>> 420cabbb$0$817$
>>>>> Utiliser la fonction de l'API Windows :
>>>>> Public Declare Function ExitWindowsEx Lib "user32" ( _
>>>>> ByVal uFlags As Long, _
>>>>> ByVal dwReserved As Long _
>>>>> ) As Long
>>>>>
>>>>> == > >>>>> "big" a écrit dans le message de
>>>>> news:
>>>>>> Bonjour;
>>>>>> je cherche un bout de code VB qui arrêtera le PC. Merci d'avance.



Avatar
Laurent
Je croix que si tu arrives sur une erreur critique, c'est parce qu'un
travail de développement et a révoir...

Laurent

"Aski" a écrit dans le message de news:
O$
Bonsoir,

De toutes façons, je ne vois pas comment sortir d'une gestion d'erreur
critique sans utiliser End.

Aski

"Kiriasse" a écrit dans le message de
news:420cf09f$0$808$
> J'évitais moi aussi le End selon le bon principe que si l'on doit


utiliser
> End pour qu'une application soit réellement complètement fermée c'est


que
> quelque chose ne colle pas dans le Query Unload ou le Unload.
> Mais « on » m'a dit que les Unload sont plus faciles à repérer par les
> pirates que les End (quand on programme l'arrêt de son application pour
des
> raisons de protection).
> Kiriasse
> www.kiriasse.fr
>
> == > > "LE TROLL" <le a écrit dans le message de news:
> %
> > Ah non, si tu mets le "end" il va devenir tout rouge de colère :o)
> > ---------
> >
> > "Kiriasse" a écrit dans le message de news:
> > 420cdce9$0$19429$
> >> Ou le Unload Me.
> >>
> >>
> >> == > > >> "ng" a écrit dans le message de news:
> >>
> >>>> Unload Me End
> >>> On evitera qd mm le end.
> >>>
> >>> --
> >>> Nicolas G.
> >>> FAQ VB : http://faq.vb.free.fr
> >>> API Guide : http://www.allapi.net
> >>> Google Groups : http://groups.google.fr/
> >>> MZ-Tools : http://www.mztools.com/
> >>>
> >>> LE TROLL wrote:
> >>>> Et même qu'après il faut mettre la suite:
> >>>>
> >>>> Dim retour As Long
> >>>> retour = ExitWindowsEx(1, 0)
> >>>> Unload Me End
> >>>> -------------------
> >>>>
> >>>> "Kiriasse" a écrit dans le message de news:
> >>>> 420cabbb$0$817$
> >>>>> Utiliser la fonction de l'API Windows :
> >>>>> Public Declare Function ExitWindowsEx Lib "user32" ( _
> >>>>> ByVal uFlags As Long, _
> >>>>> ByVal dwReserved As Long _
> >>>>> ) As Long
> >>>>>
> >>>>> == > > >>>>> "big" a écrit dans le message de
> >>>>> news:
> >>>>>> Bonjour;
> >>>>>> je cherche un bout de code VB qui arrêtera le PC. Merci d'avance.
>




Avatar
Zoury
Exact... par du principe que la fonction End() ne devrait même plus exister.
Elle ne libère pas les ressources correctement à tous les coups et peut
faire en sorte que ton programme reste "prit" en mémoire sans que tu t'en
rendre compte...

Si tu libères tous tes objets correctement et que ferme tous tes
connections, fichiers et timers, ton programme devrait se fermer sans
problème.

--
Cordialement
Yanick
MVP pour Visual Basic
"Laurent" a écrit dans le message de
news:420d0921$0$808$
Je croix que si tu arrives sur une erreur critique, c'est parce qu'un
travail de développement et a révoir...

Laurent

"Aski" a écrit dans le message de news:
O$
> Bonsoir,
>
> De toutes façons, je ne vois pas comment sortir d'une gestion d'erreur
> critique sans utiliser End.
>
> Aski
>
> "Kiriasse" a écrit dans le message de
> news:420cf09f$0$808$
> > J'évitais moi aussi le End selon le bon principe que si l'on doit
utiliser
> > End pour qu'une application soit réellement complètement fermée c'est
que
> > quelque chose ne colle pas dans le Query Unload ou le Unload.
> > Mais « on » m'a dit que les Unload sont plus faciles à repérer par les
> > pirates que les End (quand on programme l'arrêt de son application


pour
> des
> > raisons de protection).
> > Kiriasse
> > www.kiriasse.fr
> >
> > == > > > "LE TROLL" <le a écrit dans le message de news:
> > %
> > > Ah non, si tu mets le "end" il va devenir tout rouge de colère :o)
> > > ---------
> > >
> > > "Kiriasse" a écrit dans le message de news:
> > > 420cdce9$0$19429$
> > >> Ou le Unload Me.
> > >>
> > >>
> > >> == > > > >> "ng" a écrit dans le message de news:
> > >>
> > >>>> Unload Me End
> > >>> On evitera qd mm le end.
> > >>>
> > >>> --
> > >>> Nicolas G.
> > >>> FAQ VB : http://faq.vb.free.fr
> > >>> API Guide : http://www.allapi.net
> > >>> Google Groups : http://groups.google.fr/
> > >>> MZ-Tools : http://www.mztools.com/
> > >>>
> > >>> LE TROLL wrote:
> > >>>> Et même qu'après il faut mettre la suite:
> > >>>>
> > >>>> Dim retour As Long
> > >>>> retour = ExitWindowsEx(1, 0)
> > >>>> Unload Me End
> > >>>> -------------------
> > >>>>
> > >>>> "Kiriasse" a écrit dans le message de news:
> > >>>> 420cabbb$0$817$
> > >>>>> Utiliser la fonction de l'API Windows :
> > >>>>> Public Declare Function ExitWindowsEx Lib "user32" ( _
> > >>>>> ByVal uFlags As Long, _
> > >>>>> ByVal dwReserved As Long _
> > >>>>> ) As Long
> > >>>>>
> > >>>>> == > > > >>>>> "big" a écrit dans le message de
> > >>>>> news:
> > >>>>>> Bonjour;
> > >>>>>> je cherche un bout de code VB qui arrêtera le PC. Merci


d'avance.
> >
>
>




Avatar
Armando R.
Bonjour a tous,

Justement !... j'ai moi aussi un problème de déchargement de mon programme.
Mais, comment déchargent on un Timer ?



"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:
Exact... par du principe que la fonction End() ne devrait même plus
exister.
Elle ne libère pas les ressources correctement à tous les coups et peut
faire en sorte que ton programme reste "prit" en mémoire sans que tu t'en
rendre compte...

Si tu libères tous tes objets correctement et que ferme tous tes
connections, fichiers et timers, ton programme devrait se fermer sans
problème.

--
Cordialement
Yanick
MVP pour Visual Basic
"Laurent" a écrit dans le message de
news:420d0921$0$808$
Je croix que si tu arrives sur une erreur critique, c'est parce qu'un
travail de développement et a révoir...

Laurent

"Aski" a écrit dans le message de news:
O$
> Bonsoir,
>
> De toutes façons, je ne vois pas comment sortir d'une gestion d'erreur
> critique sans utiliser End.
>
> Aski
>
> "Kiriasse" a écrit dans le message de
> news:420cf09f$0$808$
> > J'évitais moi aussi le End selon le bon principe que si l'on doit
utiliser
> > End pour qu'une application soit réellement complètement fermée c'est
que
> > quelque chose ne colle pas dans le Query Unload ou le Unload.
> > Mais « on » m'a dit que les Unload sont plus faciles à repérer par
> > les
> > pirates que les End (quand on programme l'arrêt de son application


pour
> des
> > raisons de protection).
> > Kiriasse
> > www.kiriasse.fr
> >
> > == >> > > "LE TROLL" <le a écrit dans le message de news:
> > %
> > > Ah non, si tu mets le "end" il va devenir tout rouge de colère :o)
> > > ---------
> > >
> > > "Kiriasse" a écrit dans le message de news:
> > > 420cdce9$0$19429$
> > >> Ou le Unload Me.
> > >>
> > >>
> > >> == >> > > >> "ng" a écrit dans le message de news:
> > >>
> > >>>> Unload Me End
> > >>> On evitera qd mm le end.
> > >>>
> > >>> --
> > >>> Nicolas G.
> > >>> FAQ VB : http://faq.vb.free.fr
> > >>> API Guide : http://www.allapi.net
> > >>> Google Groups : http://groups.google.fr/
> > >>> MZ-Tools : http://www.mztools.com/
> > >>>
> > >>> LE TROLL wrote:
> > >>>> Et même qu'après il faut mettre la suite:
> > >>>>
> > >>>> Dim retour As Long
> > >>>> retour = ExitWindowsEx(1, 0)
> > >>>> Unload Me End
> > >>>> -------------------
> > >>>>
> > >>>> "Kiriasse" a écrit dans le message de news:
> > >>>> 420cabbb$0$817$
> > >>>>> Utiliser la fonction de l'API Windows :
> > >>>>> Public Declare Function ExitWindowsEx Lib "user32" ( _
> > >>>>> ByVal uFlags As Long, _
> > >>>>> ByVal dwReserved As Long _
> > >>>>> ) As Long
> > >>>>>
> > >>>>> == >> > > >>>>> "big" a écrit dans le message
> > >>>>> de
> > >>>>> news:
> > >>>>>> Bonjour;
> > >>>>>> je cherche un bout de code VB qui arrêtera le PC. Merci


d'avance.
> >
>
>








1 2