VB一键式启动程序

Dim qq,del
Set qq=WScript.CreateObject("wscript.shell")
qq.Run """C:\Program Files (x86)\Tencent\QQ\QQProtect\Bin\QQProtect.exe""" ' 这里填写QQ路径,此处填写绝对路径 . 三对双引号.请注意.
WScript.Sleep 5000
qq.SendKeys "自己填写" ' 这里填写QQ密码
WScript.Sleep 1000
qq.SendKeys "{ENTER}"
WScript.Sleep 3000
qq.Run """C:\Users\Administrator\AppData\Local\Genuitec\MyEclipse 8.5\myeclipse.exe""" 'MyEclipse安装路径
WScript.Sleep 12000
qq.SendKeys "{ENTER}"
'qq.Run """D:\Program Files\Foxmail 7.0\Foxmail.exe""" 'MyEclipse安装路径
'WScript.Sleep 500
'qq.SendKeys "{F4}"