...让某个程序在指定的时间范围内禁止运行和自动关闭,如QQ

发布网友发布时间：2024-10-08 02:31

共1个回答

热心网友时间：2024-11-09 01:18

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