神马品牌网斗鱼主播叶子悬崖村:我想问一些VB语句，VB高手进。
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 04:18:04
是这样的，要求先判断系统时间，如果不符合预先设定的时间段，比如晚10点－早6点，弹出对话框后就自动关机，最好留个后门，按什么键后输入密码就不用关机，谢谢！
如果能加入晚10点自动关机最好。
能写好详细的，谢谢！！！
如果能加入晚10点自动关机最好。
能写好详细的，谢谢！！！
新建一个工程
一颗按钮(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的局限性，是实现不了的。
用hour(now())得到当前小时，判断然后用api:exitwindows
应该timer用: 变量=time() 或 str(time)
然后判断
关机应到api
输密码用inputbox 不对再关机
这就要用到全局键盘钩子了，由于vb的局限性，是实现不了的。
用WINAPI32的HOOK就可以实现了