[祝福]DOS命令送祝福

andysky

QUOTE:

新建记事本命令为福.bat,,将以下命令复制其中,保存,右键开启看看效果......

QUOTE:

@echo off&mode con cols=80 lines=13&title,【%~n0】&setlocal,EnableDelayedExpansion&color A2
set a=To EXCEL HOME同仁:
set b=EXCEL HOME是个好地方,在此论坛不仅能学到制表知识,还能在各版主的熏陶下学会对人和善/关爱及谦逊...
set c=                                         ------ by  andysky
set d=                                                 2007-3-10
echo/&echo\
for %%i in (a b c d) do (
        set/p=      <nul
        for /l %%a in (0,1,100) do (
                if not "!%%i:~%%a,1!"=="" (
                        if %%a==24 echo.&echo;
                        set/p= !%%i:~%%a,1!<nul
                        ping 127.1 -n 1 >nul
                )
        )
        echo;&echo;
)
for /l %%i in (0x1,0x1,0x9) do (
        set /a b=%%i ">>" 1

        set a=%%i
        color Df
        ping 127.1 -n 2 >nul)
ping 127.1 -n 3 >nul
goto :print
:end
echo.&echo.
ping 127.0.0.1 -n 7 >nul 2>nul
goto :eof

:print
cls
color B4
echo\&echo\&echo\&for /f "delims=" %%a in ('more +38 %0') do echo              %%a
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Happy everyday to you!")(Window.close)
goto :end

 

       iiiiiiiiiiiiiiiiiii      祝 EXCEL HOME同仁 :
     |||||||||||||||||||||||
   __|______H_a_p_p_y______|__       新年快乐
  |\/\/\/\/\/\/\/\/\\/\/\/\/\/|
  |||||| e v e r y d a y ||||||         天天开心
  |,,,,,,,,,,,,,,,,,,,,,,,,,,,|
  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@             更上一层楼

p5jL7D8l.rar (829 Bytes, 下载次数: 8)

2007-3-13 08:27 上传

点击文件名下载附件
[祝福]DOS命令送祝福

andysky

最后一幅画面是蛋羔,但中途要停顿一下才出现,请耐心等候.不要手动关闭..

andysky

QUOTE:

@echo off
:start
title amdysky改IP工具
cls
color 12
echo.
echo                修改\添加\备份 您电脑IP地址的设置
echo.
echo.
echo                    修改本地IP地址-----------1
echo                    添加一个IP地址-----------2
echo                    备份本机IP地址-----------3
echo.
echo;
set /p ii=请添入相应的修改项目(1 or 2 or 3):
set ii=%ii:~0,1%
if "#%ii%"=="#1" goto A
if "#%ii%"=="#2" goto B
if "#%ii%"=="#3" goto C
cls
echo.
echo;
echo:
echo.
echo.
echo            您输入了错误的数字!!!
echo             -_-.-_-.-_-.-_-.-_-
echo.
echo;
echo;
echo;
pause
goto start

:A
cls
set /p yy=输入IP地址(格式：192.168.1.1):
set /p uu=输入子网掩码(格式：255.255.255.0):
set /p oo=输入网关地址(格式:192.168.1.11):
netsh interface ip set address "本地连接" static %yy% %uu% %oo% 1
cls
echo 修改完毕!
netsh int ip show address
goto end
:B
set /p yy=输入IP地址(格式：192.168.1.1):
set /p uu=输入子网掩码(格式：255.255.255.0):
netsh interface ip add address "本地连接" %yy% %uu%
cls
echo 添加完毕!
netsh int ip show address
goto end
:C
set /p mm=输入备份文件的位置(例如: "c:\")：
netsh -c int ip dump>%mm%.\本机IP备份文件.txt
cls
echo 备份完毕!
:end
set yy=
set uu=
set oo=
set ii=

用同样的方法新建文本文件,改名为IP.bat,复制命令再开启看看效果

hhzjxss

楼主超强，不光知道VBA，还知道DOS，V！

[此贴子已经被作者于2007-3-13 9:04:49编辑过]