编写进度
防锁屏.vbe
Dim wshShell
Set wshShell = CreateObject("Wscript.Shell")
msgbox "µã»÷È·¶¨ºó£¬¿ªÊ¼¶¨Ê±Ä£Äâ¼üÅÌÊäÈ룬ÒÔ·ÀÖ¹ËøÆÁ¡£Òª½áÊøÄ£ÄâÔòÔËÐÐ ½áÊø.bat"
Do While 2>1
wscript.Sleep 60000
wshShell.SendKeys "{NumLock}"
wshShell.SendKeys "{NumLock}"
Loop
结束锁屏脚本
taskkill /f /im wscript.exe
s
转载请注明来源,欢迎对文章中的引用来源进行考证,欢迎指出任何有错误或不够清晰的表达。可以在下面评论区评论,也可以邮件至 askding@qq.com