Variable dans une commande MS-DOS en vb.net

Bonjour, je suis nouveau sur ce forum et débutant en programmation.
Je souhaiterais créer, pour m'exercer, un petit programme permettant d'éteindre l'ordinateur au bout d'un temps donné.

Voici le code:

Code:

---

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

Public Class Form1 Dim heuremin As Integer Dim heuresec As Integer Dim minsec As Integer Dim TotalSec As Integer Public Sub HeureEnMinutes() heuremin = NumericUpDownHeure.Value * 60 End Sub Public Sub HeureEnSec() heuresec = heuremin * 60 End Sub Public Sub MinuteEnSec() minsec = NumericUpDownMinute.Value * 60 End Sub Public Sub TotalSecondes() TotalSec = heuresec + minsec End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartButton.Click Shell("cmd.exe /C shutdown -s -t TotalSec ) End Sub End Class

---

La variable TotalSec ne fonctionne pas dans la commande Dos.
Comment pourrais-je corriger ce problème?

Code:

---

1 2 3 4 5 6

Private Sub ExtinctionProgrammee(ByVal nbHeures As Integer, ByVal nbMinutes As Integer, ByVal nbSecondes As Integer) 'Exemple, pour éteindre dans 1h30 : ExtinctionProgrammee (1,30,0) Dim delai As TimeSpan = New TimeSpan(nbHeures, nbMinutes, nbSecondes) Dim ligneCommande As String = "/C shutdown -s -t " & delai.TotalSeconds.ToString Process.Start("cmd.exe", ligneCommande) End Sub

---

PS : Je n'ai pas essayé... la flemme de relancer le PC

Code:

---

Shell("cmd.exe /C shutdown -s -t " + TotalSec)

---