home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 July / VPR9707A.ISO / OLS / Win32 / Wbat128p / WBAT128P.LZH / SAMPLE / SAMPLE.BAT < prev    next >
DOS Batch File  |  1995-06-11  |  2KB  |  77 lines
  1. @echo off
  2. :/    --------------------------------------------------------------
  3. :/    WinBatchEhサンプルバッチ - SAMPLE.BAT
  4. :/    一般的な(?)サンプル。
  5. :/    途中でDOS上かWinBatchEh上かの分岐を行なっている。
  6. :/
  7. :/    Author : Yohei Shimizu
  8. :/    Version: 1.01
  9. :/    Date   : 1995/06/11
  10. :/
  11. :/    History: 1.0    1995/05/24
  12. :/            Initial Version
  13. :/         1.01    1995/06/11
  14. :/            無視すると無限ループになるのを修正^^;
  15. :/    --------------------------------------------------------------
  16.  
  17. echo %0 - WinBatchEhのためのサンプルバッチファイルです。
  18. echo.
  19. echo これから実行を行います。
  20. echo まずは普通のバッチファイルです。
  21. pause
  22. cls
  23. echo 環境変数PATHは %PATH% と設定されてます。
  24. echo.
  25. echo カレントドライブ及びディレクトリは次のようになっています。
  26. cd
  27. echo.
  28. if exist \command.com echo このディレクトリのルートに \COMMAND.COM が存在します。
  29. if not exist \command.com echo このディレクトリのルートには \COMMAND.COM が存在しません。
  30. echo.
  31. echo では、WinBatchEhらしい(?)バッチの実行に移ります。
  32. pause
  33.  
  34. if WINBATCH==YES goto START
  35. echo.
  36. echo この続きはWinBatchEh上でのみ実行可能です。WinBatchEh上で実行してみてください。
  37. echo 何かキーを押すとバッチを終了します。
  38. pause>nul
  39. goto END
  40.  
  41. :START
  42. :LOOP
  43. messagebox=0x0044 とりあえず邪魔なのでバッチ内容表示ウィンドウを最小化してよいですか?
  44. if not errorlevel 7 batwnd off
  45. messagebox=0x0123 ついでにバッチ実行ウィンドウも非表示にしますか?
  46. if errorlevel 3 goto NEXT
  47. messagebox=0x0232 え? キャンセルって、もしかしてバッチを中止するのでしょうか?
  48. if %ERRORLEVEL%==3 goto QUIT
  49. if %ERRORLEVEL%==4 goto LOOP
  50. set COUNT=.
  51. :MUSI
  52. echo 無視しないでくださいよ～～～～～～～～～～～～～～～～～～～～～～～～～～～～
  53. set COUNT=%COUNT%.
  54. if not %COUNT%==......................... goto MUSI
  55. messagebeep 0x0000
  56. messagebeep 0x0010
  57. messagebeep 0x0020
  58. messagebeep 0x0030
  59. messagebeep 0x0040
  60. goto LOOP
  61.  
  62. :NEXT
  63. if not errorlevel 7 execwnd off
  64.  
  65. messagebox 今度は電卓を起動してみます。電卓が終了するまでバッチには戻ってきません。
  66. calc.exe
  67. messagebox もう一度電卓を起動してみます。今度はフルスクリーンで起動させます。
  68. exec=SW_MAXIMIZE calc.exe
  69. messagebox さらに電卓を起動してみます。今回はアイコン状態で起動させて、すぐにバッチに戻ってきます。
  70. start=SW_SHOWMINIMIZED calc.exe
  71. messagebox バッチに戻ってきました。電卓は使わないなら終了させてあげてください:-)
  72.  
  73. :QUIT
  74. messagebox サンプルバッチ%0はこれで終了です。お疲れさまでした。
  75.  
  76. :END
  77.