由于每个人的QQ都不一样,按照提示修改中的代码
桌面右键→新建文本档案→填入下面代码→改后缀名为.vbs就OK
脚本代码如下:
登录要输验证码的代码
- Dim a
- Set a=WScript.CreateObject("WScript.shell")
- a.run "文件路径" '
- WScript.Sleep 1000 '
- a.SendKeys "QQ号"
- a.SendKeys "{TAB}"
- WScript.Sleep 200
- a.SendKeys "密码"
- a.SendKeys "{TAB}"
这个是不需要填验证码的代码(由于要输验证码,没试过按键顺序都对不对,现在脑子有点乱
)
- Dim a
- Set a=WScript.CreateObject("WScript.shell")
- a.run "D:\新建文件夹\免登陆游戏签到.exe" '
- WScript.Sleep 1000 '
- a.SendKeys "QQ号码"
- a.SendKeys "{TAB}"
- WScript.Sleep 200
- a.SendKeys "QQ密码"
- a.SendKeys "{TAB}"
- set ws=createobject("wscript.shell")
- ws.Sendkeys " "
- a.SendKeys "{TAB}"
- WScript.Sleep 200
- a.SendKeys "大区代码"
- a.SendKeys "{TAB}"
- WScript.Sleep 200
- set ws=createobject("wscript.shell")
- ws.Sendkeys " "
- set ws=createobject("wscript.shell")
- ws.Sendkeys " "
- set ws=createobject("wscript.shell")
- ws.Sendkeys " "
- set ws=createobject("wscript.shell")
- ws.Sendkeys " "
- set ws=createobject("wscript.shell")
- ws.Sendkeys " "
最后那连续五个空格代码是由于避免有时候按一次签到不成功,就简单来说就是多按几次签到
解释下吧
Dim a
Set a=WScript.CreateObject("WScript.shell")
a.run "
这里填文件路径,比如我的是 D:\新建文件夹\免登陆游戏签到.exe" '
WScript.Sleep 1000 '
a.SendKeys "
这里是QQ号,不用解释吧"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "
QQ密码"
a.SendKeys "{TAB}"
毫无技术含量的几行代码,一般人都能看懂
配合老A的免登游戏签到软件使用
软件附上:
免登陆游戏签到.zip[点击下载](243 K) 下载次数:5 累计下载获得 ＤＢ 10 刀,这个没有技术含量勿喷
只是想着用软件签到的人挺多
而且猴岛没人发这样的小脚本
随便乱写坑点DB而已
[ 此帖被_____丶期待在2013-11-15 23:46重新编辑 ]
