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. goto :eof
  7. ::**************************************************************
  8. ::       输入文件名称
  9. ::**************************************************************
  10. :File_Input
  11. Title ★★★★★ %~n0 %~2 ★★★★★
  12. if "%2" NEQ "" set %~2=No
  13. for /f "delims=" %%a in ('mshta " 代码 "') do set %~1="%%a"
  14. if "%~1" NEQ "" if "%2" NEQ "" set %~2=Yes
  15. Title ★★★★★ %~n0  ★★★★★
  16. 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