|
- 帖子
- 4
- 积分
- 174
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2008-5-10
|
[文本处理] 简洁方便小p编辑工具(不知道怎么在原创代码里发帖)
1.将三个批处理放在同一文件夹
2.只支持vista,xp可以更改快捷方式的路径再用.
3.可以当作命令使用,edit d卸载
4.本想加入"添加/卸载程序"中,觉得没必要
5.希望各位对此小p提宝贵意见.
6.喜欢的可以在右键添加新建批处理文件:reg add hkcr\.bat\shellnew /v filename /t reg_sz
刷新几次就行了
1.edit.bat
@echo off
c:
cls
color E9
title Microsoft dos editer
cls
if exist %windir%\installbat.txt goto over
mode con cols=82 lines=25
setlocal enabledelayedexpansion
Echo "||||||||||"
Echo ^( @ @ ^)
Echo ╰─╯
Echo ***************Oo00*****浪迹清风****00oo*******************
Echo * *
Echo * Travelling On The Road ,The Wind Takes Me! *
Echo * *
Echo ***********************************************************
echo.
echo.
echo 准备安装.................
echo 运行环境:vista
ping 127.0.0.1 /n 1 >nul
echo [InternetShortcut] >>C:\Users\yzj\Desktop\Edit.url
echo URL=c:\edit.bat>>C:\Users\yzj\Desktop\Edit.url
echo IconIndex=0 >>C:\Users\yzj\Desktop\Edit.url
echo IconFile=c:\windows\system32\notepad.exe >>C:\Users\yzj\Desktop\Edit.url
copy "C:\Users\yzj\Desktop\Edit.url" "C:\Users\yzj\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\edit.url" >nul
md "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\edit"
copy "C:\Users\yzj\Desktop\Edit.url" "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\EDIT\edit.url" >nul
ping 127.0.0.1 /n 2 >nul
set c=1
cls
 OGO1
::选择安装部分
set /a c+=1
set a=○○○○○○○○○○●○○○○○○○○○○○
set g=...........
for /l %%b in (10,-1,1) do (
set c%%b=○
echo.
echo.
echo ┏━━━━━━━━━━━┓
echo ┃ !a:~%%b,10! ┃
echo ┗━━━━━━━━━━━┛
echo ok
echo.
echo 正在添加桌面快捷方式
echo 正在添加快速启动快捷方式
echo 正在添加开始菜单快捷方式
echo 正在创建tmp....
ping 127.0.0.1 /n 1 /l 16 >nul
echo.
cls
)
set e=○○○○○○○○○○●○○○○○○○○○○○
for /l %%b in (1,1,10) do (
echo.
echo.
echo ┏━━━━━━━━━━━┓
echo ┃ !a:~%%b,10! ┃
echo ┗━━━━━━━━━━━┛
echo %%b0%%
echo.
echo 正在添加桌面快捷方式!g:~5,%%b!
echo 正在添加快速启动快捷方式!g:~5,%%b!
echo 正在添加开始菜单快捷方式!g:~5,%%b!
echo 成功抽取%%b.tmp
ping 127.0.0.1 /n 1 /l 16 >nul
echo.
cls
)
if not "%c%" == "5" goto LOGO1
echo ok >%windir%\installbat.txt
exit
 ver
::注册信息
if exist %userprofile%\log.txt type %userprofile%\log.txt
::注册部分
if not exist %userprofile%\log.txt (
echo 1 >>%userprofile%\login.txt
for /f "skip=3" %%a in (%userprofile%\login.txt) do (
if "%%a" == "1" (
msg %username% 请注册个人信息!!!
goto login
)
)
)
c:
call :help
::主程序
:menu
if exist history.txt type history.txt
set /p name=请输入文件名:
if "%name%" == "" goto menu
if "%name%" == "e" msg %username% byebye! & exit
if not exist %name%.bat (
echo %date%的%time%的历史记录: >> history.txt
echo %name% >>history.txt
echo ::编辑完保存退出即可 >> %name%.bat
echo ok && echo @echo off>> %name%.bat
echo ::标题 >> %name%.bat
echo title [标题]: >> %name%.bat
echo ::代码注释 >> %name%.bat
echo ::主程序 >> %name%.bat
echo ::批处理开始-------------------------------------------------- >> %name%.bat
echo ::批处理结束-------------------------------------------------- >> %name%.bat
echo pause >> %name%.bat
echo exit >> %name%.bat
notepad %name%.bat
cls
goto menu
) else (
:choose
cls
echo 当前正在编辑的文件:%name%
choice /c MSE /m E继续上次编辑,S测试,M返回菜单
if errorlevel 3 (
notepad %name%.bat
cls
goto choose
)
if errorlevel 2 (
ping 127.0.0.1 /n 1 >nul
start %name%.bat
cls
goto choose
)
if errorlevel 1 (
cls
goto menu
)
)
set name=
set name1=
set mail=
set name=
set c=
set a=
set b=
pause
:login
set /p name1=Name:
set /p mail=E-mail:
echo 注册日期:%date%的%time% >>%userprofile%\log.txt
echo 姓名:%name1% >>%userprofile%\log.txt
echo 电子邮件:%mail% >>%userprofile%\log.txt
exit
:help
echo @echo off > help.bat
echo color 31 >> help.bat
echo mode con cols=40 lines=30 >> help.bat
echo :start>> help.bat
echo set /p name2=输入命令名称(打开网页搜寻): >> help.bat
echo if not "%%name2%%" == "" %%name2%% /?>> help.bat
echo start http://www.baidu.com/s?wd=%%name2%%命令 >> help.bat
echo pause >> help.bat
echo cls >> help.bat
echo goto start >> help.bat
start help.bat
2.install.bat
color E9
mode con cols=25 lines=10
@echo off
title 浪迹清风
if "%1" == "d" (
del %userprofile%\log.txt >nul
del %userprofile%\login.txt >nul
del c:\windows\installbat.txt >nul
) else (
move edit.bat c:\edit.bat >nul
echo 正在安装.....
ping 127.0.0.1 /n 2 >nul
c:l
start c:\edit.bat
)
exit
3.uninstall.bat
color E9
mode con cols=25 [email=lines=10@echo]lines=10[/email]
@echo off
start /wait /min install.bat d
move c:\edit.bat edit.bat
del "C:\Users\yzj\Desktop\Edit.url"
del "C:\Users\yzj\Desktop\Edit.url" "C:\Users\yzj\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\edit.url" >nul
rd "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\edit" /q /s
del "C:\Users\yzj\Desktop\Edit.url" "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\EDIT\edit.url" >nul
del %userprofile%\log.txt
del %userprofile%\login.txt
cls
echo ok......
msg %username% 卸载完毕!
exit
[ 本帖最后由 604650699 于 2008-10-16 09:51 编辑 ] |
|
发表于 2008-10-15 15:20
| 
发表于 2008-10-15 15:52
|