批处理之家 - Powered by Discuz! Board

标题: [系统相关] 求助修改批处理 [打印本页]

作者: y6383289 时间: 2023-6-23 09:22 标题: 求助修改批处理

<!-- :
@echo off
for /f "delims=" %%F in ('mshta "%~f0" ') do (echo,%%F)
pause&exit/b
 -->
<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>
复制代码

有能力的大侠帮助将上面的代码修改为下面的式样,先谢谢各位大侠...

@ECHO OFF
setlocal enabledelayedexpansion
call :File_Input "files" "输入文件"&& echo 输入文件=!输入文件!
echo Files=%files%
echo 调试结束&&pause&&exit


goto :eof

::**************************************************************
::       输入文件名称
::**************************************************************
:File_Input
Title ★★★★★ %~n0 %~2 ★★★★★
if "%2" NEQ "" set %~2=No
for /f "delims=" %%a in ('mshta " 代码 "') do set %~1="%%a"
if "%~1" NEQ "" if "%2" NEQ "" set %~2=Yes
Title ★★★★★ %~n0  ★★★★★
goto :eof
复制代码

作者: jyswjjgdwtdtj 时间: 2023-6-23 10:19

你也不说需求是什么让别人怎么修改？

作者: buyiyang 时间: 2023-6-24 13:15

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://bbs.bathome.net/)