d-tour.bat

制作bat 的工具,通过WBAT 可以制作出专业的BAT文件

@echo off

set mpos=0

:TOUR-MENU =============================================================

    wbat pal ! cls
    wbat text 4,26 :tour-info

    call w.bat menu 1,2 :tour-menu #%mpos% +1
        set mpos=%?%
        goto %wbat%

:Quick -----------------------------------------------------------------

    wbat cls ! text  2,4 :quick-box ! box OK
    wbat       text 12,4 :quick-pos ! box 20,60 continue
:q3
    wbat cls ! text  2,4 :quick-choice ! box 21,40 continue,back,tour menu
    if errorlevel 3 goto TOUR-MENU
    if errorlevel 2 goto Quick

    wbat cls ! text  2,4 :quick-prompt
    wbat box 19,55 (blue on +brown) "Continue Tour?" ok,back
    if errorlevel 2 goto q3
    goto TOUR-Menu

:Box Layout ------------------------------------------------------------

    wbat cls ! text 2,4 :box-layout ! box 21,49 continue,return
    if errorlevel 2 goto TOUR-MENU

    wbat cls ! text 2,4 :box-example ! text 7,45 (black on +brown) :box-exm
    wbat box 6,4 :box-exm #6
    wbat box 21,35 continue

    wbat cls ! text 2,4 :box-lref ! box 21,52 continue,return
    if errorlevel 2 goto TOUR-MENU

    wbat cls ! text 2,4 :box-other ! box 21,60 return
    goto TOUR-MENU

:Buttons ---------------------------------------------------------------

    wbat cls ! text 2,4 :buttons
    set ?=
:b-rpt
    call w.bat menu 21,62 :button-menu #%?%
    if errorlevel 100 goto TOUR-MENU

    wbat cls ! text 2,4 :buttons-%wbat%
    goto b-rpt

:Input -----------------------------------------------------------------

    wbat cls ! text 2,4 :input  ! box 21,49 continue,return
    if errorlevel 2 goto TOUR-MENU

    wbat cls ! text 2,4 :input-var ! box 21,60 ok
    goto TOUR-MENU

:Checkboxes ------------------------------------------------------------

    wbat cls ! text 2,4 :checkbox
    call w.bat box 16,50 :checkbox-example #3

    wbat cls ! text 2,4 :checkbox-var ! box 21,55 ok
    goto TOUR-MENU

:Radio buttons ---------------------------------------------------------

    wbat cls ! text 2,4 :radio
    call w.bat box 16,50 :radio-example #4

    wbat cls ! text 2,4 :radio-var ! box 21,55 ok
    goto TOUR-MENU

:List box --------------------------------------------------------------

    wbat cls ! text 2,4 :listbox ! box 21,49 continue,return
    if errorlevel 2 goto TOUR-MENU

    wbat cls ! text 2,4 :list-example
:l-again
    dir *.* /b/a-d/one  > %temp%\temp.txt
    call w.bat list 3,60 @%temp%\temp.txt

    wbat box 8,53 "Your selection was:^** %wbat% **" again,continue
    if not errorlevel 2 goto l-again

    wbat cls ! text 2,4 :list-keys ! box 20,65 ok
    if errorlevel 100 goto TOUR-MENU

    wbat cls ! text 2,4 :list-browse ! box 20,55 example,return
    if errorlevel 2 goto TOUR-MENU
    wbat cls ! list @wbat.ini
    goto TOUR-MENU

:Text ------------------------------------------------------------------

    wbat cls ! text 2,4 :text ! box 21,49 continue,return
    if errorlevel 2 goto TOUR-MENU

    wbat cls ! text 2,4 :text-area
    wbat text 8,16 (blue on bright brown) :text-example
    wbat box 21,49 continue,return
    if errorlevel 2 goto TOUR-MENU

    wbat cls ! text 2,4 :text-attrib ! box 21,49 continue,return
    if errorlevel 2 goto TOUR-MENU

    wbat cls ! text 2,4 :text-quick
    wbat text 11,30 (+white on red) " Pls. ignore this message! "
    wbat box 21,55 return
    goto TOUR-MENU

:Fill ------------------------------------------------------------------

    wbat cls ! text 2,4 :fill ! box 8,40 demo,syntax,return
    if errorlevel 3 goto TOUR-MENU
    if not errorlevel 2 goto fill-demo

    wbat cls ! text 2,4 :fill-syntax ! box 22,65 back
    goto fill

:fill-demo
    wbat cls
    wbat fill  3,4 (21,72) (+black on +brown) " "
    wbat fill 1,50 (13,18) (+black on green) " "
    wbat fill  1,6  (25,1) (+white on blue) "