Set sh = CreateObject("WScript.Shell")
sh.run "C:\Progra~1\Tencent\QQ\Bin\qq.exe"
wscript.sleep 2000
sh.SendKeys "+{TAB}"
sh.SendKeys "你的QQ号"
sh.SendKeys "{TAB}"
sh.run "C:\Progra~1\Tencent\QQ\Bin\qq.exe"
wscript.sleep 2000
sh.SendKeys "+{TAB}"
sh.SendKeys "你的QQ号"
sh.SendKeys "{TAB}"