5/5 (7 avis)
Vue 9 319 fois - Téléchargée 432 fois
Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Visible = False MsgBox "L' ordinateur s' arretera à: " & Text2.Text, vbInformation, "CONFIRMATION" Timer2_Timer End Sub Private Sub Command3_Click() Text2.Text = "" End Sub Private Sub Timer1_Timer() Text1.Text = Time End Sub Private Sub Timer2_Timer() If Text1.Text = Text2.Text Then Shell "rundll32.exe krnl386.exe,exitkernel" End If End Sub
4 avril 2003 à 17:52
et pour areter la procedure faire shutdown -a (comme abort)
et si les newbies font ca c passke c pa trop difficile pour débuter... je parle en connaissance de cause... et pui si ta d idées de progs a faire... donne les moi... je suis en rade...
1 avril 2003 à 20:48
c'est
c:windows
undll32.exe user.exe,exitwindows
31 mars 2003 à 21:24
c:windows
undll32.exe user.exe,exitwindows
27 févr. 2002 à 18:29
12 janv. 2002 à 11:36
Pour la commande, la mienne marche super alors......
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.