[VB6] Spegnimento PC

[Lupin]

Salve
Ho creato due text box, in una compare l'ora con la funzione time e nell'altra che l'ho lasciata vuota vorrei che aggiungendo a mano un'ora di mia scelta si spegnesse il computer. La routine per lo spegimento è la seguente:

Private Sub Text2_Change()
If Text2.Text = Text1.Text Then
Shell "C:\Windows\system32\shutdown.exe -s -t -f 20"
End If
End Sub

Private Sub Timer1_Timer()
Text1.Text = Time
End Sub

Le due textbox non interagiscono, cosa ho sbagliato?

[oregon]

La If deve essere eseguita all'interno dell'evento timer ...

... e i parametri dello shutdown non sono corretti ...

[alka]

Originariamente inviato da Lupin
Salve

Suppongo si tratti di VB6, tuttavia il linguaggio deve essere specificato anche nel titolo, come da Regolamento.

Fai più attenzione in futuro.

Ciao!

[XWolverineX]

Mmm, utilizza questo programma (fatto da me )

Per prima cosa crea due textbox (orario e orariospegnimento) e un timer (tempo). Aggiungi anche un command button (avvia) A scelta puoi mettere delle label

'Dichiarazioni
Public Const EWX_SHUTDOWN = 1 
Public Const EWX_FORCE = 4

Declare Function ExitWindowsEx Lib "user32" Alias _
"ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved _
As Long) As Long

Private Sub Form_Load
Tempo.Enabled = False
Tempo.Interval = 6000
Orario.Text = Time
End Sub

Private Sub Avvia_Click
If OrarioSpegnimento.Text = "" Then
 MsgBox "Non hai inserito nessun orario"
 Exit Sub
End If
Timer1.Enabled = True
OrarioSpegnimento.Locked = True
End Sub

Private Sub Tempo_Timer
 If Me.OrarioSpegnimento.Text = Time
 t& = ExitWindowsEx(EWX_FORCE OR EWX_SHUTDOWN, 0)
End Sub

Mmm ovviamente devi mettere un decente controllo se l'orario inserito è corretto (deve essere OO.MM.SS in ogni caso.)
Il fatto è abbastanza rudimentale: dato che fa un'uguaglianza a livello di carattere, gli orari devono coincidere anche come formato(10:25:10 non è uguale a 10.25.10)
A te perfezionare il mio abbozzo

[Lupin]

Grazie per l'aiuto.
Mi scuso con il moderatore.

[Lupin]

Salve
Inserendo questa stringa Shell ("Shutdown -S -F -T 0") ottengo lo spegnimento immediato del pc, se volessi fare un reboot quale stringa dovrei aggiungere al mio programma?
Ho provato con:Shell ("Shutdown -R -F -T 0") ma non funziona

[oregon]

Le opzioni sono in minuscolo ...

Perche' non leggi l'help ?

Shutdown /?

[kalosjo]

Ecco un modo molto semplice per fare quello che chiedi (spegnimento e riavvio) LINK

[Lupin]

Ho provato il codice del link, ma non succede niente.
Ciao

[kalosjo]

Infatti non funziona con windows xp..... mi sono documentato.....