标题: [其他] 写个脚本　一键登陆ＱＱ [打印本页]

---

作者: woshihaike    时间: 2008-2-18 11:42     标题: 写个脚本　一键登陆ＱＱ

Dim Program1
Program1= "qq所在的目录"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "你的qq号"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "你的qq密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"


把上面的写到写字版上．保存为XX.vbs的格式
登陆的时候点下这个XX.vbs就好了

---

欢迎光临 黑色海岸线论坛 (http://bbs.thysea.com/)

Powered by Discuz! 7.2