China DOS Union
Union site: www.cn-dos.net Forum site: www.cn-dos.net/forum
DOS stands for freedom, openness and progress. Let us work hard, learn from the openness and GNU spirit of FreeDOS and Linux, and together build and grow a free GNU GPL world!
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [Share] My Partial Collection of Batch Scripts
View 82,589 Replies 1,173
Floor 406
Posted 2007-05-27 00:46 · 中国 广东 东莞 电信
Floor 407
Posted 2007-05-27 14:16 · 中国 陕西 西安 电信
I'm a newbie. The resources in the forum are so abundant. Thanks to the楼主 for downloading. I need to study hard.
Floor 408
Posted 2007-05-27 14:18 · 中国 陕西 西安 电信
Why is my points seem to exceed one point but still can't download? Could it be that I'm being picked on because I'm new?
Floor 409
Posted 2007-05-27 14:22 · 中国 陕西 西安 电信
hahaha, finally can download, but it's from the famous brother namejm's
Hey, there are so many experts in the forum, so many experts online, so many experts in China, so many experts in this world
Hey, there are so many experts in the forum, so many experts online, so many experts in China, so many experts in this world
Floor 410
Posted 2007-05-27 15:36 · 中国 广东 深圳 电信
Bookmarked
Floor 411
Posted 2007-05-27 18:39 · 中国 福建 厦门 电信
初级用户
★
Credits 71
Posts 35
Joined 2007-05-27 17:58
19-year member
UID 89485
Gender Male
Posts 35
Joined 2007-05-27 17:58
19-year member
UID 89485
Gender Male
Status Offline
Bump
Floor 412
Posted 2007-05-28 02:01 · 中国 江苏 苏州 联通
```batch
@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 settings;
set str1=Power on
set str2=Power on quickly
set str3=Damn it, power on
set str4=Do you power on or not at all?
set str5=Fuck!! If you don't power on, I'll smash you!!
set str6=is not an internal or external command, nor 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.
```
@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 settings;
set str1=Power on
set str2=Power on quickly
set str3=Damn it, power on
set str4=Do you power on or not at all?
set str5=Fuck!! If you don't power on, I'll smash you!!
set str6=is not an internal or external command, nor 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.
```
Floor 413
Posted 2007-05-28 12:09 · 中国 北京 易联时空(北京)科技有限公司(马连道街广外红莲南路欧园北欧印象4-2215号)
thanks a lot! take it.
Floor 414
Posted 2007-05-28 15:25 · 中国 河南 郑州 教育网
Hehe, the LZ has worked hard. Keep it up!
Floor 415
Posted 2007-05-29 21:47 · 中国 广东 揭阳 电信
Floor 416
Posted 2007-05-29 21:52 · 中国 广东 揭阳 电信
Floor 417
Posted 2007-05-29 23:03 · 中国 北京 联通数据上网公共出口
Why not consider writing a batch processing command set? Write common commands into a bat?
Floor 418
Posted 2007-05-30 09:32 · 中国 江苏 无锡 江阴市 电信
Mark the following..........I want to bookmark
Floor 419
Posted 2007-05-30 09:51 · 中国 河南 焦作 电信
Thanks. Study earnestly
Floor 420
Posted 2007-05-30 13:33 · 中国 河北 廊坊 霸州市 电信
Download and bookmarked!!!
Forum Jump: