msgbox"The script is running!"
'先定义一个Shell对象
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 5000
wshShell.SendKeys "{PRTSC}"
'设置成正需要接续的时间
for i= 1 to 180
WScript.Sleep 180000
wshShell.SendKeys "{PRTSC}"
next
电脑windows系统防息屏脚本
最新推荐文章于 2024-04-28 09:52:30 发布