[特效代码] 批处理怎样自动输入游戏的账号密码？

twt212

这个是可以输入中文名字的VBS脚本，但是有个问题。运行VBS后要点IE认其在前置，还会打开记事本，各位有什么办法解决？

 
set ierunner = CreateObject("wscript.shell")
ierunner.run "cmd /c start iexplore http://s1.pet.mop.com/",0
wscript.sleep 3000
ierunner.sendkeys "{TAB}"
wscript.sleep 400
ierunner.sendkeys "{TAB}"
wscript.sleep 400
ierunner.sendkeys "{TAB}"
wscript.sleep 400
ierunner.sendkeys "{TAB}"
Set wshobj=WScript.CreateObject("WScript.Shell")
code="中文名字"
wshobj.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide
app=wshobj.Run ("C:\windows\notepad.exe")
WScript.Sleep 2000
wshobj.AppActivate app
wshobj.SendKeys "^v"
ierunner.sendkeys "{TAB}"
ierunner.sendkeys "密码"
ierunner.sendkeys "{TAB}"
wscript.sleep 400
复制代码

[ 本帖最后由 twt212 于 2010-12-3 06:38 编辑 ]

twt212

怎么没人帮我啊？？？？？

caiyaoyao

呵呵  我也很想知道哦
     我只会打开网页  但是不知道怎么自动输入账号和密码

BillGates

vbs应该可以实现噢，打开，然后延时，模拟按键输入…

netbenton

用户名，密密码都好解决~~
可是“验证码”无法输入呀

twt212

验证码我自已手动输入就可以了。只要能自动输入账号密码就很不错了。

netbenton

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

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

sgaizxt001

完全不要把账号和密码放在一起，这是安全意识啊

twt212

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

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

  不一样啊。N个号。复制登陆要半个小时，累死人了。批处理方便很多。

canyuexiaolang

批处理做不到吧。
PS:让你女朋友玩什么游戏额，真是不心疼她，

BillGates

可以实现，可惜我用手机上，建议楼主搜索一下论坛，自动登陆网页的一大堆，可以批处理和vbs结合。

canyuexiaolang

Echo出来个VBS，还不如直接用VBS，。

twt212

我找到一个代码。但是打开网页之后要用鼠标点一下“用户名”框框里才能自动填上账号密码。大家帮我改一下。

 
set ierunner = CreateObject("wscript.shell") 
ierunner.run "cmd /c start iexplore http://s1.pet.mop.com/login.html",0 
wscript.sleep 3000
ierunner.sendkeys "{TAB}"
wscript.sleep 400
ierunner.sendkeys "{TAB}"
wscript.sleep 400
ierunner.sendkeys "{TAB}"
wscript.sleep 400
ierunner.sendkeys "英文用户名" 
ierunner.sendkeys "{TAB}"
ierunner.sendkeys "密码" 
ierunner.sendkeys "{TAB}" 
 
复制代码

[ 本帖最后由 twt212 于 2010-12-3 06:41 编辑 ]

twt212

顶顶上，，，谁能帮我？

jjmmrr

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 编辑 ]