如在12:00时自动打开qq,12.30自动结束,用vbs脚本吗?
结束方法参考以下例子:
下面的代码保存为.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
复制代码
|