My Partial Collection of Batch Scripts - China DOS Union Forum

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.

Floor16　electronixtar	Posted 2006-12-07 09:02
铂金会员　Posts 2,672　Credits 7,493
Strongly request students from 2F, 5F and 12F to share their hidden codes!

Floor17　needed	Posted 2006-12-07 10:31
新手上路　Posts 4　Credits 10
Collected. Thanks for sharing

Floor19　namejm	Posted 2006-12-07 23:39
荣誉版主　Posts 1,737　Credits 5,226　From 成都
Originally posted by electronixtar at 2006-12-6 20:02: Strongly request students in 2F, 5F and 12F to share their private codes!!! 　　In response to the call from classmate electronixtar, I will post the codes I have collected usually. Some are written by me, and most are commented. Some codes were written a long time ago, and there are many places that are not very well considered. I won't upload relatively large scripts - half a year ago, I was still a fledgling beginner, hehehe. Attachments DOS批处理代码.rar (146.12 KiB)

Floor20　ccwan	Posted 2006-12-07 23:52
金牌会员　Posts 1,160　Credits 2,725　From 河北廊坊
Thank you, moderator, for sharing!

Floor21　ccwan	Posted 2006-12-07 23:55
金牌会员　Posts 1,160　Credits 2,725　From 河北廊坊
Brother namejm really noted the source and original author in the code. That's really meticulous. Infinite admiration...

Floor18　yqadsq1314	Posted 2006-12-07 20:08
初级用户　Posts 26　Credits 30

Floor22　NeverLand	Posted 2006-12-08 00:17
初级用户　Posts 11　Credits 28
Thanks

Floor23　youxi01	Posted 2006-12-08 00:52
高级用户　Posts 247　Credits 846　From 湖南==》广东
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.

Floor24　vkill	Posted 2006-12-08 05:43
金牌会员　Posts 1,744　Credits 4,103　From 甘肃.临泽
Hehe, there are quite a few regs.

Floor25　a9319751	Posted 2006-12-08 07:08
中级用户　Posts 170　Credits 439
Originally posted by youxi01 at 2006-12-8 00:52: 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 saw a "Funny Boot.bat", in the batch processing... Wonderful

Floor26　shh791223	Posted 2006-12-08 11:05
初级用户　Posts 12　Credits 34
Fine collection Thanks for sharing

Floor27　falwpeihc	Posted 2006-12-08 11:10
新手上路　Posts 4　Credits 8
Thanks

Floor28　uemuem	Posted 2006-12-09 00:35
初级用户　Posts 68　Credits 153　From 上海

Floor29　uemuem	Posted 2006-12-09 00:37
初级用户　Posts 68　Credits 153　From 上海
Originally posted by namejm at 2006-12-7 23:39: 　　In response to classmate electronixtar's call, I will post the codes I usually collect. Some are written by me, mostly with comments added. Some of the codes were written a long time ago, and there are many places where consideration is not... Thank you, the dedication of the moderator is admirable, downloading and learning...

Floor30　freeapple	Posted 2006-12-09 02:11
初级用户　Posts 25　Credits 56
Salute to the original poster and the classmates on the 19th floor