使用VBNET制作定时关机程序Word文档格式.doc

使用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