首页 > 代码库 > 一段阻止电脑索屏的Vb Script

一段阻止电脑索屏的Vb Script

创建一个文件,拷贝下面文本,保存文件为~.vbs,双击运行即可。

Dim durationInMins
Set obj = CreateObject("WScript.Shell")

durationInMins = 300

For i=1 to durationInMins
	WScript.Sleep (2*60*1000)
	obj.SendKeys ("{CAPSLOCK 2}")
Next

 

一段阻止电脑索屏的Vb Script