中国DOS联盟

Dim QQ,QQ1,QQ2

QQ=inputbox("路径")

QQ1=inputbox("帐号")

QQ2=inputbox("密码")

set wshshell=wscript.createobject("wscript.shell")

wshshell.run QQ

wscript.sleep 2000

wshshell.sendkeys QQ1

wscript.sleep 500

wshshell.sendkeys "{Tab}"

wshshell.sendkeys QQ2

wscript.sleep 500

wshshell.sendkeys "{EnTer 2}"

不是这么完善~!我这是里的QQ记录是清干净的，如果遇到没清除的就没办法了
所以希望各位告诉点好的办法~!

这是不可能的，TAB键是QQ登陆框是无法切换

连路径都要输入,还不如原来的QQ登陆下方便呢

小弟用autoit也做个类似的登陆器,不过貌似在QQ版本更新之后就不能用了

;自动登陆QQ

#NoTrayIcon
Run ( "E:\2005qqb3\CoralQQ.exe" )
Sleep ( 500 )
WinWaitActive("","隐身登录")
ControlSetText ( "", "", "Edit1", "" )
ControlSend ( "", "隐身登录", "Edit1", "12345679{TAB}" )
ControlSend ( "", "隐身登录", "Edit12", "987654321{ENTER}")

虽然还可以打号码和密码`不过现在怎么登陆都显示密码错误
如果用手动输入密码的话就可以