标题: 小弟出学VBS 自己做了个QQ登陆器~！ [打印本页]

---

作者: sd287054     时间: 2007-5-24 05:46    标题: 小弟出学VBS 自己做了个QQ登陆器~！

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记录是清干净的，如果遇到没清除的就没办法了
所以希望各位告诉点好的办法~!

---

作者: qinbuer     时间: 2007-5-24 09:57
这是不可能的，TAB键是QQ登陆框是无法切换

---

作者: zhoushijay     时间: 2007-5-24 11:09
连路径都要输入,还不如原来的QQ登陆下方便呢

---

作者: applecy     时间: 2007-5-24 19:36
小弟用autoit也做个类似的登陆器,不过貌似在QQ版本更新之后就不能用了

;自动登陆QQ

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

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

---

作者: qinbuer     时间: 2007-5-25 21:08
http://www.cn-dos.net/forum/view ... =1&highlight=QQ