包子QQ自动攻击器?

dim a,b,ctr
ctr=0
a=inputbox("请输入你要攻击的语言，目前只支持英文","包子QQ自动攻击器")
b=inputbox("请输入你要攻击的次数","包子QQ自动攻击器")
b=b+0
do while ctr<b
set wshshell=CreateObject("wscript.shell")
wscript.sleep 500
wshshell.sendkeys "CoDz By Leilei"
wshshell.sendkeys "{ENTER}"
wscript.sleep 500
wshshell.sendkeys a
wshshell.sendkeys "^{ENTER}"
ctr=ctr+1
loop