begin process at 2012 02 16 08:00:04
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Date & Heure

 > SHUTDOWN/RESTART TIMER

SHUTDOWN/RESTART TIMER


 Information sur la source

Note :
Aucune note
Catégorie :Date & Heure Classé sous :shell, shutdown, arreter, temps, sleep Niveau :Débutant Date de création :26/06/2007 Date de mise à jour :26/06/2007 17:54:50 Vu / téléchargé :9 857 / 731
Auteur : baxter123

Ecrire un message privé
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

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

  • 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 
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



 Historique

26 juin 2007 17:48:47 :
M
26 juin 2007 17:53:10 :
m
26 juin 2007 17:54:51 :
m

 Sources de la même categorie

Source avec Zip Source avec une capture LES FONCTIONS DATE PAR L'EXEMPLE. par pasquet78
Source avec Zip Source avec une capture CALENDRIER, MODE D'EMPLOI par pasquet78
Source avec Zip Source avec une capture Source .NET (Dotnet) HORLOGE DIODE AVEC 3 ALARMES ET REMISE À L'HEURE par EhJoe
Source avec Zip Source avec une capture POINTEUSE HORAIRES PAR SEMAINE par VBNoob13
Source avec Zip Source avec une capture HORLOGE À AIGUILLES SIMPLEMENT DANS UN USERFORM EXCEL par bigbe
Toutes les sources de la catégorie Date & Heure

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) TIMELINE - AVEC EVENTS par madaal
Source avec Zip Source avec une capture UTILISER LES COMMANDES WINDOWS EN VB par Sechaud
Source avec Zip Source avec une capture [VB6 - ACTIVEX] RGWEATHER - LA MÉTÉO SIMPLEMENT DANS VOS APP... par magicgus
Source avec Zip Source avec une capture Source .NET (Dotnet) SIMPLE SHUTDOWN SCHEDULER : ARRÊTS PLANIFIÉS (LOCAL OU REMOT... par violent_ken
Source avec Zip Source avec une capture Source .NET (Dotnet) GESTION DE DONNÉES AVEC ACCESS par fradimed

Commentaires et avis

Commentaire de Nix le 26/06/2007 18:18:49 administrateur CS

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

Commentaire de BruNews le 26/06/2007 19:11:15 administrateur CS

zip invalide.

Commentaire de zavier666 le 26/06/2007 19:57:06

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

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

echo shell [ par lolohtl ] bonjour,j'aimerai recuperer l' "écho d'une commande shell executee"ex: shell("C:\>winnt\system32\ping 10.10.10.1")recuperer l'echoEnvoi d'une requê cherche quelque chose qui peut remplacer api 'sleep' [ par bikette005 ] Bonjour a tousmon probleme est simple mais compliqué à expliquer:je fais un prg vb6 qui simule les frappes d'un utilisateur quelconque sur u [vb.net] commande shell [ par nakata77 ] Bonjour,j'aimerai savoir si c'est possible de connaitre combien de temps va se terminer l'exécutable que j'utilise dans mon programme Shell("cmd.exe / Arreter le temps en franchissant une line [ par franklachance ] Salut je voudrais juste savoir comment je pourrais faire pour faire arreter un chronometre quand on franchi une ligne!! Exemple dans mon projet cest u un brobleme avec shell(shutdown) svp , sous vb8 [ par mokhtarone1 ] salut a tous ( désolé pour les fautes -_-') j sais q c mal placé positionné dans le forum je débute en vb8 et jai rencontrer un probleme sur cette co Shutdown PC d'active directory [ par theju ] Salut a tous,J'essais de faire un petit script pour1 : scanner AD pour trouver les PC d'une OU (ca ca marche correctement)2 Utiliser cette liste pour arreter un programme [ par kazer04 ] salut a tous comme il est possible de executer  un  .exe grace au shell je me demaide si reciproquement il etait possible d'a rafraichir une DataGrid [ par Soulant ] Bonjour,J'ai une datagrid qui fonctionne avec un adodc et lorsque je modifie ma table depuis en faisant une requete depuis mon appli vb je fais adodc. Progressbar + datagrid [ par Poulain51 ] Bon, j'explique mon problème:J'ai un datagrid, une progressbar, dans mon datagrid, j'ai des données qui viennent d'une base accessil y  winzip compression avertissement [ par Jomba ] lorsque je compresse toute une série de fichier avec un shell sur winzip, j'obtient à la fin un message d'avertissement car l'un des fichier


Nos sponsors


Sondage...

Comparez les prix


Acer Liquid (noir) (XP.H480Q.013)
Entre 300€ et 346€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Monument Valley Utah known as The Mittens
Photo Multiple Buttes of Monument Valley 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,515 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)