[已解决]15元求助批处理弹窗、填入数字、运行命令

ksla

具体报酬：15元人民币
支付方式：支付宝
请将支付宝手机号私信给我！可用马上打款！


运行批处理----弹窗---（随便填入数字）例如：填入6--然后再填入18---运行命令


reboot    程序6
reboot    程序7
reboot    程序8
reboot    程序9
reboot    程序10
reboot    程序11
.
.
.
reboot    程序18

结束

zaqmlp

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
title %info%
cd /d "%~dp0"
>"%tmp%\t.vbs" echo;WSH.echo inputbox^("输入起始和末尾的数字","%info%","6 18"^)
for /f "tokens=1,2" %%a in ('cscript -nologo "%tmp%\t.vbs"') do set "s=%%a 1 %%b"
if defined s (
    for /l %%a in (%s%) do (
        echo;%%a
        reboot %%a
    )
)
echo;%info%
pauseCOPY

ksla

回复 2# zaqmlp

出错

'mshta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(inputbox(""输入起始和末尾的数字"",""互助互利,支付宝扫码头像,感谢赞助"",""6 18""))")(close)' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
互助互利,支付宝扫码头像,感谢赞助
请按任意键继续. . .

Blitz

@echo off
set /p a=开头:
set /p b=结尾:
for /l %%a in (%a%,1,%b%) do reboot 程序%%a
pause
exitCOPY