Shutdown/restart timer

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 810 fois - Téléchargée 819 fois

Contenu du snippet

Mon code vous permet de mettre le nombre d'heures et de minutes dans lequel vous voulez eteindre votre ordinateur. Mais je le fait de façon originale car je n'utilise pas de timer ni gettickcount. Ne telecharger pas le zip parce qu'il ne marche pas mais je ne sais pas comment l'enlever. Si vous voulez utiliser le code, faite une form avec:

3 option (Shutdown option1, Restart option2, Log Out option3)
2 textbox (text1 le nombre d'heures, text2 le nombre de minutes)
2 command (Start timer command1 et Stop Timer command2)

Je vous conseille de metre les Label A coté de chaque option et textbox pour vous souvenir ce qu'ils font.
Puis copier ce code dedans et voila

Source / Exemple :


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
    
    If Option1 = True Then
     
        Open "c:\documents and settings\all users\shutdwnt.bat" For Append As 1 'open the file
        
            Print #1, "@echo off"           'write the code in the file
            Print #1, "shutdown -s -f -t"; Text2.Text * 60 * 60 + Text1.Text * 60
        
        Close
       
        Shell ("c:\documents and settings\all users\shutdwnt.bat") 'run the file
        Sleep (5000) 'wait to delete file
        Kill ("c:\documents and settings\all users\shutdwnt.bat") 'delete the file
        
        End If
        
        
    If Option2 = True Then
    
    
        Open "c:\documents and settings\all users\shutdwnt.bat" For Append As 1 'open the file
        
            Print #1, "@echo off"           'write the code in the file
            Print #1, "shutdown -r -f -t"; Text2.Text * 60 * 60 + Text1.Text * 60
        
        Close
       
        Shell ("c:\documents and settings\all users\shutdwnt.bat") 'run the file
        Sleep (5000) 'wait to delete file
        Kill ("c:\documents and settings\all users\shutdwnt.bat") 'delete the file
    
        End If
        
     If Option3 = True Then
     
     
        Open "c:\documents and settings\all users\shutdwnt.bat" For Append As 1 'open the file
        
            Print #1, "@echo off"           'write the code in the file
            Print #1, "shutdown -l -f -t"; Text2.Text * 60 * 60 + Text1.Text * 60
        
        Close
       
        Shell ("c:\documents and settings\all users\shutdwnt.bat") 'run the file
        Sleep (5000) 'wait to delete file
        Kill ("c:\documents and settings\all users\shutdwnt.bat") 'delete the file
        
        End If

        
End Sub

Private Sub Command2_Click()
    Shell ("shutdown -a")
End Sub

A voir également

Ajouter un commentaire Commentaires
Messages postés
266
Date d'inscription
mardi 7 septembre 2004
Statut
Membre
Dernière intervention
30 avril 2009
1
C'est peut-être original, mais c'est pas vraiment du VB...

En tout cas le code est propre, et cela peut toujours servir.

slts!

---------------------------------------------
Toujours + de VB et d'API => APi @ la Loupe
http://apialaloupe.free.fr
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
28
zip invalide.
Messages postés
831
Date d'inscription
samedi 15 mai 1999
Statut
Modérateur
Dernière intervention
18 juillet 2009

Merci de mettre à jour ton zip qui est un exe...

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.