Discussion :

[js8bleu]

Bonjour à tous,

j'aimerai connaître le code qui me permettrait d'éteindre une machine tous les jours à 5H00 s'il vous plaît.

Merci d'avance.

Cordialement.

[ProgElecT]

Il faut ..... penser à rechercher dans la FAQ VB6, ici Comment arrêter ou bien redémarrer le système ?

[developpeuse20]

Salut

Sur un Form, deux Command ,CommandButton1,CommandButton2, 1 TextBox et 1 Label ,deux Timer Timer1,Timer2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Option Explicit
Dim s As Integer
 
Private Sub Form_Load()
 
Label2.Caption = Time
 
Private Sub Command1_Click()
 
If MsgBox("Are you sure!!!!!", vbYesNo, "Confirm")= vbYes Then
If Text1.Text <> " " Then
Shell ("Shutdown -s -t " & Text1.Text)
 
s=1
 
Else
 
MsgBox ("Insert un nombre dans le Text Box ")
End If
End If
 
End Sub
 
Private Sub Command2_Click()
 
Shell (" Shutdown -a")
End Sub
 
Private Sub Timer1_Timer()
 
If s=1 Then
 
Command2.Enabled = True
 
Else
 
Command1.Enabled = False
End If
End Sub
 
Private Sub Timer1_Timer()
Label2.Caption = Time
End Sub

Je m'inspirer de la Commande du Shell "Windows"

En Cliquant sur la Combinaison "Démarrer + R" Puis Taper "CMD" Une fois dans Shell Taper "Shutdown" Voila .....Plus de détail

A Bientôt