〓〓〓〓 制 作 一 个 小 程 序 〓〓〓〓

来源：百度知道 编辑：UC知道 时间：2024/06/25 16:40:44
想弄一个"鼠标一移动，计算机就自动重启"的程序。

希望懂的人可以教我下。

难道你要编写病毒？？
给你代码：

Private Sub Form_Load()
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.Left = 0
Me.Top = 0
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' shell "shutdown -r -f -t 0",vbHide '为了测试程序，前面加个单引号,如果你要编译成程序，将前面的单引号去掉：鼠标一移动 就执行了重启命令，XP下测试有效
End Sub

问题是别人没那么容易上你的当 打开你的程序
如果真的能打开
那么直接写在form_load事件岂不是更好