对抗自动锁屏策略

工作中时常会有跑程序，而人不在的情况，但是碍于公司严格的锁屏策略，5分钟必锁屏，锁屏程序就中断，这可真的是有点头疼，但是机智的劳动人民是不会屈服的，我们可以借助VBS隔一段时间对操作系统发送指令，防止进入锁屏

Dim objResult
Dim Length 
Dim i 
Set objShell = WScript.CreateObject("WScript.Shell") 

Length = InputBox("要用魔法打败魔法","输入时长(小时)")
Length = Length*60*60
msgbox(Length )
i=0
Do While i <Length 
 objResult = objShell.sendkeys("{NUMLOCK}{NUMLOCK}")
 CreateObject("Wscript.Shell").Popup "有我在休想锁屏.....", 3, "MsgBox", vbInformation
 Wscript.Sleep (10000)
 i=i+10
Loop
           

这边首先输入你要对抗的时长，然后程序进入循环，间隔10秒对操作系统发送指令，代码虽然简单，但是相当实用