批处理读书笔记

myzwd

最近我对批处理的学习有点感兴趣了，学到了不少东西，以前我以为批处理就是一个单调的黑白世界，但是，当我看到了一些精彩的程序后，才知道原来批处理可以这样，原来黑白世界也精彩。

     精彩实例1--- 弹动的小球：

@echo off&mode con cols=20 lines=29&color 2c
setlocal enabledelayedexpansion
title 弹球-zw19750516
set a=●&set "b= "
:begin
cls&set n=0
set /a lm=%random%%%19,lr=%random%%%2
if %lm% equ 0 (
set z=+
) else (
if %lm% equ 17 (
set z=-
) else (
if %lr% equ 0 (
set z=-
) else (
set z=+
)
)
)
:contin
set "kong="
set /a n+=1,lm%z%=1
for /l %%i in (1,1,%lm%) do set kong=!kong!%b%
set str%n%=%kong%%a%
if %n% equ 30 goto begin
if %lm% equ 0 set z=+
if %lm% equ 17 set z=-
set /p=!str%n%!nul
for /l %%i in (1,1,20) do set /p= <NUL
echo.
goto contin
复制代码

精彩实例2---跳动的小球

@echo off&setlocal enabledelayedexpansion
mode con: cols=81 lines=30&color 1f
:: code by 随风@bbs.bathome.net 2008/01/03
:loop
for /l %%a in (1 1 40) do (
  if defined sang (
  cls&set /a di-=1
  for /l %%i in (1 1 !di!) do echo.
) else (echo.&set /a di+=1)
  if defined zuo (set ko=!ko:~1!) else set ko=　!ko!
  set /p=!ko!●<nul
  for /l %%i in (1 1 80) do ver>nul
  set /p=  <nul
  if not "!ko:~38,1!"=="" set zuo=ok
  if "!ko!"=="" set zuo=&set "ko=　"
  if !di! lss 0 set sang=&goto loop
  if !di! geq 29 set sang=ok&goto loop
)
复制代码

精彩实例3----五彩的世界

@echo off
::输出彩色字符
mode con lines=24 cols=69
set "a= One World !"
set "b= one Dream !"
set "c= 让我们大家一起说"
set "d=︱ bbs.cn-dos.net is our common home!"
set "e= {Author∶jvive︱08-03-31︱Thanks to∶9527}"
set "x= ︱"
set "p=★★★★★★★★★★★★★★★"
set "k="
pushd %tmp%
del/q "%a%?" "%b%?" "%c%?" "%d%?" "%e%?" "%x%?" "%p%?" 2>nul
call:enter 3
call:JV a "%a%" 0
call:JV b "%b%" 0
call:JV c "%c%" 0
call:enter 5
call:JV 0100 0 0
call:JV 040a "%d%" 0
call:JV 040a "%x%" 0
call:JV 0100 000 0
call:JV 040b "%d%" 0
call:JV 040b "%x%" 0
call:JV 0100 000 0
call:JV 0400 "%d%" 0
call:JV 0400 "%x%" 0
call:JV 0100 0 1
call:enter 3
call:JV e "%e%" 0
call:JV 0100 0 1
echo.
call:color
pause>nul&exit/b
rem ---------subprocess--------
:color|一二层第一个色调混合为主色调,最后一个为闪烁停留色调.
for %%a in (0 e)do (
for %%b in (a 1 2 3 4 5 6 7 8 0 c b d f e)do (
call set "k=%%k%%"
call:bak %%a%%b "%p%" 0
))
goto :eof
:JV
:bak
if %3 neq 1 (set/p=%k%"%~2") else echo.>"%~2"
if %0 neq :bak (set k=) else set "k=%k%"
findstr /a:%1 .* "%~2?"
del "%~2?"
goto :eof
:enter
for /l %%a in (1 1 %1)do echo.
复制代码

看了这些精彩的实例，这个黑白世界变的有点可爱了。然该死的微软，关于批处理的资料说的是那样的含糊，
把批处理弄的象一个黑色的暗箱。让人学习批处理的难度，远远大于学习其它高级语言，正是上贼船容易，熟悉贼性难于上青天，所以高手的经验，就显得特别的重要。

     在这里我将把我看到的一些好的东西记录下来。这样可以防此遗忘。我以后在要找这些东西，我以有个查阅的地方。

------------------NOTE-----------------
---停此shift创建的循环----

 
@echo off
call:one 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
goto:eof
:one
echo %5
if %5a==a goto:eof
shift 
goto one
复制代码

---------
今天读书时看到了，如何停此由shift构造的循环。以前我还真的不知道，长知识了。
if %5a==a goto:eof

if %3a==a goto:eof

if %8a==a goto:eof

if %5#==# goto:eof
原来是这样停下来的。呵呵

----让变量名动态的变化


[/code]

@echo off
rem 让变量名字动态的变化
set tt=123
for /l %%i in (0 1 10) do (
set tt%%i=%tt%
set tt%%i
set tt%%i=
)
echo ------

set var=123
setlocal enabledelayedexpansion
for /l %%i in (0 1 10) do (
   set /a n+=1
   set var!n!=%var%
   set var!n!
)
echo ------

set tt=123
call:one 1 2 3 4 5 6 7 8 9 10
goto:eof
:one
set tt%1=%tt%
set tt%1
shift
if %1a==a goto:eof
goto one

echo ------
rem 追加值
setlocal enabledelayedexpansion
for /l %%i in (0 1 10) do (
set tt=!tt! %%i
set tt
)
echo ------------------
call:one 1 2 3 4 5 6 7 8 9 10 
goto:eof
:one
set tt=%tt% %1
set tt
shift
if %1a==a goto:eof
goto one
复制代码

@echo off
rem 看到两种去掉左面0的方法
set tt=001234
for /f "delims=0" %%i in ("%tt%") do (
echo %%i
)
echo ----
set /a "tt=1001234 %%1000000"
set tt
rem  （1000000+1234）/1000000=1234
复制代码

精彩实例4----变动的方框

：：这一版本的编辑---if exist    Q523066680

@echo off&mode con cols=60 lines=30 &color 0a
setlocal enabledelayedexpansion
set omax=oooooooooooooooooooooooooooooooooooooooo
set kmax=%omax:o= %
set n=4

:a
set /a n+=4
set /a upkh=15-%n%/4,kleft=30-%n%/2,zk=%n%-4,zkh=%n%/2-2
set leftk=!kmax:~0,%kleft%!
set zk=oo!kmax:~0,%zk%!oo
set hang=!omax:~0,%n%!
for /l %%a in (1,1,%upkh%) do echo.
echo.%leftk%%hang%
for /l %%a in (1,1,%zkh%) do echo.%leftk%%zk%
echo.%leftk%%hang%
echo.%n%
for /l %%a in (1,1,2) do ping -n>nul
cls
if %n%==40 set /a n=4
goto a
复制代码

[ 本帖最后由 myzwd 于 2009-3-20 19:13 编辑 ]

hongkong

都是一些高手啊……！！！

lanshao

难怪学起来那么难啦！！！

lanshao

难怪学起来那么难啦！！！

wc726842270

学习了。原来HTML件可以这么和P结合，但是有没有更好的方法呢？

freeback

看了上面的东西长进不少。多希望高手多分享自己的学习心得。

peterwang

好多地方都不是很懂，要好好学习了

myzwd

是这样的？我从没试过。谢谢。我有长进了。呵呵。

[ 本帖最后由 myzwd 于 2009-4-13 20:18 编辑 ]

Batcher

这个取决于系统文件关联
跟start命令本身没有什么关系

myzwd

rem 这是用windows图片查看器打开图片
start  e:\test\a.jpg
复制代码

rem 这是在网页中打开图片，vb中就常用这句话
start explorer e:\test\a.jpg
复制代码

系统在默认状态下打开文件是按上述方法打开。请看31楼batcher的说明。

如在vb中（不是vbs），要打开网页就可以用下面的代码：
shell "explorer http:\\www.hao123.com"
vbs是vb的简化版（轻量级别）的vb
在dos中插上两句vbs效果挺不错的。
vbs中常用的两句话是
msgbox 和inputbox

 
x=msgbox ("提示信息",48,"窗口标题")
复制代码

x是运行函数msgbo的返回值，为1-7的值。这个返回值可以用于编程时的条件判断语句。
48是提示框样式(style)数字，可以查表查找比如说可以输入0，1，2，4，32，等等
如果只需要提示信息，代码可以按如下的方法写

msgbox “提示"&"自己想添加的字符串"
复制代码

inputbox函数就的用法是

y=inputbox ("提示信息","","默认值")
复制代码

同常了解这两句就够了。

[ 本帖最后由 myzwd 于 2009-4-13 20:36 编辑 ]

guao_jie

我完全是一个新手，看不懂代码。。顶

myzwd

msgbox("Hello from VBScript!")
msgbox "123456789"
复制代码

dim name
name="Jan Egil"
msgbox(name)
复制代码

dim name
name="Jan Egil"
msgbox("My name is: " & name)
复制代码

dim fname(5)
fname(0) = "George"
fname(1) = "John"
fname(2) = "Thomas"
fname(3) = "James"
fname(4) = "Adrew"
fname(5) = "Martin"

for i=0 to 5
  msgbox(fname(i) & " 123")
next
复制代码

sub mySub()
  msgbox("This is a sub procedure")
end sub
call mySub()
复制代码

function myFunction()
myFunction = "BLUE"
end function
msgbox("My favorite color is " & myFunction())
复制代码

function greeting()
i=hour(time)
if i < 10 then
msgbox("Good morning!")
else
msgbox("Have a nice day!")
end if
end function
call greeting()
复制代码

function greeting()
i=hour(time)
If i = 10 then
        msgbox("Just started...!")
elseif i = 11 then
        msgbox("Hungry!")
elseif i = 12 then
        msgbox("Ah, lunch-time!")
elseif i = 16 then
        msgbox("Time to go home!")
else
        msgbox("Unknown")
end if
end function
greeting()
rem elseif 不是else if
'注释
复制代码

d=weekday(date)

select case d
  case 1
    msgbox("Sleepy Sunday")
  case 2
     msgbox("Monday again!")
  case 3
     msgbox("Just Tuesday!")
  case 4
     msgbox("Wednesday!")
  case 5
     msgbox("Thursday...")
  case 6
     msgbox("Finally Friday!")
  case else
     msgbox("Super Saturday!!!!")
end select
rem 这是select 语句
复制代码

for i = 0 to 5
msgbox("The number is " & i & "
")
next
复制代码

dim names(2)
names(0) = "George"
names(1) = "John"
names(2) = "Thomas"

for each x in names
  msgbox(x & "这句相当于bat的for in语句")
next
复制代码

i=0
do while i < 10
  msgbox(i & "     ")
  i=i+1
loop
复制代码

i=0
do 
  msgbox(i & "     ")
  i=i+1
loop  while i < 10
复制代码

do 
  msgbox("123456")
  i=i+1
loop until i > 5
复制代码

msgbox("Today's date is " & date())
msgbox("The time is " & time())
rem  也可以这样,这是调用函数的一种方法
msgbox "今天的时间是" & time()
'日期和时间
复制代码

msgbox(WeekDayName(1))

msgbox(WeekDayName(2))

msgbox("Get the abbreviated name of a weekday:")

msgbox(WeekDayName(1,true))

msgbox(WeekDayName(2,true))

msgbox("Get the current weekday:")

msgbox(WeekdayName(weekday(date)))

msgbox(WeekdayName(weekday(date), true))
复制代码

出于易读和一致性的目的，请在 VBScript 代码中使用以下变量命名约定：
子类型 前缀 示例
Boolean bln blnFound
Byte byt bytRasterData
Date (Time) dtm dtmStart
Double dbl dblTolerance
Error err errOrderNum
Integer int intQuantity
Long lng lngDistance
Object obj objCurrent
Single sng sngAverage
String str strFirstName

变量应定义在尽量小的作用域中。VBScript 变量的作用域如下所示：
作用域 声明变量处 可见性
过程级 事件、函数或子过程 在声明变量的过程中可见
Script 级 HTML 页面的 HEAD 部分，任何过程之外 在 Script 的所有过程中可见


变量作用域前缀
随着 Script 代码长度的增加，有必要快速区分变量的作用域。在类型前缀前面添加一个单字符前缀可以实现这一点，而不致使变量名过长。
作用域 前缀 示例
过程级 无 dblVelocity
Script 级 s sblnCalcInProgress

对象命名约定
下表列出了 VBScript 中可能用到的对象命名约定（推荐）：
对象类型 前缀 示例
3D 面板 pnl pnlGroup
动画按钮 ani aniMailBox
复选框 chk chkReadOnly
组合框、下拉列表框 cbo cboEnglish
命令按钮 cmd cmdExit
公共对话框 dlg dlgFileOpen
框架 fra fraLanguage
水平滚动条 hsb hsbVolume
图像 img imgIcon
标签 lbl lblHelpMessage
直线 lin linVertical
列表框 lst lstPolicyCodes
旋钮 spn spnPages
文本框 txt txtLastName
垂直滚动条 vsb vsbRate
滑块 sld sldScale

[ 本帖最后由 myzwd 于 2009-3-24 20:59 编辑 ]

myzwd

cmd的属性可以利用注册表修改
hkcu\console -----cmd的属性都记录在这个键下
添加值名windowposition 再添加 d_word值可以改变cmd在屏幕中的位置。如（十进制）10551000，10551048  .把值设置为0就是恢复默认。

[ 本帖最后由 myzwd 于 2009-3-22 13:09 编辑 ]

myzwd

echo 阶乘计算
set /p n=输入n值---
set r=1
for /l %%i in (1 1 !n!) do (
        set /a "r=!r!*%%i"
)
echo !n!的阶乘=!r!
pause>nul
复制代码

sin(x)=1-(1/3!)x^3+(1/5!)x^5-......
编出sinx的计算程序要分离1/3!的整数部分和小数部分。有意思那天试试看能不能成功。
我猜应要用到bat的 运算---“/和%%”

求平方根的递推公式

 

f(n)={f(n-1)+k/f(n-1)}/2  ,其中n=1 ，2 ，3.。。
这是k的平方根公式
复制代码

@echo off &setlocal enabledelayedexpansion &cls &color 1a
echo -----判断小数位数----
:00
set /p x=输入数字--
set x1=a%x%
:01
set /a bit+=1
set num=!x1:~-1!
set x1=!x1:~,-1!
if !num! equ a (set bit=1 &goto end)
if !num! neq . goto 01
:end
call set v=%%x:~-!bit!%% 
call set u=%%x:~0,-!bit!%%
if %bit%==1 (set "v=0" &set "u=%x%")
set /a bit=%bit%-1
echo ┌─────────────┐
echo     小数位数=%bit% 整数部分=%u% 小数部分=%v%
echo └─────────────┘
set /p choice=输入r--从新开始,输入其它字符--结束--?
set bit=0
if %choice%==r goto 00 
pause
复制代码

分数化小数方法
http://bbs.bathome.net/thread-3832-1-1.html



两个正小数相加

@echo off &setlocal enabledelayedexpansion &cls &color 1a
echo  ~~~~~~~~~~~~~小数加法~~~~~~~~~~~~~~~~~by myzwd 2009 3 23
echo  ──────────────────────────────────
:main
set /p a=输入第一个小数---
set /p b=输入第二个小数---
rem 可以使用参数%1 %2 调用
call:sub %a%
set "a.bit=%bit%" &set "a.x=%v%" &set "a.z=%u%" 
call:sub %b%
set "b.bit=%bit%" &set "b.x=%v%" &set "b.z=%u%"  

set /a "t=%a.bit%-%b.bit%"
if %t% geq 0 ( for /l %%i in (1 1 %t%) do (set b.x=!b.x!0)
) else (set /a t=-%t% 
          for /l %%i in (1,1,!t!) do (set a.x=!a.x!0)
          set "a.x=!a.x: =!"
       )

:end
set /a "sumazbz=%a.z%+%b.z%" 
set a.x=%a.x:.=1% &set b.x=%b.x:.=1%
set /a "sum=%a.x%+%b.x%"
set /a "sum.z=%sum:~0,1%-2" &set "sum.x=%sum:~1%"
set /a "sum.z=%sumazbz%+%sum.z%"
set sum=%sum.z%.%sum.x%
echo 结果是----%a%+%b%=%sum%
set /p choice=输入r重新开始，输入其它字符结束--?
if %choice%==r goto main
exit /b
--------- 程序结束-----------------
------z符号代表整数部分，x符号代码小数部分
:sub
:00
set x=%1
set x1=a%x%
set bit=0
:01
set /a bit+=1
set num=!x1:~-1!
set x1=!x1:~,-1!
if !num! equ a (set bit=1 &goto end)
if !num! neq . goto 01
:end
call set v=%%x:~-!bit!%% 
call set u=%%x:~0,-!bit!%%
if %bit%==1 (set "v=0" &set "u=%x%")
set /a bit=%bit%-1
echo ┌─────────────────────┐
echo     小数位数=%bit% 整数部分=%u% 小数部分=%v%
echo └─────────────────────┘
goto:eof
复制代码

利用递推数列开方，本来收敛速度是最快的了，一般迭代4，5次就有很高的精度了。但是关键的一点是要解决两个有理数的除法运算如2.5/1.23 ，这最终又归结到小数点的移动上去。看来得多弄几个子程序。工作量有点大。有时间再说吧。我真不明白微软的bat在设计上为什么不直接设计来可以进行小数运算呢？

[ 本帖最后由 myzwd 于 2009-3-23 20:58 编辑 ]

myzwd

记得读书时我的电脑老师告诉我们，所有的语言都包含4种结构
1---顺序结构
2--转子结构
3--循环结构
4--分支结构
从这个角度讲，我应该老老实实的学习bat。只有这样学习才是最经济的。只有这样才可以触类旁通。
还有就是网上的那些黑客的这样攻击那样攻击，我都去试过，不过只是在虚拟机上试的
，因为真的电脑上根本没办法成功。我学习bat只是想让我的电脑能更好的工作。我不再象刚开始学习电脑时，那样幼稚了。老想用bat调用这样那样去攻击别人。那曾经浪费了
我不少的时间，因为你根本不会有成功的机会。除非别人有意等着你杀。
黑客的教程之所以讲攻击，那为了吸引眼球。比如说什么telnet登陆，说的是那么美好，那么诱惑人，但是我禁用我的tennet服务，你就只有干瞪眼！
  还有一个网络中老讲的例子，利用软件x-scan扫描，最后建立空链接，然后就可以去获得adminstrator的密码，然后如何如何的攻击别人。我就明说我的电脑就开了空连接，我还想看看别人是如何攻击我的呢？
  我讲这些东西就是要说明一个问题，学习bat，思路要端正，不要老想着学了可以攻击别人。高级语言都有共性，老老实实的学习一门语言才是最经济的方法。