Board logo

标题: [特效代码] 批处理怎样自动输入游戏的账号密码? [打印本页]

作者: twt212    时间: 2010-11-14 06:27     标题: 批处理怎样自动输入游戏的账号密码?

这个是可以输入中文名字的VBS脚本,但是有个问题。运行VBS后要点IE认其在前置,还会打开记事本,各位有什么办法解决?
  1. set ierunner = CreateObject("wscript.shell")
  2. ierunner.run "cmd /c start iexplore http://s1.pet.mop.com/",0
  3. wscript.sleep 3000
  4. ierunner.sendkeys "{TAB}"
  5. wscript.sleep 400
  6. ierunner.sendkeys "{TAB}"
  7. wscript.sleep 400
  8. ierunner.sendkeys "{TAB}"
  9. wscript.sleep 400
  10. ierunner.sendkeys "{TAB}"
  11. Set wshobj=WScript.CreateObject("WScript.Shell")
  12. code="中文名字"
  13. wshobj.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide
  14. app=wshobj.Run ("C:\windows\notepad.exe")
  15. WScript.Sleep 2000
  16. wshobj.AppActivate app
  17. wshobj.SendKeys "^v"
  18. ierunner.sendkeys "{TAB}"
  19. ierunner.sendkeys "密码"
  20. ierunner.sendkeys "{TAB}"
  21. wscript.sleep 400
复制代码

[ 本帖最后由 twt212 于 2010-12-3 06:38 编辑 ]
作者: twt212    时间: 2010-11-15 03:01

怎么没人帮我啊?????
作者: caiyaoyao    时间: 2010-11-15 10:57

呵呵  我也很想知道哦
     我只会打开网页  但是不知道怎么自动输入账号和密码
作者: BillGates    时间: 2010-11-15 12:17     标题: 标题

vbs应该可以实现噢,打开,然后延时,模拟按键输入…
作者: netbenton    时间: 2010-11-15 12:38

用户名,密密码都好解决~~
可是“验证码”无法输入呀
作者: twt212    时间: 2010-11-15 23:58

验证码我自已手动输入就可以了。只要能自动输入账号密码就很不错了。
作者: netbenton    时间: 2010-11-16 06:55

既然不能全自动,那还不如自已复制粘贴比较实在。

你把用户名与密码放在一个文本文件内,然后一个一个复制粘贴,也差不多。
毕竟还要输入验证码。
作者: sgaizxt001    时间: 2010-11-16 07:03

完全不要把账号和密码放在一起,这是安全意识啊
作者: twt212    时间: 2010-11-16 07:57

原帖由 netbenton 于 2010-11-16 06:55 发表
既然不能全自动,那还不如自已复制粘贴比较实在。

你把用户名与密码放在一个文本文件内,然后一个一个复制粘贴,也差不多。
毕竟还要输入验证码。

  不一样啊。N个号。复制登陆要半个小时,累死人了。批处理方便很多。
作者: canyuexiaolang    时间: 2010-11-16 22:34

批处理做不到吧。
PS:让你女朋友玩什么游戏额,真是不心疼她,
作者: BillGates    时间: 2010-11-16 23:58

可以实现,可惜我用手机上,建议楼主搜索一下论坛,自动登陆网页的一大堆,可以批处理和vbs结合。
作者: canyuexiaolang    时间: 2010-11-17 16:50     标题: 回复 11楼 的帖子

Echo出来个VBS,还不如直接用VBS,。
作者: twt212    时间: 2010-11-21 06:34

我找到一个代码。但是打开网页之后要用鼠标点一下“用户名”框框里才能自动填上账号密码。大家帮我改一下。
  1. set ierunner = CreateObject("wscript.shell")
  2. ierunner.run "cmd /c start iexplore http://s1.pet.mop.com/login.html",0
  3. wscript.sleep 3000
  4. ierunner.sendkeys "{TAB}"
  5. wscript.sleep 400
  6. ierunner.sendkeys "{TAB}"
  7. wscript.sleep 400
  8. ierunner.sendkeys "{TAB}"
  9. wscript.sleep 400
  10. ierunner.sendkeys "英文用户名"
  11. ierunner.sendkeys "{TAB}"
  12. ierunner.sendkeys "密码"
  13. ierunner.sendkeys "{TAB}"
复制代码

[ 本帖最后由 twt212 于 2010-12-3 06:41 编辑 ]
作者: twt212    时间: 2010-12-3 06:42

顶顶上,,,谁能帮我?
作者: jjmmrr    时间: 2010-12-7 19:30

WScript.CreateObject("WScript.Shell").Run "iexplore http://cht.reg.qq.com/"
WScript.Sleep 5000
Set qqej = CreateObject("WScript.Shell")
qqej.SendKeys "QQEJ"
qqej.SendKeys "{Tab}"
WScript.Sleep 250
qqej.SendKeys "{down}"  '生日
qqej.SendKeys "{Tab}"
qqej.SendKeys "{down}"
'qqej.SendKeys "10"  '10月
qqej.SendKeys "{Tab}"
'qqej.SendKeys "1"  '1日
qqej.SendKeys "{down}"
qqej.SendKeys "{Tab}"
qqej.SendKeys "{Tab}"
qqej.SendKeys "PASS"  '密码
qqej.SendKeys "{Tab}"
qqej.SendKeys "PASS"  '密码
qqej.SendKeys "{Tab}"
qqej.SendKeys "{Tab}"  '中国
qqej.SendKeys "{Tab}"  '省
qqej.SendKeys "{Tab}"  '市


这是批量申请QQ号码 运行后自动打开申请QQ页面,自动填写用户名和密码,定位到输入验证码框,

你可以修改一下。

[ 本帖最后由 jjmmrr 于 2010-12-7 19:32 编辑 ]
作者: youxi01    时间: 2010-12-7 20:16

首先不建议使用sendKeys。

利用VBS可以直接获取打开IE对象的,并能获取相应的控件名称,ID,并设置其中的值,

因此,完成可以利用VBS自动填充账号、密码,还可以控制按钮点击
曾经写过一个教师培训自动学习的,可以参考下:
http://www.2laoshi.cn/post/206.html
请自行修改代码!




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2