Question

我想问一些VB语句，VB高手进。

是这样的，要求先判断系统时间，如果不符合预先设定的时间段，比如晚10点－早6点，弹出对话框后就自动关机，最好留个后门，按什么键后输入密码就不用关机，谢谢！
如果能加入晚10点自动关机最好。
能写好详细的，谢谢！！！

Answer 1

新建一个工程
一颗按钮(Command1)
一个文本框 (Text1)
一个标签(Label1)
两个计时器 (Timer1,Timer2)

Private Sub Command1_Click()
Me.Timer2.Enabled = True '启动Timer2计时器(在控件中设置每秒执行一次)
MsgBox "设定成功!"
Me.Text1.Locked = True
End Sub

Private Sub Form_Load()
Text1.Text = Time
End Sub

Private Sub Timer1_Timer()
systemTime = Date & "-" & Time
Label1.Caption = "当前时间是:" & systemTime
End Sub

Private Sub Timer2_Timer()
If Text1.Text = Time Then
Shell "shutdown /s" '关机
Shell "shutdown /s" '保险起见再关一次
End If
End Sub
--------------------------------------------
关机可以用API，但不是很管用。所以用shell比较保险。
另外你说的后门，我的理解是像个热键？
这就要用到全局键盘钩子了，由于vb的局限性，是实现不了的。

Answer 2

用hour(now())得到当前小时，判断然后用api:exitwindows

Answer 3

应该timer用: 变量=time() 或 str(time)
然后判断
关机应到api
输密码用inputbox 不对再关机

Answer 4

这就要用到全局键盘钩子了，由于vb的局限性，是实现不了的。

用WINAPI32的HOOK就可以实现了