Board logo

标题: [已解决]15元求助批处理弹窗、填入数字、运行命令 [打印本页]
作者: ksla    时间: 2019-6-24 22:07     标题: [已解决]15元求助批处理弹窗、填入数字、运行命令

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


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


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

结束
作者: zaqmlp    时间: 2019-6-24 22:22

本帖最后由 zaqmlp 于 2023-7-2 21:15 编辑 
  1. @echo off

  2. set info=互助互利,支付宝扫码头像,感谢赞助

  3. title %info%

  4. cd /d "%~dp0"

  5. >"%tmp%\t.vbs" echo;WSH.echo inputbox^("输入起始和末尾的数字","%info%","6 18"^)

  6. for /f "tokens=1,2" %%a in ('cscript -nologo "%tmp%\t.vbs"') do set "s=%%a 1 %%b"

  7. if defined s (

  8.     for /l %%a in (%s%) do (

  9.         echo;%%a

  10.         reboot %%a

  11.     )

  12. )

  13. echo;%info%

  14. pause
复制代码
作者: ksla    时间: 2019-6-24 22:25

回复 2# zaqmlp

出错

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

  1. @echo off

  2. set /p a=开头:

  3. set /p b=结尾:

  4. for /l %%a in (%a%,1,%b%) do reboot 程序%%a

  5. pause

  6. exit
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2