用后台运行的方法可以做到。
VBS:
Set Sh = CreateObject("WScript.Shell")
Sh.Run "QQ.exe的完整路径和名称写在这里", 0 '后台运行QQ
WSH.Sleep 5000 '延时5s
Sh.Run "Taskkill /f /im qq.exe", 0 '结束QQ
祝您使用愉快,若遇到问题请提出。谢谢。