Evo. G Tech Team Forum
Welcome to Evo. G Tech Team Forum. We have moved to a new website : www.evogtechteam.com

Thanks you.

by Evo. G Tech Team Management.

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

View previous topic View next topic Go down

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

Post by cyjian on December 13th 2014, 09:51

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
原理:开机后自动关机

cyjian
Spammer
Spammer

Posts : 211
Points : 24955
Reputation : 0
Join date : 2014-06-18

View user profile

Back to top Go down

View previous topic View next topic Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum