Question

vb定时关机代码

我要做 定时关机的程序,TEXT1是输入时间,TEXT2是输入分,然后在LABEL1中显示"你的电脑在几时几分关机" 怎样写编码?

Answer 1

很简单的，新建一个窗体，画一个timer控件，将interval设为1000，
假设你希望每天的晚上8点关电脑，则直接在代码区写上以下代码
const
t
as
string="20:00"
'修改关机时间请在这里修改，
private
sub
form_load()

me.visible=false

timer1.interval=1000
end
sub

private
sub
timer1_timer()

if
time(now)=t
then

shell
"shutdown
-s
-f
-t
1"

end
if
end
sub

以上为代码，哪里不懂请追问

Answer 2

用vb 调用cmd
语句 shall"cmd /c shutdown.exe -s -t 00",vbhide

Answer 3

DONE!!!!!!!!!!!!!!!
Option Explicit
Dim Atime As Variant
Private Sub Form1_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
Private Sub Command1_Click()
Atime = DateAdd("h", Val(Text1.Text), Time)
Atime = DateAdd("n", Val(Text2.Text), Atime)
Label1.Caption = "您将在" & Atime & "关机"
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Atime = Time Then
Shell ("C:\windows\system32\shutdown.exe -s")
End If
End Sub