找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 19488|回复: 0

[特效代码] 批处理怎样实现指定时间范围内运行和结束程序?

[复制链接]
发表于 2012-5-21 12:20:19 | 显示全部楼层 |阅读模式
如在12:00时自动打开qq,12.30自动结束,用vbs脚本吗?

结束方法参考以下例子:
下面的代码保存为.vbs。 时间为24小时制。 每隔15秒扫描一次,发现QQ就关闭,开始时间8:20
结束时间:9:50, 可自己更改。 当前时间超过结束时间,脚本自动结束。
-----------------------------------------------代码如下-------------------------------------------------------
  1. Dim wsh
  2. sTart = "8:20"
  3. eTart = "9:50"
  4. Set wsh = CreateObject("Wscript.Shell")
  5. Tims = FormatDateTime(Time,4)
  6. chTST tims

  7. Sub chTST(tim)

  8. sT = FormatDateTime(sTart,4)
  9. eT = FormatDateTime(eTart,4)

  10. If (tim>sT) And (tim<eT) Then
  11. wsh.Run "taskkill /f /im qq.exe",,True
  12. If tim>eT Then
  13. WScript.Quit
  14. End If
  15. WScript.Sleep 15000
  16. Sel = Chr(34)&WScript.ScriptFullName&Chr(34)
  17. Wsh.Run Sel,,True
  18. End If
  19. End Sub
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-19 06:04 , Processed in 0.015728 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表