本帖最后由 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”的热情相助! |