dim program1
program1="QQ程序的绝对路径"
set wshshell=CreateObject("wscript.shell")
set oexec=wshshell.exec(program1)
wscript.sleep 2000
wshshell.appactivate "QQ登录"
wshshell.sendkeys "+{TAB}"
wshshell.sendkeys "输入QQ号码"
wscript.sleep 2000
wshshell.sendkeys "{TAB}"
wshshell.sendkeys "输入密码"
wscript.sleep 2000
wshshell.sendkeys "{ENTER}"
Wscript.quit
=========================================================================================
就像有个QQ登陆器一样方便
这个我就不上传样本了。。。。。 |