本帖最后由 459500160 于 2021-1-27 15:50 编辑
- @echo off
- :loop
- set "n="
- set /p "n=请输入要多开的数量(1-10):"
- if "x%n%" equ "x" (
- echo 输入错误
- goto :loop
- )
- if %n% geq 1 (
- if %n% leq 10 (
- goto :ExecStart
- )
- )
- goto :loop
- :ExecStart
- for /l %%i in (2,1,%n%) do xcopy "D:\b" "D:\b%%i" /h/q/i/c/e/y
- set "p=%~dp0"
- for /L %%i in (2,1,%n%) do (
- mshta "javaScript:a=new ActiveXObject('WScript.Shell');b=a.CreateShortcut(a.SpecialFolders('Desktop')+'\\a%%i.lnk');b.TargetPath='D:\b%%i\\a.exe';b.WorkingDirectory='%p:\=\\%';b.Save();close();"
- )
- del %0
复制代码 谢谢几位大大的解答,现在已经可以正常运行了
最后补充一句,我下载了论坛的播布客IceRain作品Windows批处理1-18(全),教程里面的swf文件用potplayer法播放 |