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://bathome.net./) Powered by Discuz! 7.2