求助啊啊！自动启动多QQ问题

芯頽廢.。﹖

谁教我同时自动登陆4个QQ啊 不要现成登录器
我在网上查了个VBS脚本 可是有问题啊
Dim program1
program1="QQ程序路径"

set wshshell=wscript.createobject("wscript.shell")
set oexec=wshshell.exec(program1)
wscript.sleep 200
wshshell.appactivate"QQ"
wshshell.sendkeys"QQ号码"
wscript.sleep 2000
wshshell.sendkeys"{TAB}"
wshshell.sendkeys"QQ密码"
wscript.sleep 200
wshshell.sendkeys"{ENTER}"