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-10-21 09:50:30 发布
本文介绍了一个使用VBA和WScript.Shell对象在Windows中自动执行键盘截图（PRTSC）功能的简单脚本，通过循环定时发送PRTSC键触发截图并保存。
扫一扫
5551
到【灌水乐园】发言
