批处理之家 - Powered by Discuz! Board

标题: [已解决]批处理如何定时启动关闭软件 [打印本页]

作者: AKB400 时间: 2013-6-23 21:32 标题: [已解决]批处理如何定时启动关闭软件

本帖最后由 AKB400 于 2013-6-25 11:45 编辑

情景：QQ_农、牧、餐的辅助软件。名字：a.exe。存放地点d:\a\a.exe。该辅助软件有弹IE窗口的广告，2到3个。
要求：1、开机5分钟后启动
   2、启动软件后模拟按“回车”
   3、按“回车”后的3分钟内，杀掉IE浏览器进程。隔30秒扫描一次。
参考：前人的帖子
   （1）http://bbs.bathome.net/viewthrea ... hlight=%B6%A8%CA%B1

      （2）http://bbs.bathome.net/viewthrea ... A3%C4%E2&page=1
      (2)帖15楼大大的代码

参考后自己修改的代码：

@echo off
more +6 "%~f0">Work.vbs
at 8:00 /interactive "%~dp0Work.vbs"
exit

Dim wsh,strPath,fso
Set fso = CreateObject("Scripting.FileSystemObject")
Rem 下面是程序的路径
strPath = "D:\a\a.exe"
set wsh = CreateObject("WScript.Shell")
wsh.Run strPath
WScript.Sleep 20000 '延时20秒
wsh.SendKeys "{enter}"
Rem 重复用上面的步骤直到输入完你要输入的值
wsh.run "taskkill /f /im iexplore.exe",,True
复制代码

问题求答：1、参考的帖子是定时启动的“8：00”
2、3分钟内杀IE浏览器进程的部分，只是杀掉第一个进程，没有加入延时扫描，求大神回复！

2013-06-25更新——
最终的结果：

@echo off
more +6 "%~f0">"%~dp0Work.vbs"
schtasks /delete /tn test /f 2>nul
schtasks /create /tn test /tr \""%~dp0Work.vbs\"" /sc onlogon /ru 登录用户名 /rp 密码
pause&goto :eof

Dim ws,strPath,i
strPath = "d:\a\a.exe"
set ws = CreateObject("WScript.Shell")
WScript.Sleep 60000 * 5 '延时5分钟，启动a.exe
ws.Run strPath
WScript.Sleep 20000 '延时20秒，按回车
ws.SendKeys "{enter}"
For i = 1 to 36 '循环36次(3分钟)
    ws.run "taskkill /f /im iexplore.exe",vbHide,True
    WScript.Sleep 5000 '延时5秒
Next
复制代码

感谢“apang”的热情相助！

作者: apang 时间: 2013-6-24 09:57

本帖最后由 apang 于 2013-6-24 15:59 编辑

修改用户名、密码为实际

@echo off
more +5 "%~f0">Work.vbs
schtasks /create /tn "test" /tr \""%~dp0Work.vbs\"" /sc onstart /ru 登录用户名 /rp 密码
goto :eof

Dim ws,strPath,i
Rem 下面是程序的路径
strPath = "d:\a\a.exe"
set ws = CreateObject("WScript.Shell")
WScript.Sleep 60000 * 5 '延时5分钟，启动 d:\a\a.exe
ws.Run strPath
WScript.Sleep 20000 '延时20秒，按回车
ws.SendKeys "{enter}"
Rem 重复用上面的步骤直到输入完你要输入的值
For i = 1 to 6 '循环6次(3分钟)
    ws.run "taskkill /f /im iexplore.exe",,True
    WScript.Sleep 30000 '延时30秒
Next
复制代码

作者: AKB400 时间: 2013-6-24 14:08

回复 2# apang

不知道能不能实现我所提出的第一个要求：开机后5分钟才运行批处理？

作者: AKB400 时间: 2013-6-24 15:01

回复 2# apang

而且，好像只能运行一次。下一次重启就失效了。

作者: apang 时间: 2013-6-24 16:00

回复 4# AKB400

2楼已修改

作者: AKB400 时间: 2013-6-24 17:21

回复 2# apang

【XP】无论如何重启，无法执行命令——未能启动软件。

作者: apang 时间: 2013-6-24 17:50

回复 6# AKB400

你的系统是不是空密码登录啊？如果是，需修改组策略，请自行百度搜索。
或者以 system 权限运行，不需要密码。

作者: AKB400 时间: 2013-6-24 18:01

回复 7# apang

不是，例：账号aaa，密码123456。用魔方设置自动登录。我照你说的把“登录用户名”“密码”修改成我的账号了。
单独运行bat生成的work.vbs能运行程序，但IE浏览器只关闭了第一个。

作者: apang 时间: 2013-6-24 18:47

我在win7测试是可以的。xp没测试，改下这一句试试嘛：
schtasks /create /tn "test" /tr \""%~dp0Work.vbs\"" /sc onstart /ru system

作者: AKB400 时间: 2013-6-24 18:54

本帖最后由 AKB400 于 2013-6-24 19:15 编辑

回复 9# apang

还有，我修改了杀进程的时间：

For i = 1 to 30 '循环30次
    ws.run "taskkill /f /im iexplore.exe",,True
    WScript.Sleep 10000 '延时10
复制代码

能杀掉，但最后还有一个杀不掉，不论循环多少次。

有更有效的方法吗？

作者: xxpinqz 时间: 2013-6-24 19:08

你这是延时1秒，循环30次，也就是30秒，30秒后的进程就杀不掉的，尝试修改代码这是好事，但是别改的前言不搭后语的。另外schtasks /create /delay参数本身可延时。

作者: AKB400 时间: 2013-6-24 19:16

回复 11# xxpinqz

个人疏忽了，想是10秒的，打少了个0
已更正。

作者: AKB400 时间: 2013-6-24 19:29

本帖最后由 AKB400 于 2013-6-24 19:35 编辑

回复 9# apang

修改后能启动运行，注销后失效，该怎么改？是在onstart后面直接“空格onlogon”？

作者: apang 时间: 2013-6-24 20:44

回复 11# xxpinqz

schtasks /create /delay 不错，学习了。

回复 13# AKB400

"注销" 和 "windows启动"、"windows登录" 应该不是一回事情。况且你的标题是"开机后"。。。

作者: AKB400 时间: 2013-6-24 21:19

回复 14# apang

呵呵，是我太贪心了。还有问题存在：原本是要启动并显示软件窗口，才能按回车登陆QQ辅助软件的。但是我发现使用你写的代码执行命令时，任务管理器里出现a.exe却没有窗口显示，该辅助软件并非完全启动成功，怎么办？『附：软件的主页http://www.qqhelper.net』

作者: apang 时间: 2013-6-25 09:38

回复 15# AKB400

windows登录后延时启动qqhelper，XP、Win7测试通过。

@echo off
more +6 "%~f0">"%~dp0Work.vbs"
schtasks /delete /tn test /f 2>nul
schtasks /create /tn test /tr \""%~dp0Work.vbs\"" /sc onlogon /ru 登录用户名 /rp 密码
pause&goto :eof

Dim ws,strPath,i
strPath = "d:\a\QQHelper.exe"
set ws = CreateObject("WScript.Shell")
WScript.Sleep 60000 * 5 '延时5分钟，启动QQHelper.exe
ws.Run strPath
WScript.Sleep 20000 '延时20秒，按回车
ws.SendKeys "{enter}"
For i = 1 to 36 '循环36次(3分钟)
    ws.run "taskkill /f /im iexplore.exe",vbHide,True
    WScript.Sleep 5000 '延时5秒
Next
复制代码

作者: AKB400 时间: 2013-6-25 11:45

回复 16# apang

嗯，一次通过了！thx~

欢迎光临批处理之家 (http://www.bathome.net/)