可以定时打开QQ并且让它自己输入用户名和密码的脚本

复制代码 代码如下:

dimprogram

program="c:ProgramFilesTencentqqQQ.exe" '你的qq路径

setWshell=CreateObject("Wscript.Shell")

setoexec=Wshell.Exec(program)

wscript.Sleep2000

Wshell.AppActivate"QQTang"

Wshell.SendKeys"+{TAB}"

Wshell.SendKeys"QQ号码"

wscript.Sleep1000

Wshell.SendKeys"{TAB}"

Wshell.SendKeys"QQ密码"

wscript.Sleep1000

Wshell.SendKeys"{ENTER}"