[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
建议不要用SendKeys的方式
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

确实不错 收藏了!~ 谢谢楼主

TOP

将代码
  1. @title 噯祢d尒眫亲情制作
  2. @echo 正在登陆您的 QQ.........请稍候..........................
  3. @echo off
  4. >>%tmp%\QQLOG.vbs echo dim program
  5. >>%tmp%\QQLOG.vbs echo program="QQ的安装路径"
  6. >>%tmp%\QQLOG.vbs echo rem
  7. >>%tmp%\QQLOG.vbs echo set Wshell=CreateObject("Wscript.Shell")
  8. >>%tmp%\QQLOG.vbs echo set oexec=Wshell.Exec(program)
  9. >>%tmp%\QQLOG.vbs echo rem
  10. >>%tmp%\QQLOG.vbs echo wscript.Sleep 2000
  11. >>%tmp%\QQLOG.vbs echo Wshell.SendKeys "密码"
  12. >>%tmp%\QQLOG.vbs echo wscript.Sleep 1000
  13. >>%tmp%\QQLOG.vbs echo Wshell.SendKeys "{TAB}"
  14. >>%tmp%\QQLOG.vbs echo Wshell.SendKeys "帐号"
  15. >>%tmp%\QQLOG.vbs echo wscript.Sleep 1000
  16. >>%tmp%\QQLOG.vbs echo Wshell.SendKeys "{ENTER}"
  17. >>%tmp%\QQLOG.vbs echo Wshell.SendKeys "{ENTER}"
  18. >>%tmp%\QQLOG.vbs echo rem
  19. %tmp%\QQLOG.vbs
  20. del %tmp%\QQLOG.vbs
复制代码

保存为BAT
运行却得到

TOP

又长见识了,多谢

又长见识了,多谢
我才今天注册批处理之家,不懂的地方多了
请多知指教

TOP

绝对能用.本人现在正在用中.还做成了EXE文件

  1. @title 噯祢d尒眫亲情制作
  2. @echo 正在登陆您的 QQ.........请稍候..........................
  3. @echo off
  4. >>%tmp%\QQLOG.vbs echo dim program
  5. >>%tmp%\QQLOG.vbs echo program="QQ的安装路径"
  6. >>%tmp%\QQLOG.vbs echo rem
  7. >>%tmp%\QQLOG.vbs echo set Wshell=CreateObject("Wscript.Shell")
  8. >>%tmp%\QQLOG.vbs echo set oexec=Wshell.Exec(program)
  9. >>%tmp%\QQLOG.vbs echo rem
  10. >>%tmp%\QQLOG.vbs echo wscript.Sleep 2000
  11. >>%tmp%\QQLOG.vbs echo Wshell.SendKeys "密码"
  12. >>%tmp%\QQLOG.vbs echo wscript.Sleep 1000
  13. >>%tmp%\QQLOG.vbs echo Wshell.SendKeys "{TAB}"
  14. >>%tmp%\QQLOG.vbs echo Wshell.SendKeys "帐号"
  15. >>%tmp%\QQLOG.vbs echo wscript.Sleep 1000
  16. >>%tmp%\QQLOG.vbs echo Wshell.SendKeys "{ENTER}"
  17. >>%tmp%\QQLOG.vbs echo Wshell.SendKeys "{ENTER}"
  18. >>%tmp%\QQLOG.vbs echo rem
  19. %tmp%\QQLOG.vbs
  20. del %tmp%\QQLOG.vbs
复制代码

TOP

4Z1c1a8DeNoF9j+JHHRnrw
这是一段加密过的密码,你直接替换为明文密码当然是不行的。
心绪平和,眼藏静谧。

TOP

回复 3楼 的帖子

4Z1c1a8DeNoF9j+JHHRnrw==
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 2楼 的帖子

密码是哪一段  嘻嘻

TOP

  1. @echo off
  2. for /f "skip=4 tokens=1,2 delims=:" %%a in ('reg query HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ /v Install') do (
  3.   set QQPathL=%%a
  4.   set QQPathR=%%b
  5. )
  6. set QQPath=%QQPathL:~-1%:%QQPathR%
  7. start "" "%QQPath%qq.exe" /start QQUIN:843875648 PWDHASH:4Z1c1a8DeNoF9j+JHHRnrw== /stat:10
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表