返回列表 发帖

[其他软件] 个人软件收集整理工具 V0.1

更新说明:
增加了进行压缩的功能,并能自定义取名。


  平时我有收集软件的习惯,网上有新版本的绿色软件更新了我都会去下载来收藏,以备不时之需。而每次下载软件来对里面的一些LJ广告文件深恶痛绝,每次都要将他们删之干净,然后再重新打包起来收藏。
  一个压缩包还好,每天对这些包包做同样的重复劳动那可真太累人了。于是我动脑筋做出了这个批处理东东。给那些同样有天天收集软件习惯的网友们提供方便。



批处理流程简介:
  第一部分为欲删除的绝对LJ文件,可以根据你平时所访问站点的习惯自行添加。
  第二部分对于“使用说明.TXT”与“Readme.TXT”有的站点可能会存在有用信息,或者“Readme.TXT”为软件本身的英文介绍,并非LJ广告文件。所以设置为有查看内容的选项,“使用说明.TXT”也是同理。
  第三部分询问是否新建一个“说明.TXT”的文件用于存放说明内容。
  第四部分为进行打包压缩的过程。


  批处理代码是开源的,大家可以任意改,如果有什么好的建议或BUG指正请联系我,E-mail:nb-wangyi@163.com


压缩包内附一个简单的教程,告诉大家具体是什么用的




下载地址:
http://free.ys168.com/?heicai




——————————————————————————————————————

批处理源码:

Copy code
@echo off
title 个人软件收集整理工具(版权所有:黑菜 仅供网友们交流,翻版不究)
color 7c
mode con cols=55 lines=8

::此部分文件作为广告文件处理,直接删除掉。(可以根据平时光顾的软件站特点,自行添加。)
del /F /Q 绿盟.url 2>nul
del /F /Q help.htm 2>nul
del /F /Q 1001下载乐园 2>nul
del /F /Q Readme.htm 2>nul
del /F /Q 会员服务.txt 2>nul
del /F /Q 3800HK.jpg 2>nul
del /F /Q 3800hk.com.url 2>nul
del /F /Q ##请注意##.txt 2>nul
del /F /Q 77169.org软件说明.htm 2>nul
del /F /Q 77169.org使用帮助说明.txt 2>nul
del /F /Q 华夏黑客同盟.url 2>nul
del /F /Q 07年VIP火爆培训课.txt 2>nul
del /F /Q 网络攻防年会员(超实惠价).txt 2>nul
del /F /Q 07年最新VIP教学课程.url 2>nul
del /F /Q 新世纪网安培训基地.url 2>nul
del /F /Q 1001下载乐园.url 2>nul
del /F /Q 绿化说明.txt 2>nul

::此部分说明或许含有真正说明内容,将询问如何对其操作。

if not exist Readme.TXT goto 1N
:1select
cls
echo.
SET Choice=
echo     对"Readme.TXT"文件如何操作。
echo     1、查看内容
echo     2、删除
echo     3、跳过
echo.
SET /P Choice=    请选择 :
IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1%
IF /I '%Choice%'=='1' GOTO 1T
IF /I '%Choice%'=='2' GOTO 1D
IF /I '%Choice%'=='3' GOTO 1N
IF /I '%Choice%'=='' GOTO 1select
:1T
Readme.txt
cls
echo.
SET Choice=
echo     对"Readme.TXT"文件如何操作。
echo     1、删除
echo     2、跳过
echo.
SET /P Choice=    请选择 :
IF /I '%Choice%'=='1' GOTO 1D
IF /I '%Choice%'=='2' GOTO 1N

:1D
del Readme.txt

:1N
if not exist 使用说明.TXT goto csm
:2select
cls
echo.
SET Choice=
echo     对"使用说明.TXT"文件如何操作。
echo     1、查看内容
echo     2、删除
echo     3、改名为"说明.TXT"
echo.
SET /P Choice=    请选择 :

IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1%
IF /I '%Choice%'=='1' GOTO 2T
IF /I '%Choice%'=='2' GOTO 2D
IF /I '%Choice%'=='3' (ren 使用说明.txt 说明.txt && GOTO exit)
IF /I '%Choice%'=='' GOTO 2select
:2T
使用说明.txt
cls
echo.
SET Choice=
echo     对"使用说明.TXT"文件如何操作。
echo     1、删除
echo     2、改名为"说明.TXT"
echo.
SET /P Choice=    请选择 :
IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1%
IF /I '%Choice%'=='1' GOTO 2D
IF /I '%Choice%'=='2' (ren 使用说明.txt 说明.txt && GOTO exit)
:2D
del 使用说明.txt

:csm
::询问是否自己建一个"说明.TXT"文件,用来存放说明内容。
cls
echo.
SET Choice=
echo     是否建"说明.TXT"文件?
echo     1、新建
echo     2、跳过
echo.
SET /P Choice=    请选择 :
IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1%
IF /I '%Choice%'=='1' GOTO sM
IF /I '%Choice%'=='2' GOTO sN
IF /I '%Choice%'=='' GOTO select

:sM
call >>说明.txt
说明.txt
goto exit

:sN
del 说明.txt >nul 2>nul
GOTO exit


:exit
::对CMD更改为快速编辑模式,为下面的操作提供方便,按鼠标右键即可实现粘贴功能。
REG ADD HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v "QuickEdit" /t REG_DWORD /d 1 /f >nul

cls
echo.
set RENAME=
SET /P RENAME= 请粘贴要命名的压缩包名称(不带后缀) :

::压缩工作
echo.
echo   压缩中……
copy /Y "%ProgramFiles%"\winrar\rar.exe %systemroot%\system32\rar.exe >nul
copy /Y "%ProgramFiles%"\winrar\rarreg.key %systemroot%\system32\rarreg.key >nul
rar a -s -x个人软件收集整理工具.bat "%RENAME%".rar >nul
cls
echo.
echo   "%RENAME%.rar" 已成功放在当前目录下。请查看。
pause >nul


!!!浪子,爱是奉献而非索取 !!!

好棒
非常有用
楼主辛苦了

TOP

高手啊,呵呵,只是不知道这位高手,能不能破解现在的农药电子手册(企业版),好多人都在破解,可终究没有破了。

TOP

返回列表