@BATCHWND OFF
@EXECUTEWND OFF

set WGET=wget
set STORE_DIR=c:/prj/web
set LOG_FILE=%TEMP%\getweb.log

DEL %LOG_FILE%
GETCLIPBOARD URL
rem MSGBOX=0x0001 /T:"GetWeb" %URL%
CHOICEBUTTON /T:"GetWeb: 再帰数を指定してください" /MF:"%URL%" /WS:780,500 /V2 OnlyThisPage 1 2 3 10 Cancel
SWITCH %ERRORLEVEL%
  CASE 0
    GOTO END
    BREAKSWITCH
  CASE 1
    set OPT=
    BREAKSWITCH
  CASE 2
    set OPT=-r -l 1
    BREAKSWITCH
  CASE 3
    set OPT=-r -l 2
    BREAKSWITCH
  CASE 4
    set OPT=-r -l 3
    BREAKSWITCH
  CASE 5
    set OPT=-r -l 10
    BREAKSWITCH
  CASE 6
    GOTO END
    BREAKSWITCH
  DEFAULT
    BREAKSWITCH
ENDSWITCH

set CL=%WGET% -x %OPT% -p -k -erobots=off -o %LOG_FILE% -P %STORE_DIR% %URL%

rem INPUTSTRING /MF:"以下のコマンドラインを実行します\n%CL%\n修正があるなら入力してください。" /WS:400,300 NEWCL
EXEC %CL%
:END