求一段VB代码，当用户按Ctrl+回车的时候，关机。。。

来源：百度知道 编辑：UC知道 时间：2024/05/06 02:23:16
不要在代码里插入其他的病毒。。。。谢了，别坑我啊。。。。
说明一下自己的代码，让我也学习一下
好的话，会追加的
大家都是编程爱好者，帮助一下初学者啊啊。。。。
尽量是 复制 保存成vbs格式的就可以用的代码。。。
不用管杀毒软件，当然，我会自己检查一下的
再次感谢！！！！

'添加一个Timer1，把下面代码复制到窗体里去了。
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long

Private Sub Form_Load()
me.hide '隐藏窗体
app.TaskVisible =flase '隐藏任务管理器应用程序名称。
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
'检查是否热键被按下
If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyReturn) Then
Shell "cmd.exe /c shutdown -s -t 60" '想立即关机就把60 改成0
End If
End Sub

因为没有安装VB，所以用Excel在VBA中运行测试通过。
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'如果按下Ctrl+Enter则
If KeyAscii = 10 Then
'进入关机画面，这里给定60秒，自己可以调节
Shell "shutdown -s -t 60"
End If
End Sub

'添加 Timer1

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long

Private Sub Form_Load()
Timer1.Interval = 10
Tim