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

帖子
187 
积分
539 
技术
4  
捐助
0  
注册时间
2009-1-24 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2009-4-8 01:18 | 只看该作者

[注册表类] 【已解决】批处理怎样对url文件增加右键打开方式?

上次发贴对lnk文件添加右键查找位置功能看起来效果很不错：http://bbs.bathome.net/thread-3896-1-1.html
想把这个功能做到url文件上去，但url好象不是普通文件，弄了半天都没弄出来，请高手们支招。

[ 本帖最后由 9zhmke 于 2009-4-8 17:19 编辑 ]
1

评分人数

    • Batcher: 感谢主动给标题标注[已解决]字样PB + 2
收藏 分享

zqz0012005

Rank: 8Rank: 8

帖子
1069 
积分
12123 
技术
38  
捐助
0  
注册时间
2008-5-10 
2楼
发表于 2009-4-8 09:03 | 只看该作者
CMD中直接运行
  1. reg add hkcr\InternetShortcut\shell\notepad\command /ve /d "notepad.exe \"%1\""
复制代码
要保存为bat将%1改成%%1
命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

TOP

zqz0012005

Rank: 8Rank: 8

帖子
1069 
积分
12123 
技术
38  
捐助
0  
注册时间
2008-5-10 
3楼
发表于 2009-4-8 09:09 | 只看该作者
如果你想要的是查找快捷方式的目标，那就什么都不必加，直接双击就是：会自动打开浏览器并连接到目标位置。

关于URL快捷方式的文件格式，请到相关网站查询。
命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

TOP

tireless

Rank: 6Rank: 6

帖子
381 
积分
1801 
技术
9  
捐助
0  
注册时间
2008-10-27 
4楼
发表于 2009-4-8 11:23 | 只看该作者
添加 打开方式(H)...：
  1. reg add HKCR\InternetShortcut\shellex\ContextMenuHandlers\OpenWith /f /ve /d {09799AFB-AD67-11d1-ABCD-00C04FC30936}
复制代码
带箭头的不知道怎么添加...

TOP

9zhmke

帖子
187 
积分
539 
技术
4  
捐助
0  
注册时间
2009-1-24 
5楼
发表于 2009-4-8 12:32 | 只看该作者
禀版主，因为批处理直接生成lnk文件有难度，所以我在一些操作中用了url来替代lnk文件，这样一来，这些菜单、桌面上的url指向的就成了可执行文件了。我希望能够使用你写的右键查找功能：
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\lnkfile\shell\Target]
@="查看目标(&F)"

[HKEY_CLASSES_ROOT\lnkfile\shell\Target\command]
@="mshta vbscript:CreateObject(\"WScript.Shell\").Run(\"explorer /e,/select,\"&CreateObject(\"WScript.Shell\").CreateShortcut(\"%1\").TargetPath)(close)"

TOP

zqz0012005

Rank: 8Rank: 8

帖子
1069 
积分
12123 
技术
38  
捐助
0  
注册时间
2008-5-10 
6楼
发表于 2009-4-8 14:18 | 只看该作者

回复 5楼 的帖子

将lnkfile改成InternetShortcut

批处理直接生成lnk快捷方式
http://bbs.verybat.org/viewthrea ... romuid=37#pid164522
命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14791 
积分
45967 
技术
847  
捐助
745  
注册时间
2008-6-9 
7楼
发表于 2009-4-8 14:57 | 只看该作者

[ZT]批处理创建lnk快捷方式

  1. @echo off

  2. set str=%*

  3. call set str=%%str:%1=%%

  4. mshta VBScript:Execute("Set aaa=CreateObject(""WScript.Shell""):Set bbb=aaa.CreateShortcut(aaa.SpecialFolders(""Desktop"") & ""\%~n1.lnk""):bbb.TargetPath=""%~1"":bbb.Arguments=""%str%"":bbb.WorkingDirectory=""%~dp1"":bbb.Save:close")

  5. 

  6. ::Arguments              目标程序参数

  7. ::Description            快捷方式备注

  8. ::FullName               返回快捷方式完整路径

  9. ::Hotkey                 快捷方式快捷键

  10. ::IconLocation           快捷方式图标，不设则使用默认图标

  11. ::TargetPath             目标

  12. ::WindowStyle            窗口启动状态

  13. ::WorkingDirectory       起始位置
复制代码
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14791 
积分
45967 
技术
847  
捐助
745  
注册时间
2008-6-9 
8楼
发表于 2009-4-8 14:59 | 只看该作者

[ZT]VBS创建lnk快捷方式

  1. Set WshShell = WScript.CreateObject("WScript.Shell")

  2. strDesktop = WshShell.SpecialFolders("AllUsersDesktop")

  3. set oShellLink = WshShell.CreateShortcut(strDesktop & "\记事本.lnk")

  4. oShellLink.TargetPath = "C:\WINDOWS\NOTEPAD.EXE" '目标

  5. oShellLink.WindowStyle = 1 '参数1默认窗口激活，参数3最大化激活，参数7最小化

  6. oShellLink.Hotkey = ""

  7. oShellLink.IconLocation = "C:\WINDOWS\NOTEPAD.EXE, 0"

  8. oShellLink.Description = ""

  9. oShellLink.WorkingDirectory = "C:\WINDOWS\"

  10. oShellLink.Save
复制代码
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

9zhmke

帖子
187 
积分
539 
技术
4  
捐助
0  
注册时间
2009-1-24 
9楼
发表于 2009-4-8 17:27 | 只看该作者
好家伙，还有那么多东西没看到，早知道就不做url了

TOP

返回列表