土木在线论坛 \ 水利工程 \ 水利软件 \ 送大家一个搞笑DOS程序【分享】

送大家一个搞笑DOS程序【分享】

发布于:2007-07-02 16:42:02 来自:水利工程/水利软件 [复制转发]
画面相信大家都见过,可你知道如何写代码吗?
不同人有不同方法实现,我用DOS命令。
其中的版权信息可以自行修改,呵呵
楼下2位朋友说的无法运行可能是保存的格式问题,后修改为ansi格式保存可运行

××××××××××××××××××
@echo off
::::::::::::::::::::::::::
:生成vbs脚本,用来显示动画
echo CD=Wscri pt.Arguments(1)>showplan.vbe
echo Str=Wscri pt.Arguments(0)>>showplan.vbe
echo Time_Delay=Wscri pt.Arguments(2)>>showplan.vbe
echo Switch1=Wscri pt.Arguments(3)>>showplan.vbe
echo Switch2=Wscri pt.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 wscri pt.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 wscri pt.stdout.write chr(13) ^& CD ^& str1^&Left(str,79-i) ^& chr(8)>>showplan.vbe
echo Else>>showplan.vbe
echo wscri pt.stdout.write chr(13) ^& CD ^& Left(str,i)^&Cursor^& chr(8)>>showplan.vbe
echo End if>>showplan.vbe
echo wscri pt.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 wscri pt.stdout.write chr(13) ^& CD ^& Cursor ^& chr(8)>>showplan.vbe
echo wscri pt.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================================================================================
:::::::::::::::::::::::::::::::::::::::::::::::
:主控程序;
cscri pt.exe showplan.vbe %str1% "%~dp0>" 120 "" "Y" //nologo
call :Msg %str1%
cscri pt.exe showplan.vbe %str2% "%~dp0>" 100 "" "Y" //nologo
call :Msg %str2%
cscri pt.exe showplan.vbe %str3% "%~dp0>" 180 "" "Y" //nologo
call :Msg %str3%
cscri pt.exe showplan.vbe %str4% "%~dp0>" 180 "" "Y" //nologo
call :Msg %str4%
cscri pt.exe showplan.vbe %str5% "%~dp0>" 80 "" "Y" //nologo
cscri pt.exe showplan.vbe "" "" 100 "" "Y" //nologo
echo Loading Windows XP ...
echo.
cscri pt.exe showplan.vbe %str8% "" 50 "Y" "" //nologo
del showplan.vbe
echo.
echo 小蝴蝶燕燕----纯DOS命令,可用记事本打开查看命令代码。
echo 按任意键退出本程序,有任何意见请提出交流。
pause>NUL
:Msg
ping -n 2 127.0.0.1>nul
echo ’%1’%str6%
echo %str7%
echo.

××××××××××××××××××

将“×××”之间部分不包括“×××”复制到记事本,以bat格式保存即可
[转贴自小蝴蝶燕燕的帖子]

1183511089087.jpg

全部回复(9 )

只看楼主 我来说两句
  • thr520
    thr520 沙发
    搞怪爱玩的吧?
    2010-03-07 22:36:07

    回复 举报
    赞同0
  • yao_qi_zhi4
    yao_qi_zhi4 板凳
    谢谢版主分享,下载看看是否有用?
    2010-02-08 08:45:08

    回复 举报
    赞同0
加载更多
这个家伙什么也没有留下。。。

水利软件

返回版块

13.32 万条内容 · 190 人订阅

猜你喜欢

阅读下一篇

XP中CPU占用率100%原因及解决方法

我们在使用Windows XP操作系统的时候,用着用着系统就变慢了,一看“任务管理器”才发现CPU占用达到100%。这是怎么回事情呢?遇到病毒了,硬件有问题,还是系统设置有问题,在本文中笔者将从硬件,软件和病毒三个方面来讲解系统资源占用率为什么会达到100%。   经常出现CPU占用100%的情况,主要问题可能发生在下面的某些方面:   CPU占用率高的九种可能   1、防杀毒软件造成故障

回帖成功

经验值 +10