顶死你````
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [分享]我的部分批处理收藏
查看 82,561 回复 1,173
第 406 楼
发表于 2007-05-27 00:46 · 中国 广东 东莞 电信
第 407 楼
发表于 2007-05-27 14:16 · 中国 陕西 西安 电信
俺是新手 论坛的资源好丰富啊
感谢楼主下 要好好学习了
感谢楼主下 要好好学习了
第 408 楼
发表于 2007-05-27 14:18 · 中国 陕西 西安 电信
为虾米 俺的积分好像超过一分啦 还不可以下载
难道是欺负俺是新来滴
难道是欺负俺是新来滴
第 409 楼
发表于 2007-05-27 14:22 · 中国 陕西 西安 电信
hahaha,终于可以下啦，不过是著名的namejm兄滴
哎 论坛牛人好多 网上牛人好多 中国牛人好多 这个世界牛人好多
哎 论坛牛人好多 网上牛人好多 中国牛人好多 这个世界牛人好多
第 410 楼
发表于 2007-05-27 15:36 · 中国 广东 深圳 电信
收藏了
第 411 楼
发表于 2007-05-27 18:39 · 中国 福建 厦门 电信
顶，，，，
第 412 楼
发表于 2007-05-28 02:01 · 中国 江苏 苏州 联通
@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.
::::::::::::::::::::::::::
:生成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.
第 413 楼
发表于 2007-05-28 12:09 · 中国 北京 易联时空(北京)科技有限公司(马连道街广外红莲南路欧园北欧印象4-2215号)
thanks a lot! take it.
第 414 楼
发表于 2007-05-28 15:25 · 中国 河南 郑州 教育网
呵呵 楼主辛苦了
再接再厉！
再接再厉！
第 415 楼
好东西
发表于 2007-05-29 21:47 · 中国 广东 揭阳 电信
？？
第 416 楼
太好了
发表于 2007-05-29 21:52 · 中国 广东 揭阳 电信
太好了
第 417 楼
发表于 2007-05-29 23:03 · 中国 北京 联通数据上网公共出口
为什么不考虑写个批处理的命令集？
把常用的命令都写到bat理？
把常用的命令都写到bat理？
第 418 楼
ding
发表于 2007-05-30 09:32 · 中国 江苏 无锡 江阴市 电信
ding 下..........偶要收藏
第 419 楼
发表于 2007-05-30 09:51 · 中国 河南 焦作 电信
谢谢了
认真学习
认真学习
第 420 楼
发表于 2007-05-30 13:33 · 中国 河北 廊坊 霸州市 电信
下载收藏了！！！！！！
论坛跳转: