Batcher

如果想申请加入技术组，建议把自己的作品发布到相应版块，然后在这里给出链接即可。

qq362220083

晚了，俺已经发布了啊。。。

Batcher

如果想申请加入技术组，建议把自己的作品发布到相应版块，然后把在这里给出链接即可。

qq362220083

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

让我怎么复制啊

qq362220083

@echo off

::-----S----------QQ自动登录数据------------------------------------
::QQData 显示1_362220083_加密后的密码
::QQData 显示2_QQ号_依旧是加密
::QQData 显示3_QQ号_加密密码
::-----E------------------------------------------------------------

::-----S----------功能开关(开启={Nul}，关闭=::，调试=echo )--------
set Exp_NotDebug=
set Exp_NoSelect=
set Exp_AutoLogo=
set Exp_SearchPath=::
::-----E------------------------------------------------------------

::-----S----------Exp_AutoLogo--------------------------------------
set AutoLogoNum=
::-----E------------------------------------------------------------

::-----S----------Exp_SearchPath------------------------------------
set QQPath=D:\Program Files\Tencent\QQ
::-----E------------------------------------------------------------
@echo on

%Exp_NotDebug%@echo off
title QQ自动登陆工具--小蔡专用
%Exp_NotDebug%mode.com con: cols=35 lines=3
color a
setlocal ENABLEDELAYEDEXPANSION
setlocal ENABLEEXTENSIONS
echo.
echo. 初始化...
set AppPath=%QQPath%
%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
if [!AppPath!]==[] (set Timer=10 &goto FindErr)
if "!AppPath:~-1!"=="\" (set AppPath=!AppPath:~0,-1!)
if not exist "!AppPath!\QQ.exe" (set Timer=10 &goto FindErr)
set LineSum=3
for /f %%i in ('type %~s0^|find.exe /i "::QQData"') do (
if /i "%%i"=="::QQData" (set /a LineSum=!LineSum!+1)
)
%Exp_NotDebug%mode.com con: cols=35 lines=!LineSum!

REM 如果检测只有一条记录(原本的3行+1行数据)，直接赋值并启动，跳过显示列表部分
if /i !LineSum! EQU 4 (set Chose=1 &set QQSum=1 &goto MainQQ)

REM 自动登录，根据登陆条件，直接赋值并启动
%Exp_AutoLogo%if not "%AutoLogoNum%"=="" (set Chose=%AutoLogoNum% &set QQSum=99 &goto MainQQ)

%Exp_NotDebug%cls
color d
echo.
for /f "tokens=1,*" %%a in ('type %~s0^|find.exe /i "::QQData"') do (
if /i "%%a"=="::QQData" (
for /f "tokens=1,2,* delims=_" %%i in ("%%b") do (
set /a QQSum=!QQSum!+1
echo+ !QQSum!. %%i[%%j]
)
)
)
echo.
set /p Chose=选择[1-!QQSum!]:

:MainQQ
color d
%Exp_NotDebug%cls
::-----S------若没有选择，直接回车，则默认第一项------------
%Exp_NoSelect%if "%Chose%"=="" (set Chose=1 &set QQSum=1 &goto MainQQ)
::-----E----------------------------------------------------
if /i %Chose% LSS 1 (exit)
if /i %Chose% GTR !QQSum! (exit)
set /a CenterNum=!LineSum!/2
set /a SortLineNum=!LineSum!-1
set QQSum=0
for /f "tokens=1,*" %%a in ('type %~s0^|find.exe /i "::QQData"') do (
if /i "%%a"=="::QQData" (
set /a chkNum=!chkNum!+1
if /i %Chose% EQU !chkNum! ( 
for /f "tokens=1,2,* delims=_" %%i in ("%%b") do (
for /l %%x in (1,1,!SortLineNum!) do (
if /i %%x NEQ !CenterNum! (echo+) else (echo+ %%i_%%j)
)
start "" /d"!AppPath!" "!AppPath!\QQ.exe" /START QQUIN:%%j PWDHASH:%%k /STAT:40
)
)
)
)
ping.exe 127.1 -n 4 >nul 2>nul
::taskkill.exe /im TIMPlatform.exe /f >nul 2>nul
::taskkill.exe /im TXPlatform.exe /f >nul 2>nul
exit

:FindErr
if [!Timer!]==[0] exit
set /a Timer=!Timer!-1
mode con: cols=36 lines=9
color a
cls
echo [!Timer!] 秒后自动退出
echo.
echo The QQ-Tool not find QQ.exe
echo Please correctly install Client
echo.
echo 本工具未发现QQ.exe
echo 请正确安装QQ客户端
echo.
ping 127.0.0.1 -n 2 >nul 2>nul
goto FindErr
复制代码

Batcher

版主申请必读
http://bbs.bathome.net/thread-77-1-1.html

523066680

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

xin26463825

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

wangfir

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

Batcher

我只是个人对此感兴趣，仅此而已。

inows

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

是用易语言开发的


这个很重要吗？

batman

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

949

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

Batcher

能否说说你这个软件是用什么语言开发的？

inows

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

smith2009

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