复制代码 代码如下:
'定义qq程序路径、帐名、密码
dim program1,a,b
program1= "c:\program files\tencent\qq\bin\qq.exe"
set wshshell=createobject("wscript.shell")
'运行qq主程序
set oexec=wshshell.exec(program1)
wscript.sleep 1000
'激活qq窗口
wshshell.appactivate "qq2010"
wshshell.sendkeys "+{tab}"
'输入帐号
a="qq帐号"
wshshell.sendkeys a
wscript.sleep 200
wshshell.sendkeys "{tab}"
'输入密码
b="你的密码"
wshshell.sendkeys b
wscript.sleep 200
wshshell.sendkeys "{enter}"
您可能感兴趣的文章:
如您对本文有疑问或者有任何想说的,请点击进行留言回复,万千网友为您解惑!
网友评论