如何使用VBS文件限制软件运行？

以限制 excel 、Word 、ppt 为例，把

where name='excel.exe'

改为

where name='excel.exe' or name='winword.exe' or name='powerpnt.exe'

另外，wscript.sleep 1 是暂停 1 毫秒，最好改为 1000 以上，可以节省 CPU 等资源。

下面的代码保存为.vbs。 时间为24小时制。 每隔15秒扫描一次，发现QQ就关闭，开始时间8:20

结束时间:9:50， 可自己更改。 当前时间超过结束时间，脚本自动结束。

-----------------------------------------------代码如下-------------------------------------------------------

Dim wsh

sTart = "8:20"

eTart = "9:50"

Set wsh = CreateObject("Wscript.Shell")

Tims = FormatDateTime(Time,4)

chTST tims

Sub chTST(tim)

sT = FormatDateTime(sTart,4)

eT = FormatDateTime(eTart,4)

If (tim>sT) And (tim<eT) Then

wsh.Run "taskkill /f /im qq.exe",,True

If tim >eT Then

WScript.Quit

End If

WScript.Sleep 15000

Sel = Chr(34)&WScript.ScriptFullName&Chr(34)

Wsh.Run Sel,,True

End If

End Sub

---