apang

回复 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

回复 16# apang


    嗯，一次通过了！thx~