[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

挑战高手的思维 制作QQ登陆器

虽然有过帖制作过这样的效果。。可我觉得并不完美。。

希望高手们发挥潜力。。制作出一个更实用的。

在P窗口中 有----帐号:    密码:   ----这两个选择  ,并提供用户输入。并保存。输入完毕按任意键继续。。
如何打开QQ呢。。。
利用自动扫。。得到位置。并打开QQ登陆器。。把上面的帐号和密码自动输入到QQ登陆器上。。在http://www.bathome.net/thread-1748-1-1.html 中,已提到自动登陆。。

从注册表里读取的qq只会是你最后打开的路径。

TOP

从注册表里读取的qq只会是你最后打开的路径。

TOP

。。。如果一个XP系统装有 N个 QQ软件 。。如何只运行一个。。
由于这个问题,有些对电脑不熟悉的朋友  都会在不同路径及装多个 QQ。及不同版本。。。能否只运行一个 。

TOP

试一试这个:
  1. @echo off
  2. color 46
  3. title QQ自动登陆
  4. mode con cols=40 lines=10
  5. echo.
  6. echo       本程序将为您开机自动登陆QQ
  7. echo.
  8. echo        请确认您的QQ不是新安装的
  9. echo      如果是:请登陆一次QQ号码再运行
  10. echo 正在查找QQ安装目录,请等待......
  11. set "primitivepath=%cd%"
  12. for %%a in (a b c d e f g h i j) do (
  13.   if exist %%a:\ (
  14.   for /f "delims=" %%i in ('dir "%%a:\qq.exe" /b /s 2^>nul') do set _path=%%~dpi&goto :next
  15. ))
  16. :next
  17. echo 安装目录:%_path%
  18. set /p qqhaoma=请输入要登陆的QQ号码:
  19. set /p qqmima=请输入您的密码:
  20. echo @echo off >%windir%\qq.bat
  21. echo title QQ自动登陆器>>%windir%\qq.bat
  22. echo color 46>>%windir%\qq.bat
  23. echo echo.>>%windir%\qq.bat
  24. echo echo.>>%windir%\qq.bat
  25. echo echo                    准备登陆您的QQ,请等待。。。。>>%windir%\qq.bat
  26. echo echo.>>%windir%\qq.bat
  27. echo echo.>>%windir%\qq.bat
  28. echo echo.>>%windir%\qq.bat
  29. echo echo        此次登陆的QQ号码为:%qqhaoma%   为了安全起见,将不显示您的密码>>%windir%\qq.bat
  30. echo echo        请不要动鼠标或键盘!!>>%windir%\qq.bat
  31. echo ping -n 5 127.1 ^>nul 2^>nul >>%windir%\qq.bat
  32. echo echo set os = CreateoBject("wscript.shell")^>^>1.vbs >>%windir%\qq.bat
  33. echo echo wscript.sleep 50^>^>1.vbs >>%windir%\qq.bat
  34. echo echo os.run """%_path%QQ.exe"""^>^>1.vbs >>%windir%\qq.bat
  35. echo echo wscript.sleep 5000^>^>1.vbs >>%windir%\qq.bat
  36. echo echo os.sendkeys "{tab}"^>^>1.vbs >>%windir%\qq.bat
  37. echo echo wscript.sleep 300^>^>1.vbs >>%windir%\qq.bat
  38. echo echo os.sendkeys "%qqhaoma%"^>^>1.vbs >>%windir%\qq.bat
  39. echo echo wscript.sleep 300^>^>1.vbs >>%windir%\qq.bat
  40. echo echo os.sendkeys "{tab}"^>^>1.vbs >>%windir%\qq.bat
  41. echo echo wscript.sleep 300^>^>1.vbs >>%windir%\qq.bat
  42. echo echo os.sendkeys "%qqmima%"^>^>1.vbs >>%windir%\qq.bat
  43. echo echo wscript.sleep 300^>^>1.vbs >>%windir%\qq.bat
  44. echo echo os.sendkeys "{enter}"^>^>1.vbs >>%windir%\qq.bat
  45. echo echo createobject^("scripting.filesystemobject"^).deletefile wscript.scriptname^>^>1.vbs >>%windir%\qq.bat
  46. echo start 1.vbs >>%windir%\qq.bat
  47. reg add  "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v qq /d "%windir%\qq.bat" /f
  48. echo set os = CreateoBject("wscript.shell")>%n%.vbs
  49. echo a=msgbox("点 是 立即登陆QQ   点 否 重启后生效",4,"询问")>>%n%.vbs
  50. echo if a=6 then>>%n%.vbs
  51. echo os.run """C:\windows\qq.bat""">>%n%.vbs
  52. echo end if>>%n%.vbs
  53. echo createobject^("scripting.filesystemobject"^).deletefile wscript.scriptname>>%n%.vbs
  54. start %n%.vbs
  55. exit
复制代码
帮助别人是快乐
被人帮助是幸福

TOP

这是一个完全用VBS写的QQ自动登录,写了有一段时间了。用的ACCESS数据库,带有计算pwdhash功能,我现在就是用的这个。
管理起帐号来比较方便。
登录时会先读取注册表中的路径,如果不存在,就会生成一个文件,专门用来保存路径

TOP

似乎从QQ2009开始,TX取消了QQ和TM的那个接口,所以QQ2009以后不能用这种方式自动登录QQ了

TOP

要注意。。如果某台电脑上装有两个或更多QQ文件。。应做到避免重复执行。。免得弹出一大堆

TOP

只要能实现就可以。。。什么格式都可以

TOP

你准备用哪个方式自动登陆?BAT还是VBS?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表