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

Rank: 5Rank: 5

帖子
268 
积分
872 
技术
19  
捐助
0  
注册时间
2010-5-30 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2011-11-15 23:42 | 只看该作者

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

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

不多说，代码上：
  1. @echo off

  2. goto a

  3. <html>

  4. <body>

  5. <input type='file' id='f' />

  6. <script type='text/javascript'>

  7. var f = document.getElementById('f');

  8. f.click();

  9. var shell = new ActiveXObject('WScript.Shell');

  10. shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\msg', f.value);

  11. window.close();

  12. </script>

  13. </body>

  14. </html>

  15. 

  16. :a

  17. set -reg=reg delete "HKCU\Volatile Environment" /v "msg" /f

  18. echo,任意键选择文件

  19. echo,

  20. pause>nul

  21. %-reg%>nul 2>nul

  22. mshta "%~dpnx0"

  23. for /f "tokens=2*" %%i in ('reg query "HKCU\Volatile Environment" /v "msg"') do (

  24. set fname=%%j

  25. )

  26. ::不能if x==x (x) else (y)，否则选择有括号的文件时就会KO

  27. if "%fname%"=="" echo,你没有选择文件

  28. if not "%fname%"=="" echo,你选择了%fname%。

  29. %-reg%>nul 2>nul

  30. echo,

  31. pause>nul
复制代码
4

评分人数

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

LJY4.0

Rank: 3Rank: 3

帖子
185 
积分
260 
技术
14  
捐助
0  
注册时间
2022-4-23 
23楼
发表于 2022-5-3 20:29 | 只看该作者
回复 19# cjiabing
可能没权限,只是猜测
https://pc.woozooo.com/mydisk.php

TOP

LJY4.0

Rank: 3Rank: 3

帖子
185 
积分
260 
技术
14  
捐助
0  
注册时间
2022-4-23 
22楼
发表于 2022-5-3 20:28 | 只看该作者
回复 8# defanive
64位不行,那个部件不能创建对象
https://pc.woozooo.com/mydisk.php

TOP

cjiabing

Rank: 8Rank: 8

帖子
1726 
积分
4476 
技术
95  
捐助
0  
注册时间
2008-12-21 
21楼
发表于 2011-11-21 13:53 | 只看该作者
一语惊醒梦中人
寂寞是黑白的，但黑白不是寂寞，是永恒。BAT 需要的不是可能，而是智慧。

TOP

lxzzr

Rank: 8Rank: 8

帖子
682 
积分
1686 
技术
48  
捐助
0  
注册时间
2008-3-13 
20楼
发表于 2011-11-21 10:21 | 只看该作者
explorer.exe的命令行参数不是有相似的效果么？
公钥

TOP

cjiabing

Rank: 8Rank: 8

帖子
1726 
积分
4476 
技术
95  
捐助
0  
注册时间
2008-12-21 
19楼
发表于 2011-11-17 21:34 | 只看该作者
回复 18# raymai97


    我也不知道怎么会这样，但就是提示找不到注册表。
寂寞是黑白的，但黑白不是寂寞，是永恒。BAT 需要的不是可能，而是智慧。

TOP

raymai97

Rank: 5Rank: 5

帖子
268 
积分
872 
技术
19  
捐助
0  
注册时间
2010-5-30 
18楼
发表于 2011-11-17 20:46 | 只看该作者
回复 13# cjiabing

为何我这里没有这个问题的？而且我记得我已经加了“>nul 2>nul”，难道这样也隐蔽不到错误信息？
为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

TOP

cjiabing

Rank: 8Rank: 8

帖子
1726 
积分
4476 
技术
95  
捐助
0  
注册时间
2008-12-21 
17楼
发表于 2011-11-17 19:42 | 只看该作者
回复 16# 920168

非常感谢，不过我想问的重点是：如何把document.execCommand('Open')获得的路径输出到其它文档，比如楼主的注册表。
寂寞是黑白的，但黑白不是寂寞，是永恒。BAT 需要的不是可能，而是智慧。

TOP

920168

Rank: 2

帖子
105 
积分
185 
技术
18  
捐助
0  
注册时间
2011-9-16 
16楼
发表于 2011-11-17 16:52 | 只看该作者
回复 15# cjiabing 
  1. <html>

  2. <head>

  3. <title>创建文本文件</title>

  4. </head>

  5. <body>

  6. <hr>

  7. <script language="JavaScript"> 

  8. var fso,f1,pa;

  9. var pa= "d:\\Fastcopy\\st.txt"

  10. var ForReading=1; 

  11. fso=new ActiveXObject("Scripting.FileSystemObject"); 

  12. f1=fso.CreateTextFile(pa,true); 

  13. f1.WriteLine("Hello World!");

  14. f1.WriteLine("Hello World1!");

  15. f1.WriteBlankLines(1); 

  16. f1.Close();

  17. document.write("创建文本文件: " + pa + "<br>");

  18. </script>

  19. </body>

  20. </html>
复制代码
http://www.diecasting86.com

TOP

cjiabing

Rank: 8Rank: 8

帖子
1726 
积分
4476 
技术
95  
捐助
0  
注册时间
2008-12-21 
15楼
发表于 2011-11-17 16:08 | 只看该作者 
  1. <html>

  2. <body>

  3. <script language="javascript">

  4. {

  5. document.execCommand('Open');

  6. Editor.focus();

  7. }

  8. </script>

  9. </body>
复制代码

没学过JS，搞了蛮久，还是不得。不懂如何document.write输出到文本。
寂寞是黑白的，但黑白不是寂寞，是永恒。BAT 需要的不是可能，而是智慧。

TOP

cjiabing

Rank: 8Rank: 8

帖子
1726 
积分
4476 
技术
95  
捐助
0  
注册时间
2008-12-21 
14楼
发表于 2011-11-17 14:07 | 只看该作者
有创意，不过有个问题必须解决，就是如何把结果传回批处理，而不显示那些多余的东西？
任意键选择文件


错误: 系统找不到指定的注册表项或值
你没有选择文件
寂寞是黑白的，但黑白不是寂寞，是永恒。BAT 需要的不是可能，而是智慧。

TOP

cjiabing

Rank: 8Rank: 8

帖子
1726 
积分
4476 
技术
95  
捐助
0  
注册时间
2008-12-21 
13楼
发表于 2011-11-17 14:07 | 只看该作者
有创意，不过有个问题必须解决，就是如何把结果传回批处理，而不显示那些多余的东西？
任意键选择文件


错误: 系统找不到指定的注册表项或值
你没有选择文件
寂寞是黑白的，但黑白不是寂寞，是永恒。BAT 需要的不是可能，而是智慧。

TOP

xj7199

Rank: 1

帖子
17 
积分
30 
技术
0  
捐助
0  
注册时间
2011-10-4 
12楼
发表于 2011-11-17 12:28 | 只看该作者
支持大大，能不能写一个保存的文件对话框呀。
悲杯，没有可用的签名。。

TOP

defanive

Rank: 7Rank: 7Rank: 7

帖子
957 
积分
4938 
技术
72  
捐助
0  
注册时间
2008-10-31 
11楼
发表于 2011-11-16 23:19 | 只看该作者
回复 9# raymai97
Win7…回去改一下换成html控件执行好了
第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

TOP

raymai97

Rank: 5Rank: 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

TOP

12
返回列表