中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [分享]我的部分批处理收藏

English/Chinese Fix Translation

作者:

标题: [分享]我的部分批处理收藏

上一主题 | 下一主题

electronixtar
铂金会员

积分 7493
发帖 2672
注册 2005-9-2
状态离线

『第 16 楼』: 使用 LLM 解释/回答一下

强烈要求 2F 5F 和 12F 的同学把私藏代码分享出来！！！

此帖被 +1 点积分点击查看详情

C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"

2006-12-7 09:02

查看资料发送邮件发短消息网志

needed
新手上路

积分 10
发帖 4
注册 2006-10-11
状态离线

『第 17 楼』: 使用 LLM 解释/回答一下

收藏了.谢谢分享

2006-12-7 10:31

查看资料发短消息网志

yqadsq1314
初级用户

积分 30
发帖 26
注册 2006-10-25
状态离线

『第 18 楼』: 棒极了，我顶。使用 LLM 解释/回答一下

此帖被 -15 点积分

点击查看详情

2006-12-7 20:08

查看资料发送邮件发短消息网志

namejm
荣誉版主

batch fan

积分 5226
发帖 1737
注册 2006-3-10
来自成都
状态离线

『第 19 楼』: 使用 LLM 解释/回答一下

Originally posted by electronixtar at 2006-12-6 20:02:
强烈要求 2F 5F 和 12F 的同学把私藏代码分享出来！！！

　　响应 electronixtar 同学的号召，把我平时收集的代码都发上来。有部分是我写的，大都加了注释，有些代码是很久以前写的，有很多地方考虑不是很周全，比较大型的脚本就不上传了——半年前，我还是个刚学飞的菜鸟，hoho。

此帖被 +30 点积分

点击查看详情

附件 1: DOS批处理代码.rar (2006-12-7 23:39, 146.12 KiB, 下载附件所需积分 1 点 ,下载次数： 2052)

尺有所短，寸有所长，学好CMD没商量。
考虑问题复杂化，解决问题简洁化。

2006-12-7 23:39

查看资料发短消息网志

ccwan
金牌会员

积分 2725
发帖 1160
注册 2006-9-23
来自河北廊坊
状态离线

『第 20 楼』: 使用 LLM 解释/回答一下

谢谢版主分享！

三人行，必有吾师焉。学然后知不足，教然后知困，然后能自强也。

2006-12-7 23:52

查看资料发送邮件发短消息网志

ccwan
金牌会员

积分 2725
发帖 1160
注册 2006-9-23
来自河北廊坊
状态离线

『第 21 楼』: 使用 LLM 解释/回答一下

namejm兄竟然在代码中把出处和原作者都注明，真是细心啊～～
无限佩服……

三人行，必有吾师焉。学然后知不足，教然后知困，然后能自强也。

2006-12-7 23:55

查看资料发送邮件发短消息网志

NeverLand
初级用户

积分 28
发帖 11
注册 2006-11-17
状态离线

『第 22 楼』: 使用 LLM 解释/回答一下

感谢！！！

2006-12-8 00:17

查看资料发送邮件发短消息网志

youxi01
高级用户

积分 846
发帖 247
注册 2006-10-27
来自湖南==》广东
状态离线

『第 23 楼』: 使用 LLM 解释/回答一下

哇，同namejm，我也是在国庆放假的时候对CMD产生浓厚的兴趣的（在批处理吧的时候）。
刚刚看了namejm的收藏，看到一个 “搞笑开机.bat” ，在批处理吧也出现过，不过该代码通过不断的刷屏来实现动画，所以会出现屏幕震动的情况，如果用vbs来实现的话则可以解决这个问题：

::CMD 2000开机搞笑代码完全模拟



@echo off

::::::::::::::::::::::::::

:生成vbs脚本，用来显示动画

echo CD=Wscript.Arguments(1)>showplan.vbe

echo Str=Wscript.Arguments(0)>>showplan.vbe

echo Time_Delay=Wscript.Arguments(2)>>showplan.vbe

echo Switch1=Wscript.Arguments(3)>>showplan.vbe

echo Switch2=Wscript.Arguments(4)>>showplan.vbe

echo Str_Len=len(Str)>>showplan.vbe

echo Show_Str Str,Str_Len,CD,Time_Delay,Switch1,Switch2>>showplan.vbe

echo wscript.stdout.write vbcrlf>>showplan.vbe

echo Function Show_Str(str,strlen,CD,Speed,Switch1,Switch2)>>showplan.vbe

echo     IF Ucase(Switch2)=^"Y^" then>>showplan.vbe

echo     Show_Cursor 8,CD>>showplan.vbe

echo     End if>>showplan.vbe

echo     IF str^<^>^"^" then>>showplan.vbe

echo          For i=1 to strlen>>showplan.vbe

echo             if i mod 2=0 then>>showplan.vbe

echo                Cursor=^" ^">>showplan.vbe

echo             else>>showplan.vbe

echo                Cursor=^"_^">>showplan.vbe

echo             end if>>showplan.vbe

echo             IF i=strlen then>>showplan.vbe 

echo                Cursor=^" ^">>showplan.vbe

echo             End if>>showplan.vbe

echo             IF Ucase(Switch1)=^"Y^" then>>showplan.vbe 

echo                str1=str1 ^& ^"^>^">>showplan.vbe

echo              wscript.stdout.write chr(13) ^& CD ^& str1^&Left(str,79-i) ^& chr(8)>>showplan.vbe

echo             Else>>showplan.vbe

echo               wscript.stdout.write chr(13) ^& CD ^& Left(str,i)^&Cursor^& chr(8)>>showplan.vbe

echo             End if>>showplan.vbe

echo             wscript.sleep Speed>>showplan.vbe

echo          Next>>showplan.vbe

echo    Else>>showplan.vbe

echo          Exit Function>>showplan.vbe

echo     End if>>showplan.vbe

echo End Function>>showplan.vbe

echo Function Show_Cursor(Num,CD)>>showplan.vbe

echo         for i=1 to Num>>showplan.vbe

echo             if i mod 2=0 then>>showplan.vbe

echo                Cursor=^" ^">>showplan.vbe

echo             else>>showplan.vbe

echo                Cursor=^"_^">>showplan.vbe

echo             end if>>showplan.vbe

echo             wscript.stdout.write chr(13) ^& CD ^& Cursor ^& chr(8)>>showplan.vbe

echo             wscript.sleep 200>>showplan.vbe

echo         Next>>showplan.vbe

echo End Function>>showplan.vbe

:初始设置;

set str1=开机

set str2=快开机

set str3=他妈的开机

set str4=你他妈到底开不开机

set str5=操!!再不开机老子砸了你!!

set str6=不是内部或外部命令，也不是可运行的程序

set str7=或批处理文件。

set str8================================================================================

:::::::::::::::::::::::::::::::::::::::::::::::

:主控程序；

cscript.exe showplan.vbe  %str1% "%~dp0>" 120 "" "Y" //nologo

call :Msg %str1%

cscript.exe showplan.vbe  %str2% "%~dp0>" 100 "" "Y" //nologo

call :Msg %str2%

cscript.exe showplan.vbe  %str3% "%~dp0>" 180 "" "Y" //nologo

call :Msg %str3%

cscript.exe showplan.vbe  %str4% "%~dp0>" 180 "" "Y" //nologo

call :Msg %str4%

cscript.exe showplan.vbe  %str5% "%~dp0>" 80 "" "Y" //nologo

cscript.exe showplan.vbe  "" "" 100 "" "Y" //nologo

echo                             Loading Windows 2000 ...

echo.

cscript.exe showplan.vbe  %str8% "" 50 "Y" "" //nologo

del showplan.vbe

:Msg

  ping -n 2 127.0.0.1>nul

  echo '%1'%str6%

  echo %str7%

  echo.

Wow, same as namejm, I also became very interested in CMD during the National Day holiday (when I was in the Batch Processing Bar).

Just now I saw namejm's collection and found a "Funny Boot.bat", which also appeared in the Batch Processing Bar. But this code uses continuous screen refreshing to achieve animation, so the screen will shake. If implemented with VBS, this problem can be solved:

::CMD 2000 Boot Funny Code Complete Simulation



@echo off

::::::::::::::::::::::::::

:Generate VBS script to display animation

echo CD=Wscript.Arguments(1)>showplan.vbe

echo Str=Wscript.Arguments(0)>>showplan.vbe

echo Time_Delay=Wscript.Arguments(2)>>showplan.vbe

echo Switch1=Wscript.Arguments(3)>>showplan.vbe

echo Switch2=Wscript.Arguments(4)>>showplan.vbe

echo Str_Len=len(Str)>>showplan.vbe

echo Show_Str Str,Str_Len,CD,Time_Delay,Switch1,Switch2>>showplan.vbe

echo wscript.stdout.write vbcrlf>>showplan.vbe

echo Function Show_Str(str,strlen,CD,Speed,Switch1,Switch2)>>showplan.vbe

echo     IF Ucase(Switch2)=^"Y^" then>>showplan.vbe

echo     Show_Cursor 8,CD>>showplan.vbe

echo     End if>>showplan.vbe

echo     IF str^<^>^"^" then>>showplan.vbe

echo          For i=1 to strlen>>showplan.vbe

echo             if i mod 2=0 then>>showplan.vbe

echo                Cursor=^" ^">>showplan.vbe

echo             else>>showplan.vbe

echo                Cursor=^"_^">>showplan.vbe

echo             end if>>showplan.vbe

echo             IF i=strlen then>>showplan.vbe 

echo                Cursor=^" ^">>showplan.vbe

echo             End if>>showplan.vbe

echo             IF Ucase(Switch1)=^"Y^" then>>showplan.vbe 

echo                str1=str1 ^& ^"^>^">>showplan.vbe

echo              wscript.stdout.write chr(13) ^& CD ^& str1^&Left(str,79-i) ^& chr(8)>>showplan.vbe

echo             Else>>showplan.vbe

echo               wscript.stdout.write chr(13) ^& CD ^& Left(str,i)^&Cursor^& chr(8)>>showplan.vbe

echo             End if>>showplan.vbe

echo             wscript.sleep Speed>>showplan.vbe

echo          Next>>showplan.vbe

echo    Else>>showplan.vbe

echo          Exit Function>>showplan.vbe

echo     End if>>showplan.vbe

echo End Function>>showplan.vbe

echo Function Show_Cursor(Num,CD)>>showplan.vbe

echo         for i=1 to Num>>showplan.vbe

echo             if i mod 2=0 then>>showplan.vbe

echo                Cursor=^" ^">>showplan.vbe

echo             else>>showplan.vbe

echo                Cursor=^"_^">>showplan.vbe

echo             end if>>showplan.vbe

echo             wscript.stdout.write chr(13) ^& CD ^& Cursor ^& chr(8)>>showplan.vbe

echo             wscript.sleep 200>>showplan.vbe

echo         Next>>showplan.vbe

echo End Function>>showplan.vbe

:Initial setup;

set str1=Booting

set str2=Booting fast

set str3=Damn it, booting

set str4=Do you boot or not you son of a bitch

set str5=Fuck!! If you don't boot again, I'll smash you!!

set str6=is not an internal or external command, nor is it a runnable program

set str7=or batch file.

set str8================================================================================

:::::::::::::::::::::::::::::::::::::::::::::::

:Main control program;

cscript.exe showplan.vbe  %str1% "%~dp0>" 120 "" "Y" //nologo

call :Msg %str1%

cscript.exe showplan.vbe  %str2% "%~dp0>" 100 "" "Y" //nologo

call :Msg %str2%

cscript.exe showplan.vbe  %str3% "%~dp0>" 180 "" "Y" //nologo

call :Msg %str3%

cscript.exe showplan.vbe  %str4% "%~dp0>" 180 "" "Y" //nologo

call :Msg %str4%

cscript.exe showplan.vbe  %str5% "%~dp0>" 80 "" "Y" //nologo

cscript.exe showplan.vbe  "" "" 100 "" "Y" //nologo

echo                             Loading Windows 2000 ...

echo.

cscript.exe showplan.vbe  %str8% "" 50 "Y" "" //nologo

del showplan.vbe

:Msg

  ping -n 2 127.0.0.1>nul

  echo '%1'%str6%

  echo %str7%

  echo.

2006-12-8 00:52

查看资料发送邮件发短消息网志

vkill
金牌会员

积分 4103
发帖 1744
注册 2006-1-20
来自甘肃.临泽
状态离线

『第 24 楼』: 使用 LLM 解释/回答一下

呵呵，有不少是reg哦

2006-12-8 05:43

查看资料发送邮件访问主页发短消息网志

a9319751
中级用户

积分 439
发帖 170
注册 2006-1-9
状态离线

『第 25 楼』: 使用 LLM 解释/回答一下

Originally posted by youxi01 at 2006-12-8 00:52:
哇，同namejm，我也是在国庆放假的时候对CMD产生浓厚的兴趣的（在批处理吧的时候）。
刚刚看了namejm的收藏，看到一个 “搞笑开机.bat” ，在批处理堮..

精彩

bat c c++

2006-12-8 07:08

查看资料发送邮件发短消息网志 OICQ

OICQ

(5040366)

shh791223
初级用户

积分 34
发帖 12
注册 2005-10-15
状态离线

『第 26 楼』: 使用 LLM 解释/回答一下

精品收藏
谢谢分享

2006-12-8 11:05

查看资料发短消息网志

falwpeihc
新手上路

积分 8
发帖 4
注册 2006-12-7
状态离线

『第 27 楼』: 使用 LLM 解释/回答一下

谢谢,

2006-12-8 11:10

查看资料发送邮件发短消息网志

uemuem
初级用户

积分 153
发帖 68
注册 2006-10-12
来自上海
状态离线

『第 28 楼』: 使用 LLM 解释/回答一下

收藏中。。

个人主页－找餐厅：http://www.canting.cc

2006-12-9 00:35

查看资料发短消息网志

uemuem
初级用户

积分 153
发帖 68
注册 2006-10-12
来自上海
状态离线

『第 29 楼』: 使用 LLM 解释/回答一下

Originally posted by namejm at 2006-12-7 23:39:

　　响应 electronixtar 同学的号召，把我平时收集的代码都发上来。有部分是我写的，大都加了注释，有些代码是很久以前写的，有很多地方考虑不是 ...

谢谢，版主的奉献精神可敬，下载学习中。。。

个人主页－找餐厅：http://www.canting.cc

2006-12-9 00:37

查看资料发短消息网志

freeapple
初级用户

积分 56
发帖 25
注册 2006-11-26
状态离线

『第 30 楼』: 使用 LLM 解释/回答一下

向楼主和19楼的同学致敬

2006-12-9 02:11

查看资料发短消息网志

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: