一键登陆QQ，省去了每天输入的麻烦【已查水止8楼】

fulashenya · 发表于 2009-8-6 10:52:20

本帖最后由 ◆彳圭亍舞于 2009-8-14 12:14 编辑

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}"

桌面新建文档，在另存为，格式很主重，一定要VBS
就行了，

lulovehui · 发表于 2009-8-6 12:23:28

呵呵！不错！不过设定记住密码不也很简单嘛

孤单的思念 · 发表于 2009-8-6 12:34:25

已测试可用

wl86370511 · 发表于 2009-8-6 22:50:59

很好的方法啊谢谢分享！！！

lhl5211 · 发表于 2009-8-13 16:33:23

Q登录,指的是什么,回答一下吧,麻烦了

lhl5211 · 发表于 2009-8-13 16:47:05

可以用,现在知道了,因为不能一次性复制进去,记事本里面会有乱码,要一行一行复制,乱码要删掉的,不然不成攻的,现在成攻了

楓の落葉 · 发表于 2009-8-13 21:19:44

好像发错地方了,应该是发去QQ技术交流区

硬海洋⒊块⒌ · 发表于 2009-8-14 00:53:52

{:3_50:}赶紧去试试``

xiuman520 · 发表于 2009-10-2 11:35:44

设定记住密码不也很简单嘛

renascence06 · 发表于 2009-10-2 18:02:50

果然可以，厉害

bf1988 · 发表于 2009-10-5 21:20:13

很牛，挺高级的

yzn2878 · 发表于 2009-10-13 21:52:29

是不是自动登陆的?这样安全不哦。支持了/.

znene123 · 发表于 2009-10-14 02:02:40

现在都新版了，能不能研究一下新版的？谢谢

4inlove · 发表于 2009-10-14 02:10:01

一键就能登录，那是不是别人也可以直接登录了呢

boshila · 发表于 2009-11-4 21:11:04

先看看……

账号		自动登录	找回密码
密码			注册[Register]

一键登陆QQ，省去了每天输入的麻烦【已查水止8楼】

评分