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

回复 41楼 的帖子

如果想申请加入技术组,建议把自己的作品发布到相应版块,然后在这里给出链接即可。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 40楼 的帖子

晚了,俺已经发布了啊。。。
当一个人不断追问的时候,其实就已经对自己产生了怀疑

TOP

回复 39楼 的帖子

如果想申请加入技术组,建议把自己的作品发布到相应版块,然后把在这里给出链接即可。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

密码加密文件发不上来,7W多字节。。。

让我怎么复制啊

TOP

  1. @echo off
  2. ::-----S----------QQ自动登录数据------------------------------------
  3. ::QQData 显示1_362220083_加密后的密码
  4. ::QQData 显示2_QQ号_依旧是加密
  5. ::QQData 显示3_QQ号_加密密码
  6. ::-----E------------------------------------------------------------
  7. ::-----S----------功能开关(开启={Nul},关闭=::,调试=echo )--------
  8. set Exp_NotDebug=
  9. set Exp_NoSelect=
  10. set Exp_AutoLogo=
  11. set Exp_SearchPath=::
  12. ::-----E------------------------------------------------------------
  13. ::-----S----------Exp_AutoLogo--------------------------------------
  14. set AutoLogoNum=
  15. ::-----E------------------------------------------------------------
  16. ::-----S----------Exp_SearchPath------------------------------------
  17. set QQPath=D:\Program Files\Tencent\QQ
  18. ::-----E------------------------------------------------------------
  19. @echo on
  20. %Exp_NotDebug%@echo off
  21. title QQ自动登陆工具--小蔡专用
  22. %Exp_NotDebug%mode.com con: cols=35 lines=3
  23. color a
  24. setlocal ENABLEDELAYEDEXPANSION
  25. setlocal ENABLEEXTENSIONS
  26. echo.
  27. echo. 初始化...
  28. set AppPath=%QQPath%
  29. %Exp_SearchPath%for /f "tokens=1,2*" %%a in ('reg.exe query HKLM\SOFTWARE\Tencent\QQ /v install ^|find /i "install"') do set AppPath=%%c
  30. if [!AppPath!]==[] (set Timer=10 &goto FindErr)
  31. if "!AppPath:~-1!"=="\" (set AppPath=!AppPath:~0,-1!)
  32. if not exist "!AppPath!\QQ.exe" (set Timer=10 &goto FindErr)
  33. set LineSum=3
  34. for /f %%i in ('type %~s0^|find.exe /i "::QQData"') do (
  35. if /i "%%i"=="::QQData" (set /a LineSum=!LineSum!+1)
  36. )
  37. %Exp_NotDebug%mode.com con: cols=35 lines=!LineSum!
  38. REM 如果检测只有一条记录(原本的3行+1行数据),直接赋值并启动,跳过显示列表部分
  39. if /i !LineSum! EQU 4 (set Chose=1 &set QQSum=1 &goto MainQQ)
  40. REM 自动登录,根据登陆条件,直接赋值并启动
  41. %Exp_AutoLogo%if not "%AutoLogoNum%"=="" (set Chose=%AutoLogoNum% &set QQSum=99 &goto MainQQ)
  42. %Exp_NotDebug%cls
  43. color d
  44. echo.
  45. for /f "tokens=1,*" %%a in ('type %~s0^|find.exe /i "::QQData"') do (
  46. if /i "%%a"=="::QQData" (
  47. for /f "tokens=1,2,* delims=_" %%i in ("%%b") do (
  48. set /a QQSum=!QQSum!+1
  49. echo+ !QQSum!. %%i[%%j]
  50. )
  51. )
  52. )
  53. echo.
  54. set /p Chose=选择[1-!QQSum!]:
  55. :MainQQ
  56. color d
  57. %Exp_NotDebug%cls
  58. ::-----S------若没有选择,直接回车,则默认第一项------------
  59. %Exp_NoSelect%if "%Chose%"=="" (set Chose=1 &set QQSum=1 &goto MainQQ)
  60. ::-----E----------------------------------------------------
  61. if /i %Chose% LSS 1 (exit)
  62. if /i %Chose% GTR !QQSum! (exit)
  63. set /a CenterNum=!LineSum!/2
  64. set /a SortLineNum=!LineSum!-1
  65. set QQSum=0
  66. for /f "tokens=1,*" %%a in ('type %~s0^|find.exe /i "::QQData"') do (
  67. if /i "%%a"=="::QQData" (
  68. set /a chkNum=!chkNum!+1
  69. if /i %Chose% EQU !chkNum! (
  70. for /f "tokens=1,2,* delims=_" %%i in ("%%b") do (
  71. for /l %%x in (1,1,!SortLineNum!) do (
  72. if /i %%x NEQ !CenterNum! (echo+) else (echo+ %%i_%%j)
  73. )
  74. start "" /d"!AppPath!" "!AppPath!\QQ.exe" /START QQUIN:%%j PWDHASH:%%k /STAT:40
  75. )
  76. )
  77. )
  78. )
  79. ping.exe 127.1 -n 4 >nul 2>nul
  80. ::taskkill.exe /im TIMPlatform.exe /f >nul 2>nul
  81. ::taskkill.exe /im TXPlatform.exe /f >nul 2>nul
  82. exit
  83. :FindErr
  84. if [!Timer!]==[0] exit
  85. set /a Timer=!Timer!-1
  86. mode con: cols=36 lines=9
  87. color a
  88. cls
  89. echo [!Timer!] 秒后自动退出
  90. echo.
  91. echo The QQ-Tool not find QQ.exe
  92. echo Please correctly install Client
  93. echo.
  94. echo 本工具未发现QQ.exe
  95. echo 请正确安装QQ客户端
  96. echo.
  97. ping 127.0.0.1 -n 2 >nul 2>nul
  98. goto FindErr
复制代码

TOP

回复 35楼 的帖子

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

TOP

让我想想~
除了技术方面~
版主应该具有以下性质
http://www.cn-dos.net/forum/viewthread.php?tid=11746
……

TOP

你好啊

申请版主是什么资格类型的呢

TOP

关注技术招募,个人努力中。

TOP

回复 32楼 的帖子

我只是个人对此感兴趣,仅此而已。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

原帖由 Batcher 于 2009-2-23 21:43 发表
能否说说你这个软件是用什么语言开发的?



是用易语言开发的


这个很重要吗?

TOP

原帖由 inows 于 2009-2-23 20:55 发表
下面的是我的作品是批处理脚本的编辑器
是用来参加比赛的 现在还不能公开发布
要等到5月份才可以的
我的批处理脚本编写技术只能说是一般,你上面说的要求我基本上是满足了
希望版主批准我加入技术组讨论

949

编程高手不一定批处理行,还请兄弟发表几篇“批文”了。
***共同提高***

TOP

回复 29楼 的帖子

能否说说你这个软件是用什么语言开发的?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

下面的是我的作品是批处理脚本的编辑器
是用来参加比赛的 现在还不能公开发布
要等到5月份才可以的
我的批处理脚本编写技术只能说是一般,你上面说的要求我基本上是满足了
希望版主批准我加入技术组讨论

TOP

来这里支持一下,希望越办越好,让大家都能学到自己喜欢的东西!我才刚刚入门!

TOP

返回列表