使用VBNET制作定时关机程序Word文件下载.doc
《使用VBNET制作定时关机程序Word文件下载.doc》由会员分享,可在线阅读,更多相关《使用VBNET制作定时关机程序Word文件下载.doc(3页珍藏版)》请在冰点文库上搜索。
3、源代码
PublicClassForm1
Publich,m,hc,mcAsInteger'
小时,分钟,剩余小时,剩余分钟
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimtmAsInteger
tm=Val(TextBox1.Text)*60
Iftm>
0Then
System.Diagnostics.Process.Start("
Shutdown.exe"
"
-s-t"
&
tm)
Label5.Text="
正在倒计时关机"
EndIf
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Timer1.Stop()
System.Diagnostics.Process.Start("
-a"
)
Label5.Text="
定时关机已取消"
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
h=Val(TextBox2.Text)
m=Val(TextBox3.Text)
Ifh=0Andm=0Then
MsgBox("
输入时间错误"
,"
请输入时间"
ElseIfh>
24Orh<
0Orm>
60Orm<
请检查输入时间"
Else
Timer1.Start()
PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.Tick
'
时间间隔interval可设置为3000,即3秒刷新一次
Ifh=Now.HourAndm=Now.MinuteThen
-s-f-t3"
hc=h-Now.Hour
mc=m-Now.Minute
Ifhc<
hc=hc+24
Ifmc<
hc=hc-1
mc=mc+60
距离关机还有"
hc&
"
小时"
mc&
分钟"
EndClass