批处理模拟Windows - BAT原创&转载 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

123 4 下一页

返回列表发帖

111

一级士官

Rank: 2

帖子: 101
积分: 142
技术: 5
捐助: 0
注册时间: 2012-8-20

42楼 跳转到 »

发表于 2012-12-18 20:55 | 只看该作者

我改了

@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================================================================================  
:zkxx  
cscript.exe showplan.vbe %str1% "%~dp0>" 120 "" "Y" //nologo 
ping -n 2 127.0.0.1>nul &echo '%str1%' %str6% &echo %str7% &echo. 
cscript.exe showplan.vbe %str2% "%~dp0>" 100 "" "Y" //nologo 
ping -n 2 127.0.0.1>nul &echo '%str2%' %str6% &echo %str7% &echo. 
cscript.exe showplan.vbe %str3% "%~dp0>" 180 "" "Y" //nologo 
ping -n 2 127.0.0.1>nul &echo '%str3%' %str6% &echo %str7% &echo. 
cscript.exe showplan.vbe %str4% "%~dp0>" 180 "" "Y" //nologo 
ping -n 2 127.0.0.1>nul &echo '%str4%' %str6% &echo %str7% &echo. 
cscript.exe showplan.vbe %str5% "%~dp0>" 80 "" "Y" //nologo 
cscript.exe showplan.vbe "" "" 100 "" "Y" //nologo 
del showplan.vbe 
echo Windows ME系统预启动中，请稍后……
ping -n 2 127.1 >nul
set ks1m=┌────┐────────────────────────────────┐
set ks2m=└────┘────────────────────────────────┘
cls&mode con cols=80 lines=19
title Windows ME
echo.
echo.
echo.
echo.
echo.
echo.
echo.                            Microsoft Windows ME
echo.
echo                              Starting system...
echo.
for /l %%i in (1,1,4) do echo.
set /p a=">=============================================================================="<nul
for /l %%i in (1,1,80) do (
set /p aa=<nul
)
for /l %%i in (1,1,80) do (
set /p aa=^><nul
ping/n 0 127.1 >nul
)
echo.
ping -n 2 127.1 >nul&cls&ping -n 2 127.1 >nul&set a=↖卍
:a
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                      %a%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
ping -n 2 127.1 >nul&if "%a%"=="↖卍" set a=↖&goto a
set a=&set b=↖
:hc
cls
echo.
echo.
echo.
echo               ┏━━━━━━━━━━━━━━━━━┓
echo               ┃○系统道歉                        ┃
echo               ┃━━━━━━━━━━━━━━━━━┃
echo               ┃对不起，请不要把我砸了。          ┃
echo               ┃为了道歉，我做一个介绍主人的vbs。 ┃
echo               ┗━━━━━━━━━━━━━━━━━┛
echo.
echo.                       %b%
echo.
echo.
echo.
echo.
echo %ks1m%
echo │  开始  │○系统道歉│                                               %time:~0,5%│
echo %ks2m%
ping -n 3 127.1 >nul
:b
cls
echo.
echo ╔══╗
echo ║ vbs║
echo ║文件║
echo ╚══╝%c%
echo Dr.ma.vbs
echo.
echo.           %a%
echo.
echo.
echo.                      %b%
echo.
echo.
echo.
echo.
echo %ks1m%
echo │  开始  │                                                           %time:~0,5%│
echo %ks2m%
ping -n 2 127.1 >nul
if "%b%"=="↖" set b=&set a=↖&goto b
if "%a%"=="↖" set a=&set c=↖&goto b
if "%c%"=="↖" set c=↖卍&goto b
set d=┃&set c=↖
:c
cls
echo.
echo ╔══╗
echo ║ vbs║
echo ║文件║
echo ╚══╝%c%
echo Dr.ma.vbs
echo          ┏━━━━━━━━━━━━━━┓
echo          ┃Dr.ma制作                │X%d%
echo          ┃━━━━━━━━━━━━━━┃
echo          ┃~\(≧▽≦)/~ Dr.ma制作      ┃
echo          ┃谢谢使用                    ┃
echo          ┗━━━━━━━━━━━━━━┛
echo.
echo.
echo.
echo %ks1m%
echo │  开始  │○Dr.ma制作│                                              %time:~0,5%│
echo %ks2m%
ping -n 2 127.1 >nul
if "%d%"=="┃" set d=↖&set c=&goto c
set a=↖&set b=  
:d
cls
echo.
echo ╔══╗
echo ║ vbs║
echo ║文件║
echo ╚══╝
echo Dr.ma.vbs
echo.
echo.                                %a%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo %ks1m%
echo │  开始%b%│                                                           %time:~0,5%│
echo %ks2m%
ping -n 2 127.1 >nul
if "%a%"=="↖" set b=↖&set a=&goto d
if "%b%"=="↖" set b=卍&goto d
set b=↖
:e
cls
echo.
echo ╔══╗
echo ║ vbs║
echo ║文件║
echo ╚══╝
echo Dr.ma.vbs
echo.
echo.
echo.
echo.
echo.
echo.
echo ┌────┐
echo │￠程序  │
echo │⊙关机%b%│
echo %ks1m%
echo │  开始  │                                                           %time:~0,5%│
echo %ks2m%
ping -n 2 127.1 >nul
if "%b%"=="↖" set b=卍&goto e
:f
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo        卍
ping -n 2 127.1 >nul
cls
ping -n 3 127.1 >nul
exit
复制代码

TOP

111

一级士官

Rank: 2

帖子: 101
积分: 142
技术: 5
捐助: 0
注册时间: 2012-8-20

41楼

发表于 2012-8-29 12:42 | 只看该作者

想要代码，我发！不过版权稍微改了一下

@echo off
cls&mode con cols=80 lines=18
title Windows ME Demo
echo Microsoft Windows ME
echo Starting system...
echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo (Demo Version)
ping -n 4 127.1 >nul&cls&ping -n 2 127.1 >nul&set a=↖卍
:a
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                      %a%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
ping -n 2 127.1 >nul&if "%a%"=="↖卍" set a=↖&goto a
set a=&set b=↖
:b
cls
echo.
echo ╔══╗
echo ║ vbs║
echo ║文件║
echo ╚══╝%c%
echo Dr.ma.vbs
echo.
echo.           %a%
echo.
echo.
echo.                      %b%
echo.
echo.
echo.
echo.
echo ┌────┐────────────────────────────────┐
echo │  开始  │                                                           %time:~0,5%│
echo └────┘────────────────────────────────┘
ping -n 2 127.1 >nul
if "%b%"=="↖" set b=&set a=↖&goto b
if "%a%"=="↖" set a=&set c=↖&goto b
if "%c%"=="↖" set c=↖卍&goto b
set d=┃&set c=↖
:c
cls
echo.
echo ╔══╗
echo ║ vbs║
echo ║文件║
echo ╚══╝%c%
echo Dr.ma.vbs
echo          ┏━━━━━━━━━━━━━━┓
echo          ┃Dr.ma制作                │X%d%
echo          ┃━━━━━━━━━━━━━━┃
echo          ┃~\(≧▽≦)/~ Dr.ma制作      ┃
echo          ┃谢谢使用                    ┃
echo          ┗━━━━━━━━━━━━━━┛
echo.
echo.
echo.
echo ┌────┐────────────────────────────────┐
echo │  开始  │○Dr.ma制作│                                              %time:~0,5%│
echo └────┘────────────────────────────────┘
ping -n 2 127.1 >nul
if "%d%"=="┃" set d=↖&set c=&goto c
set a=↖&set b=  
:d
cls
echo.
echo ╔══╗
echo ║ vbs║
echo ║文件║
echo ╚══╝
echo Dr.ma.vbs
echo.
echo.                                %a%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo ┌────┐────────────────────────────────┐
echo │  开始%b%│                                                           %time:~0,5%│
echo └────┘────────────────────────────────┘
ping -n 2 127.1 >nul
if "%a%"=="↖" set b=↖&set a=&goto d
if "%b%"=="↖" set b=卍&goto d
set b=↖
:e
cls
echo.
echo ╔══╗
echo ║ vbs║
echo ║文件║
echo ╚══╝
echo Dr.ma.vbs
echo.
echo.
echo.
echo.
echo.
echo.
echo ┌────┐
echo │￠程序  │
echo │⊙关机%b%│
echo ┌────┐────────────────────────────────┐
echo │  开始  │                                                           %time:~0,5%│
echo └────┘────────────────────────────────┘
ping -n 2 127.1 >nul
if "%b%"=="↖" set b=卍&goto e
:f
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo        卍
ping -n 2 127.1 >nul
cls
ping -n 3 127.1 >nul
exit
复制代码

TOP

wuyongming

列兵

Rank: 1

帖子: 3
积分: 24
技术: 0
捐助: 0
注册时间: 2011-8-11

40楼

发表于 2011-8-30 09:18 | 只看该作者

有问题啊，一直在闪烁然后自己就关闭了啊！

TOP

qc5111

一级士官

Rank: 2

帖子: 79
积分: 100
技术: 2
捐助: 0
注册时间: 2011-8-20

39楼

发表于 2011-8-29 17:38 | 只看该作者

好无聊，都是echo

TOP

garyng

少尉

Rank: 5 Rank: 5

帖子: 566
积分: 707
技术: 12
捐助: 0
注册时间: 2011-6-27

38楼

发表于 2011-8-29 13:29 | 只看该作者

不赖嘛～
有创意～

http://garyngzhongbo.blogspot.com

TOP

luoxue

列兵

Rank: 1

帖子: 10
积分: 29
技术: 0
捐助: 0
注册时间: 2011-8-16

37楼

发表于 2011-8-16 13:21 | 只看该作者

又见小麦啦~~~~
我试试看

TOP

wujinze2

列兵

Rank: 1

帖子: 2
积分: 14
技术: 0
捐助: 0
注册时间: 2011-6-10

36楼

发表于 2011-7-16 14:07 | 只看该作者

@echo off
cls&mode con cols=80 lines=18
title Windows ME Demo
echo Microsoft Windows ME
echo Starting system...
echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo (Demo Version)
ping -n 4 127.1 >nul&cls&ping -n 2 127.1 >nul&set a=↖卍
:a
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                      %a%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
ping -n 2 127.1 >nul&if "%a%"=="↖卍" set a=↖&goto a
set a=&set b=↖
:b
cls
echo.
echo ╔══╗
echo ║ vbs║
echo ║文件║
echo ╚══╝%c%
echo 小麦.vbs
echo.
echo.           %a%
echo.
echo.
echo.                      %b%
echo.
echo.
echo.
echo.
echo ┌────┐────────────────────────────────┐
echo │  开始  │                                                           %time:~0,5%│
echo └────┘────────────────────────────────┘
ping -n 2 127.1 >nul
if "%b%"=="↖" set b=&set a=↖&goto b
if "%a%"=="↖" set a=&set c=↖&goto b
if "%c%"=="↖" set c=↖卍&goto b
set d=┃&set c=↖
:c
cls
echo.
echo ╔══╗
echo ║ vbs║
echo ║文件║
echo ╚══╝%c%
echo 小麦.vbs
echo          ┏━━━━━━━━━━━━━━┓
echo          ┃小麦制作                 │X%d%
echo          ┃━━━━━━━━━━━━━━┃
echo          ┃~\(≧▽≦)/~ 小麦制作       ┃
echo          ┃转载请注明出处，谢谢合作    ┃
echo          ┗━━━━━━━━━━━━━━┛
echo.
echo.
echo.
echo ┌────┐────────────────────────────────┐
echo │  开始  │○小麦制作│                                               %time:~0,5%│
echo └────┘────────────────────────────────┘
ping -n 2 127.1 >nul
if "%d%"=="┃" set d=↖&set c=&goto c
set a=↖&set b=  
:d
cls
echo.
echo ╔══╗
echo ║ vbs║
echo ║文件║
echo ╚══╝
echo 小麦.vbs
echo.
echo.                                %a%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo ┌────┐────────────────────────────────┐
echo │  开始%b%│                                                           %time:~0,5%│
echo └────┘────────────────────────────────┘
ping -n 2 127.1 >nul
if "%a%"=="↖" set b=↖&set a=&goto d
if "%b%"=="↖" set b=卍&goto d
set b=  
:e
cls
echo.
echo ╔══╗
echo ║ vbs║
echo ║文件║
echo ╚══╝
echo 小麦.vbs
echo.
echo.
echo.
echo.
echo.
echo.
echo ┌────┐
echo │￠程序﹥│
echo │⊙关机%b%│
echo ┌────┐────────────────────────────────┐
echo │  开始  │                                                           %time:~0,5%│
echo └────┘────────────────────────────────┘
ping -n 2 127.1 >nul
if "%b%"=="  " set b=↖&goto e
if "%b%"=="↖" set b=卍&goto e
:f
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo        卍
ping -n 2 127.1 >nul
cls
ping -n 3 127.1 >nul
exit
复制代码

源代码

TOP

wolfan

三级士官

Rank: 3 Rank: 3

帖子: 140
积分: 215
技术: 0
捐助: 0
注册时间: 2010-4-6

35楼

发表于 2011-7-3 17:37 | 只看该作者

哦~ 原来是个动画而已。

TOP

wolfan

三级士官

Rank: 3 Rank: 3

帖子: 140
积分: 215
技术: 0
捐助: 0
注册时间: 2010-4-6

34楼

发表于 2011-7-3 17:35 | 只看该作者

好强大哦。

TOP

herryo

列兵

Rank: 1

帖子: 3
积分: 24
技术: 0
捐助: 0
注册时间: 2011-4-7

33楼

发表于 2011-4-14 12:08 | 只看该作者

学习了，谢谢分享

TOP

qwe777

列兵

Rank: 1

帖子: 26
积分: 33
技术: 0
捐助: 0
注册时间: 2011-1-28

32楼

发表于 2011-1-30 14:17 | 只看该作者

不明白想搞什么~···················

TOP

_ThirdMan

列兵

Rank: 1

帖子: 6
积分: 15
技术: 0
捐助: 0
注册时间: 2011-1-26

31楼

发表于 2011-1-26 16:48 | 只看该作者

一点也不好玩.感觉是被骗了...

TOP

_ThirdMan

列兵

Rank: 1

帖子: 6
积分: 15
技术: 0
捐助: 0
注册时间: 2011-1-26

30楼

发表于 2011-1-26 16:45 | 只看该作者

有用吗!?什么样的啊?!

TOP

xinglifan

一级士官

Rank: 2

帖子: 4
积分: 108
技术: 0
捐助: 0
注册时间: 2009-8-4

29楼

发表于 2011-1-26 14:52 | 只看该作者

原来是演示期待正式版

TOP

xuzhi

列兵

Rank: 1

帖子: 4
积分: 25
技术: 0
捐助: 0
注册时间: 2011-1-22

28楼

发表于 2011-1-23 18:01 | 只看该作者

文件损害了.. 怎么会事
？

TOP

123 4 下一页

返回列表

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]