1、创建一个txt文件,粘贴以下代码
On Error Resume Next
Dim AdminObj
Set AdminObj=Wscript.CreateObject("Wscript.Shell")
'msgbox"禁止屏幕保护程序已经启动!",0,"提示"
Do
AdminObj.SendKeys"{ScrollLock}"
Wscript.Sleep 50
AdminObj.SendKeys"{ScrollLock}"
Wscript.Sleep 150000
Loop
Script Over
2、将文件后缀名改为vbs
3、双击即可
tip:如果没有后缀名,则打开文件“文件扩展名”这个选项即可看到