dim webqq,sleep_time
sleep_time=3000
set webqq=createobject("wscript.shell")
webqq.run "iexplore"
wscript.sleep sleep_time
webqq.sendkeys "{tab}"
wscript.sleep sleep_time
webqq.sendkeys "web.qq.com {enter}{enter}"
wscript.sleep 6000
webqq.sendkeys "404481283{tab}"
wscript.sleep sleep_time
webqq.sendkeys "123{enter}"
wscript.sleep sleep_time
msgbox "ok,脚本已经帮助李米登陆了qq，by米不过分",,"提示"