Question

求用VBS写的代码，让某个程序在指定的时间范围内禁止运行和自动关闭,如QQ

Answer 1

下面的代码保存为.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