批处理怎样建立带参数的快捷方式？

winsfly

echo Dim WshShell,Shortcut>%temp%\a.vbs 
echo Dim path,fso>>%temp%\a.vbs
echo path="L:\单机游戏\暗黑破坏神1.09精简版\D2loader.exe"  -w -skiptobnet -title D2Home战网 -nonotify -lng:CHN -bn 116.255.234.39>>%temp%\a.vbs
echo Set fso=CreateObject^("Scripting.FileSystemObject"^)>>%temp%\a.vbs 
echo Set WshShell=WScript.CreateObject^("WScript.Shell"^)>>%temp%\a.vbs 
echo Set Shortcut=WshShell.CreateShortCut^("C:\Documents and Settings\Administrator\桌面\D2Home战网.lnk"^)>>%temp%\a.vbs 
echo Shortcut.TargetPath=path>>%temp%\a.vbs 
echo Shortcut.Save>>%temp%\a.vbs
start "%SystemRoot%\System32\WScript.exe" "%temp%\a.vbs"
复制代码

是不是在第三行加参数呢？可是加参数的话，双引号不知道怎么放？
如果不是在第三行加参数，那怎么加参数w -skiptobnet -title D2Home战网 -nonotify -lng:CHN -bn 116.255.234.39呢？
怎么在批处理指出初始位置 呢？

killer3k

又看了一下昨天搜索到的“wscript.shell”的说明，其实在“CreateShortcut”下提到了“Arguments 快捷方式对象的参数”，但是因为说得太简单，又没有举例，所以没看懂。今天看了楼主的代码，再回过头来看“wscript.shell”中关于“CreateShortcut”的说明，又稍微多懂了一些，再看其它方面的内容也颇受启发。
再次感谢楼主！

killer3k

太感谢了：
第一，楼主帮我解决了大问题，这两天正准备用批处理来创建电脑上大部分软件的快捷方式（以前都是用备份的方式）。
因为完全不懂vbs，所以只能从网上搜一些相关代码，然后靠代码中的单词、字符、格式来乱蒙乱猜。搞定不带参数的快捷方式倒还不难，那几个带参数的快捷方式折腾了一宿也没找到解决方法，也搜索不到可用的文章，不是不对症就是看不懂。
今天，楼主的代码我一看就懂了~哈哈哈哈~“link.Arguments = "-w -skiptobnet -title D2Home战网"”这一行代码正是我需要的。感谢！
第二，楼主好人啊，自己解决了还回过头来把方法写出来造福大众。
以前有时候为了解决遇到的难题，苦苦搜索了好久，好不容易找到有类似问题的贴子，标题上还标了“已解决”。带着喜悦的心情一路往下看，结果到了最后楼主来一句“谢谢大家，已解决”，然后，然后就啥都没有了。真是欲哭无泪啊！
再次感谢楼主！

winsfly

回复 5# winsfly


    还是自己搞定，写了个vbs
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\D2Home战网.lnk")
link.Arguments = "-w -skiptobnet -title D2Home战网"
link.Description = ""
link.HotKey = "CTRL+K"
link.IconLocation = "L:\单机游戏\暗黑破坏神1.09\D2loader.exe,0"
link.TargetPath = "L:\单机游戏\暗黑破坏神1.09\D2loader.exe"
link.WindowStyle = 1
link.WorkingDirectory = "L:\单机游戏\暗黑破坏神1.09"
link.Save

winsfly

回复 4# cjiabing


    你这个不能带参数啊  我的-w -skiptobnet等参数怎么加？

cjiabing

什么参数？
原装参考：

set "SrcFile=%BatMPlayer%"
set "LNkFile=%USERPROFILE%\桌面\BatMPlayer"
echo  "%SrcFile%" "%LNkFile%"  桌面\BatMPlayer
pause
call :CreateShort "%SrcFile%" "%LNkFile%"

goto :eof
:CreateShort
if exist "%~dp0BmpProgram\BatMPlayer.ico" set "IconLocation=:b.IconLocation=""%~dp0BmpProgram\BatMPlayer.ico"""
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.LNk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Description=""BatMPlayer播放器""%IconLocation%:b.Save:close")
)>nul
goto :eof
复制代码

winsfly

回复 2# Demon


    没人帮忙呀.

Demon

明明是VBS