网上看到的用批处理建立lnk快捷方式 - 中国DOS联盟论坛


Sub bat
echo create_shortcut 
start wscript -e:vbs "%~f0"
Exit Sub
End Sub

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Dim WshShell,pa
Set WshShell = WScript.CreateObject("WScript.Shell")
Pa = WshShell.CurrentDirectory
set oShellLink = WshShell.CreateShortcut(strDesktop & "\火炬之光.lnk")
oShellLink.TargetPath = pa & "\开始游戏.exe"
oShellLink.WindowStyle = 2
oShellLink.IconLocation = pa & "\开始游戏.exe, 0"
oShellLink.WorkingDirectory = pa
oShellLink.Save

真的很强大.我搞不懂SUB本来就不是可以运行的命令,可是少了它却不行了!

批处理时：
Sub bat，批处理中因为不存在Sub，输出错误显示并跳过，在vbs中定义sub过程的name为bat
start wscript -e:vbs "%~f0"，把整个批处理重新按vbs运行
Exit Sub，在vbs中从sub 过程中退出，在批处理中，只使用Exit，退出批处理
批处理也可以写成：

more +3<%~fs0>$.vbs
cscript //nologo $.vbs&del $.vbs
Exit
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Dim WshShell,pa
Set WshShell = WScript.CreateObject("WScript.Shell")
Pa = WshShell.CurrentDirectory
set oShellLink = WshShell.CreateShortcut(strDesktop & "\火炬之光.lnk")
oShellLink.TargetPath = pa & "\开始游戏.exe"
oShellLink.WindowStyle = 2
oShellLink.IconLocation = pa & "\开始游戏.exe, 0"
oShellLink.WorkingDirectory = pa
oShellLink.Save

vbs：

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Dim WshShell,pa
Set WshShell = WScript.CreateObject("WScript.Shell")
Pa = WshShell.CurrentDirectory
set oShellLink = WshShell.CreateShortcut(strDesktop & "\火炬之光.lnk")
oShellLink.TargetPath = pa & "\开始游戏.exe"
oShellLink.WindowStyle = 2
oShellLink.IconLocation = pa & "\开始游戏.exe, 0"
oShellLink.WorkingDirectory = pa
oShellLink.Save

[ Last edited by Hanyeguxing on 2010-6-15 at 12:01 ]

这样用BAT建立快捷方式比建立*.url就好得多了。

也用不着ECHO来输出VBS来建立快捷方式了。

以前我以为没办法直接调用VBS来建立快捷方式，因为换行的代码太多了。

也可以在BAT里面调用mshat来创建.lnk，不一定要生成临时的VBS。
.url就更简单了，echo几下就行了，更用不着VBS。

url本来是个网址的形式的,根本不具有lnk快捷方式所具有的性质.所以要建立桌面图标尽量还是要lnk的好.

我想知道怎么调用mshat来建立lnk呢?能举个例子吗?

@echo off
set str=%*
call set str=%%str:%1=%%
mshta.exe VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\%~n1.lnk""):b.TargetPath=""%~1"":b.Arguments=""%str%"":b.WorkingDirectory=""%~dp1"":b.Save:close")

::Arguments              目标程序参数
::Description            快捷方式备注
::FullName               返回快捷方式完整路径
::Hotkey                 快捷方式快捷键
::IconLocation           快捷方式图标，不设则使用默认图标
::TargetPath             目标
::WindowStyle            窗口启动状态
::WorkingDirectory       起始位置

Originally posted by kidzgy at 2010-6-15 21:56:
url本来是个网址的形式的,根本不具有lnk快捷方式所具有的性质.所以要建立桌面图标尽量还是要lnk的好.

我想知道怎么调用mshat来建立lnk呢?能举个例子吗?

url和和lnk本身不同，所以不存在谁比谁好的问题

第1楼　kidzgy	发表于 2010-06-15 09:58
中级用户　发帖 129　积分 262
网上看到的用批处理建立lnk快捷方式 Sub bat echo create_shortcut start wscript -e:vbs "%~f0" Exit Sub End Sub Set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") Dim WshShell,pa Set WshShell = WScript.CreateObject("WScript.Shell") Pa = WshShell.CurrentDirectory set oShellLink = WshShell.CreateShortcut(strDesktop & "\火炬之光.lnk") oShellLink.TargetPath = pa & "\开始游戏.exe" oShellLink.WindowStyle = 2 oShellLink.IconLocation = pa & "\开始游戏.exe, 0" oShellLink.WorkingDirectory = pa oShellLink.Save 真的很强大.我搞不懂SUB本来就不是可以运行的命令,可是少了它却不行了!

第2楼　Hanyeguxing	发表于 2010-06-15 11:43
银牌会员　发帖 897　积分 1,039　来自在地狱中仰望天堂
批处理时： Sub bat，批处理中因为不存在Sub，输出错误显示并跳过，在vbs中定义sub过程的name为bat start wscript -e:vbs "%~f0"，把整个批处理重新按vbs运行 Exit Sub，在vbs中从sub 过程中退出，在批处理中，只使用Exit，退出批处理批处理也可以写成：more +3<%~fs0>$.vbs cscript //nologo $.vbs&del $.vbs Exit Set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") Dim WshShell,pa Set WshShell = WScript.CreateObject("WScript.Shell") Pa = WshShell.CurrentDirectory set oShellLink = WshShell.CreateShortcut(strDesktop & "\火炬之光.lnk") oShellLink.TargetPath = pa & "\开始游戏.exe" oShellLink.WindowStyle = 2 oShellLink.IconLocation = pa & "\开始游戏.exe, 0" oShellLink.WorkingDirectory = pa oShellLink.Savevbs：Set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") Dim WshShell,pa Set WshShell = WScript.CreateObject("WScript.Shell") Pa = WshShell.CurrentDirectory set oShellLink = WshShell.CreateShortcut(strDesktop & "\火炬之光.lnk") oShellLink.TargetPath = pa & "\开始游戏.exe" oShellLink.WindowStyle = 2 oShellLink.IconLocation = pa & "\开始游戏.exe, 0" oShellLink.WorkingDirectory = pa oShellLink.Save [ Last edited by Hanyeguxing on 2010-6-15 at 12:01 ]

第3楼　kidzgy	发表于 2010-06-15 18:30
中级用户　发帖 129　积分 262
这样用BAT建立快捷方式比建立*.url就好得多了。也用不着ECHO来输出VBS来建立快捷方式了。以前我以为没办法直接调用VBS来建立快捷方式，因为换行的代码太多了。

第4楼　HAT	发表于 2010-06-15 20:03
版主　发帖 5,017　积分 9,023
Re 3 楼也可以在BAT里面调用mshat来创建.lnk，不一定要生成临时的VBS。 .url就更简单了，echo几下就行了，更用不着VBS。

第5楼　kidzgy	发表于 2010-06-15 21:56
中级用户　发帖 129　积分 262
url本来是个网址的形式的,根本不具有lnk快捷方式所具有的性质.所以要建立桌面图标尽量还是要lnk的好. 我想知道怎么调用mshat来建立lnk呢?能举个例子吗?

第6楼　sun2052	发表于 2010-06-16 12:20
新手上路　发帖 3　积分 3
@echo off set str=%* call set str=%%str:%1=%% mshta.exe VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\%~n1.lnk""):b.TargetPath=""%~1"":b.Arguments=""%str%"":b.WorkingDirectory=""%~dp1"":b.Save:close") ::Arguments 目标程序参数 ::Description 快捷方式备注 ::FullName 返回快捷方式完整路径 ::Hotkey 快捷方式快捷键 ::IconLocation 快捷方式图标，不设则使用默认图标 ::TargetPath 目标 ::WindowStyle 窗口启动状态 ::WorkingDirectory 起始位置

第7楼　Hanyeguxing	发表于 2010-06-16 13:28
银牌会员　发帖 897　积分 1,039　来自在地狱中仰望天堂
Originally posted by kidzgy at 2010-6-15 21:56: url本来是个网址的形式的,根本不具有lnk快捷方式所具有的性质.所以要建立桌面图标尽量还是要lnk的好. 我想知道怎么调用mshat来建立lnk呢?能举个例子吗? url和和lnk本身不同，所以不存在谁比谁好的问题