Board logo

标题: [系统相关] 求助修改批处理 [打印本页]
作者: y6383289    时间: 2023-6-23 09:22     标题: 求助修改批处理

  1. <!-- :

  2. @echo off

  3. for /f "delims=" %%F in ('mshta "%~f0" ') do (echo,%%F)

  4. pause&exit/b

  5.  -->

  6. <meta http-equiv="x-ua-compatible" content="ie=10">

  7. <input type=file id=f multiple accept=".txt,.bat,.cmd,.hta,.js,.vbs">

  8. <script>

  9.    f.click();

  10.    new ActiveXObject('scripting.filesystemobject').getstandardstream(1).write(f.value ? f.value : '');

  11.    close();

  12. </script>
复制代码
有能力的大侠帮助将上面的代码修改为下面的式样,先谢谢各位大侠...
  1. @ECHO OFF

  2. setlocal enabledelayedexpansion

  3. call :File_Input "files" "输入文件"&& echo 输入文件=!输入文件!

  4. echo Files=%files%

  5. echo 调试结束&&pause&&exit

  6. 

  7. 

  8. goto :eof

  9. 

  10. ::**************************************************************

  11. ::       输入文件名称

  12. ::**************************************************************

  13. :File_Input

  14. Title ★★★★★ %~n0 %~2 ★★★★★

  15. if "%2" NEQ "" set %~2=No

  16. for /f "delims=" %%a in ('mshta " 代码 "') do set %~1="%%a"

  17. if "%~1" NEQ "" if "%2" NEQ "" set %~2=Yes

  18. Title ★★★★★ %~n0  ★★★★★

  19. goto :eof
复制代码
作者: jyswjjgdwtdtj    时间: 2023-6-23 10:19

你也不说需求是什么 让别人怎么修改？
作者: buyiyang    时间: 2023-6-24 13:15

  1. for /f "delims=" %%a in ('mshta "about:<meta http-equiv='x-ua-compatible' content='ie=10'><input type=file id=f multiple accept='.txt,.bat,.cmd,.hta,.js,.vbs'><script>f.click();new ActiveXObject('scripting.filesystemobject').getstandardstream(1).write(f.value?f.value:'');close();</script>"') do 
复制代码
作者: y6383289    时间: 2023-6-24 21:23

回复 3# buyiyang

非常感谢!!!!!!!!!!!!



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