[文件管理] 批处理无3方显示“打开文件对话框”

Rank: 5 Rank: 5

帖子: 268
积分: 872
技术: 19
捐助: 0
注册时间: 2010-5-30

1楼 跳转到 » 倒序看帖

打印

字体大小: tT

发表于 2011-11-15 23:42 | 只看该作者

[文件管理] 批处理无3方显示“打开文件对话框”

特点：NO临时文件，只一个批处理文件，HTA+BAT集于一身
原理：调用mshta打开自己，并把结果通过注册项反馈给批处理，批处理检测后会删除注册项

不多说，代码上：

 @echo off
goto a
<html>
<body>
<input type='file' id='f' />
<script type='text/javascript'>
var f = document.getElementById('f');
f.click();
var shell = new ActiveXObject('WScript.Shell');
shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\msg', f.value);
window.close();
</script>
</body>
</html>
 
:a
set -reg=reg delete "HKCU\Volatile Environment" /v "msg" /f
echo,任意键选择文件
echo,
pause>nul
%-reg%>nul 2>nul
mshta "%~dpnx0"
for /f "tokens=2*" %%i in ('reg query "HKCU\Volatile Environment" /v "msg"') do (
set fname=%%j
)
::不能if x==x (x) else (y)，否则选择有括号的文件时就会KO
if "%fname%"=="" echo,你没有选择文件
if not "%fname%"=="" echo,你选择了%fname%。
%-reg%>nul 2>nul
echo,
pause>nulCOPY

4 评分人数

cmd1152: 不错不错技术 + 1
Hello123World: 调用mshta打开自己技术 + 1
netbenton: 哈哈~~有意思~~PB + 10 技术 + 1
CrLf: 不错，好办法技术 + 1

为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

920168

二级士官

Rank: 2

帖子: 105
积分: 185
技术: 18
捐助: 0
注册时间: 2011-9-16

2楼

发表于 2011-11-16 09:09 | 只看该作者

特来支持！！

http://www.diecasting86.com

http://garyngzhongbo.blogspot.com

garyng

少尉

Rank: 5 Rank: 5

帖子: 566
积分: 707
技术: 12
捐助: 0
注册时间: 2011-6-27

3楼

发表于 2011-11-16 09:55 | 只看该作者

还是一句：RayMai究竟是RayMai啊！

收藏了。。

是HTML+BAT吧？

Rank: 5 Rank: 5

帖子: 268
积分: 872
技术: 19
捐助: 0
注册时间: 2010-5-30

4楼

发表于 2011-11-16 11:57 | 只看该作者

回复 3# garyng

hta来的，改成html就不能写入注册表了

为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

http://garyngzhongbo.blogspot.com

garyng

少尉

Rank: 5 Rank: 5

帖子: 566
积分: 707
技术: 12
捐助: 0
注册时间: 2011-6-27

5楼

发表于 2011-11-16 12:09 | 只看该作者

回复 4# raymai97

哦哦～
我对这东不解啊。。。

defanive

技术组成员

Rank: 7 Rank: 7 Rank: 7

帖子: 957
积分: 4938
技术: 72
捐助: 0
注册时间: 2008-10-31

6楼

发表于 2011-11-16 13:10 | 只看该作者

 @echo off
for /f %%a in ('^(type "%~f0"^&echo;x^)^|find /c /v ""') do set "nLine=%%a"
setlocal enabledelayedexpansion
(for /l %%a in (2,1,%nLine%) do set /p Line_%%a=&set "Exec=!Exec!&echo;^!Line_%%a^!")<"%~f0"
:loop
>"%~f0" (type nul%Exec%)
mshta vbscript:execute("set oDlg=CreateObject(""MSComDlg.CommonDialog""):oDlg.MaxFileSize=260:oDlg.Flags=4:oDlg.Action=1:CreateObject(""Scripting.FileSystemObject"").OpenTextFile(""%~f0"",8).Write(""_""&oDlg.FileName):self.close")
<"%~f0" (for /l %%a in (1,1,%nLine%) do set /p Data=)
echo File Path: %Data:~1%
pause
goto :loop
::DataCOPY

稍微写了一段，批处理自身应该不算临时文件吧，

1 评分人数

CrLf: 效率的确更高些技术 + 1

第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

canyuexiaolang

Rank: 8 Rank: 8

帖子: 647
积分: 3454
技术: 24
捐助: 0
注册时间: 2009-4-25

7楼

发表于 2011-11-16 13:10 | 只看该作者

win2003.....有点慢...该机子事？

defanive

技术组成员

Rank: 7 Rank: 7 Rank: 7

帖子: 957
积分: 4938
技术: 72
捐助: 0
注册时间: 2008-10-31

8楼

发表于 2011-11-16 13:12 | 只看该作者

6L的代码基于清除批处理自身最后一行的研究成果，将批处理自己作为临时文件使用

第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

Rank: 5 Rank: 5

帖子: 268
积分: 872
技术: 19
捐助: 0
注册时间: 2010-5-30

9楼

发表于 2011-11-16 13:37 | 只看该作者

回复 8# defanive

defanive你是用xp吧？commondialog我不是没有试过，在win7下不行啊~

为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

Rank: 5 Rank: 5

帖子: 268
积分: 872
技术: 19
捐助: 0
注册时间: 2010-5-30

10楼

发表于 2011-11-16 13:38 | 只看该作者

回复 7# canyuexiaolang

这个会调用到ie的东西，所以会比较慢~

为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

defanive

技术组成员

Rank: 7 Rank: 7 Rank: 7

帖子: 957
积分: 4938
技术: 72
捐助: 0
注册时间: 2008-10-31

11楼

发表于 2011-11-16 23:19 | 只看该作者

回复 9# raymai97
Win7…回去改一下换成html控件执行好了

第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

xj7199

列兵

Rank: 1

帖子: 17
积分: 30
技术: 0
捐助: 0
注册时间: 2011-10-4

12楼

发表于 2011-11-17 12:28 | 只看该作者

支持大大，能不能写一个保存的文件对话框呀。

悲杯，没有可用的签名。。

cjiabing

Rank: 8 Rank: 8

帖子: 1726
积分: 4476
技术: 95
捐助: 0
注册时间: 2008-12-21

13楼

发表于 2011-11-17 14:07 | 只看该作者

有创意，不过有个问题必须解决，就是如何把结果传回批处理，而不显示那些多余的东西？

任意键选择文件

错误: 系统找不到指定的注册表项或值
你没有选择文件

寂寞是黑白的，但黑白不是寂寞，是永恒。BAT 需要的不是可能，而是智慧。

cjiabing

Rank: 8 Rank: 8

帖子: 1726
积分: 4476
技术: 95
捐助: 0
注册时间: 2008-12-21

14楼

发表于 2011-11-17 14:07 | 只看该作者

有创意，不过有个问题必须解决，就是如何把结果传回批处理，而不显示那些多余的东西？

任意键选择文件

错误: 系统找不到指定的注册表项或值
你没有选择文件

寂寞是黑白的，但黑白不是寂寞，是永恒。BAT 需要的不是可能，而是智慧。

cjiabing

Rank: 8 Rank: 8

帖子: 1726
积分: 4476
技术: 95
捐助: 0
注册时间: 2008-12-21

15楼

发表于 2011-11-17 16:08 | 只看该作者

 <html>
<body>
<script language="javascript">
{
document.execCommand('Open');
Editor.focus();
}
</script>
</body>COPY

没学过JS，搞了蛮久，还是不得。不懂如何document.write输出到文本。

寂寞是黑白的，但黑白不是寂寞，是永恒。BAT 需要的不是可能，而是智慧。