[VB.NET] Spegnimento del PC

[tony83]

Ho riscontrato dei problemi usando infatti lo shutdown
Ma non so se effetti dipende da quello...

Se faccio partire il software e esegue lo shutdown infatti chiude il pc quindi funziona, solo che lasciandolo acceso per tanto tempo, e effettuando shutdown dopo qualche ora, mi ritrovo che qualcosa non funziona... Il programma non fa il lavoro suo.. Ho tolto lo screensaver, risarmio energetico, tutto... eppure si blocca!il software non chiude il pc.. qualcosa non và. :rollo:

[alka]

Originariamente inviato da tony83
il software non chiude il pc.. qualcosa non và. :rollo:

Codice... codice... codice... codice... codice... codice... codice... :rollo:

[tony83]

Public Class frm_connessione

Private Sub btt_attiva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt_attiva.Click
txt_stato.Text = "Attivato"
txt_dataOra.Text = Date.Now
tmr_motore.Enabled = True
End Sub

Private Sub btt_disattiva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt_disattiva.Click
txt_stato.Text = "Disattivato"
txt_dataOra.Clear()
tmr_motore.Enabled = False
End Sub

Private Sub btt_conferma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt_conferma.Click
Me.WindowState = FormWindowState.Minimized
End Sub

Private Sub frm_connessione_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If MessageBox.Show("Confermi la chiusura del software?", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.OK Then
End
Else
e.Cancel = True
End If
End Sub

Private Sub tmr_motore_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr_motore.Tick
txt_dataOra.Text = Date.Now
If Date.Today.DayOfWeek > 0 And Date.Today.DayOfWeek < 6 Then

If CDate(Date.Now) >= CDate(Date.Today & " 05:50:00am") And CDate(Date.Now) <= CDate(Date.Today & " 06:00:00am") Then
Try
txt_stato.Text = "Disattivato"
txt_dataOra.Clear()
tmr_motore.Enabled = False

System.Diagnostics.Process.Start(Application.Start upPath & "\ScriptSpegnimento.bat")

If MessageBox.Show("Vuoi confermare la chiusura automatica? E' iniziato il conto alla rovescia (30 secondi)! Clicca su cancel per annullare la chiusura.", "CHIUSURA IN CORSO..", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Cancel Then
System.Diagnostics.Process.Start(Application.Start upPath & "\ScriptRipristina.bat")
Else
End
End If
Exit Try
Catch Ex As Exception
MessageBox.Show("Si è verificato un'errore.."
Exit Sub
End Try
End If
End If
End Sub

Private Sub ntf_connessione_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ntf_connessione.MouseDoubleClick
Me.WindowState = FormWindowState.Normal
End Sub