Помогите с созданием запланированного задания

Question

Я наткнулся на этот код, который должен быть в состоянии сравнить время моего ПК с временем, хранящимся во времени; Однако я не могу заставить его работать. Кто-нибудь может помочь?

dim theTime as datetime

theTime = CDate(txtTime.Text)

if theTime.hour = now.hour and theTime.minute = now.minute then
'shut down code
System.Diagnostics.Process.Start("Shutdown.exe", "-s -t 0")
end if

Answer 1

Dim theTime as DateTime
theTime = CDate(txtTime.Text)
If theTime.hour = DateTime.now.hour and theTime.minute = DateTime.now.minute then
Shell("Shutdown /s") 'to shutdown
End if

Вы также можете попробовать следующее

Shell("Shutdwon /r") 'to restart
Shell("Shutdown /l") 'to logoff
Shell("Shutdown /a") 'to Abort

Answer 2

Попробуйте заменить now на DateTime.now -

dim theTime as datetime

theTime = CDate(txtTime.Text)

if theTime.hour = DateTime.now.hour and theTime.minute = DateTime.now.minute then
'shut down code
System.Diagnostics.Process.Start("Shutdown.exe", "-s -t 0")
end if