batman

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

949

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

inows

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

是用易语言开发的


这个很重要吗？

Batcher

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

wangfir

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

xin26463825

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

523066680

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

Batcher

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

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
复制代码

qq362220083

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

让我怎么复制啊

Batcher

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

qq362220083

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

Batcher

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

null

申请加入，作品倒是没写过什么，对FOR的理解运用还可以吧，现在感觉最大的瓶颈在于思维的拓展，总感觉思维比较狭隘，希望通过加入技术组，通过和各位高手的学习，能有所突破！

——————————————————————————————————
设置技术组的初衷，是希望组建论坛的技术团队，去帮助更多的人，而不是
为了提高自身的水平而加入这个这个团队——当然，加入这个团队确实能使
自己的技术得到提升，这是显而易见的。如果只是为了拓展思维，可以多在
论坛里泡泡，或者自己提出一些话题与大家一起讨论；如果确实想加入技术
组，还请以合适的方式展示自己的批处理水平，因为技术组的任务是尽可能
地帮助别人，而不是反过来把自己当做被帮助的对象。

　　　　　　　　　　——by namejm  2009.4.8

hundanshijie

刚加入的~~~
以后一定积极回答问题

netbenton

申请加入！
以下几个是我的原创批处理

汇编语言程序开发工具批处理：
http://www.cn-dos.net/forum/viewthread.php?tid=46194
http://www.cn-dos.net/forum/viewthread.php?tid=46756

黑客数码雨（双向多效果）：
http://bbs.bathome.net/redirect.php?goto=findpost&pid=27008&ptid=1393

五子棋(人机对战)：
http://bbs.bathome.net/thread-4423-1-1.html

________________________________________________________

帖主十分强悍，你的加入，将会大大加强论坛的技术力量，除了立马同意
你的申请，我已经找不到更好的方式表达我现在的喜悦了^_^。

                                            ——by namejm  2009.5.6