标题: 批处理怎样建立带参数的快捷方式? [打印本页]
作者: winsfly 时间: 2012-11-4 19:27 标题: 批处理怎样建立带参数的快捷方式?
本帖最后由 winsfly 于 2012-11-5 17:34 编辑
- 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呢?
怎么在批处理指出初始位置 呢?
作者: Demon 时间: 2012-11-4 19:33
明明是VBS
作者: winsfly 时间: 2012-11-5 11:37
回复 2# Demon
没人帮忙呀.
作者: cjiabing 时间: 2012-11-5 11:48
什么参数?
原装参考:- 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 时间: 2012-11-5 21:48
回复 4# cjiabing
你这个不能带参数啊 我的-w -skiptobnet等参数怎么加?
作者: winsfly 时间: 2012-11-6 18:26
回复 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
作者: killer3k 时间: 2013-8-28 19:25
太感谢了:
第一,楼主帮我解决了大问题,这两天正准备用批处理来创建电脑上大部分软件的快捷方式(以前都是用备份的方式)。
因为完全不懂vbs,所以只能从网上搜一些相关代码,然后靠代码中的单词、字符、格式来乱蒙乱猜。搞定不带参数的快捷方式倒还不难,那几个带参数的快捷方式折腾了一宿也没找到解决方法,也搜索不到可用的文章,不是不对症就是看不懂。
今天,楼主的代码我一看就懂了~哈哈哈哈~“link.Arguments = "-w -skiptobnet -title D2Home战网"”这一行代码正是我需要的。感谢!
第二,楼主好人啊,自己解决了还回过头来把方法写出来造福大众。
以前有时候为了解决遇到的难题,苦苦搜索了好久,好不容易找到有类似问题的贴子,标题上还标了“已解决”。带着喜悦的心情一路往下看,结果到了最后楼主来一句“谢谢大家,已解决”,然后,然后就啥都没有了。真是欲哭无泪啊!
再次感谢楼主!
作者: killer3k 时间: 2013-8-28 19:34
又看了一下昨天搜索到的“wscript.shell”的说明,其实在“CreateShortcut”下提到了“Arguments 快捷方式对象的参数”,但是因为说得太简单,又没有举例,所以没看懂。今天看了楼主的代码,再回过头来看“wscript.shell”中关于“CreateShortcut”的说明,又稍微多懂了一些,再看其它方面的内容也颇受启发。
再次感谢楼主!
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |