批处理之家 » BAT原创&转载 » 批处理无3方显示“打开文件对话框”

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

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>nul
复制代码

4 评分人数

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

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

Rank: 5 Rank: 5

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

2楼

发表于 2011-11-16 11:57 | 显示全部帖子

回复 3# garyng

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

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

Rank: 5 Rank: 5

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

3楼

发表于 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

4楼

发表于 2011-11-16 13:38 | 显示全部帖子

回复 7# canyuexiaolang

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

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

Rank: 5 Rank: 5

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

5楼

发表于 2011-11-17 20:46 | 显示全部帖子

回复 13# cjiabing

为何我这里没有这个问题的？而且我记得我已经加了“>nul 2>nul”，难道这样也隐蔽不到错误信息？

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