无忧启动论坛

标题: 创建快捷方式带路径参数总是出错求解？ [打印本页]
作者: 2012jvnet    时间: 2018-5-29 22:29
标题: 创建快捷方式带路径参数总是出错求解？
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\CMD.lnk""):b.TargetPath=""CMD.exe R:\"":b.WorkingDirectory=""%~dp0"":b.Save:close")
求解？
作者: 2012jvnet    时间: 2018-5-29 22:34
带路径盘符就出错
作者: 窄口牛    时间: 2018-5-30 08:23
本帖最后由 窄口牛 于 2018-5-30 15:03 编辑
  1. @echo
  2. @echo
  3. echo dim WshShell>>tmp.vbs
  4. echo set WshShell = wscript.createobject("wscript.shell")>>tmp.vbs
  5. echo strDesktop = WshShell.SpecialFolders("Desktop")>>tmp.vbs
  6. echo set oShellLink = WshShell.CreateShortcut(strDesktop ^& "\CMD.lnk")>>tmp.vbs
  7. echo oShellLink.TargetPath = "%comspec%">>tmp.vbs
  8. echo oShellLink.Arguments = "R:">>tmp.vbs
  9. echo oShellLink.WindowStyle = ^1>>tmp.vbs
  10. echo oShellLink.Hotkey = "Ctrl+Alt+N">>tmp.vbs
  11. echo oShellLink.IconLocation = "%comspec%">>tmp.vbs
  12. echo oShellLink.Description = "??">>tmp.vbs
  13. echo oShellLink.WorkingDirectory = "%~dp0">>tmp.vbs
  14. echo oShellLink.Save>>tmp.vbs
  15. "%SystemRoot%\System32\WScript.exe" tmp.vbs
  16. @del /f /s /q tmp.vbs
  17. pause
复制代码
作者: Anson4    时间: 2018-5-30 08:36
快捷方式的参数有专门的设置参数：Arguments
作者: tt911    时间: 2018-5-30 10:44
nircmd.exe cmdshortcut "~$folder.desktop$" "Switch Volume" mutesysvolume 2


FileCreateShortcut, Notepad.exe, %A_Desktop%\My Shortcut.lnk, C:\, "%A_ScriptFullPath%", My Description, C:\My Icon.ico, i
ahk版
作者: 2012jvnet    时间: 2018-5-30 10:50
高手们，请搞一行命令，那些VBS的搞了好多行，不如一行简单
关键的是TargetPath目标"*.exe X:\Y"这样的目标带启动路径的无法生成快捷方式，
好像是那个双引号错了！
请帮忙！
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\CMD.lnk""):b.TargetPath=""CMD.exe R:\"":b.WorkingDirectory=""%~dp0"":b.Save:close")
作者: 2012jvnet    时间: 2018-5-30 11:00
我搜了几十页百度都楼上那样的批处理，一条一条写入vbs,再运行vbs生成快捷方式，最后删除vbs，
肯定没有一条命令来的方便简捷，那些绿化软件的批处理都是这样的一条命令！

作者: 窄口牛    时间: 2018-5-30 15:02
看懂你的意思了
  1. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\CMD.lnk""):b.TargetPath=""CMD.exe"":b.Arguments = ""R:"":b.WorkingDirectory=""%~dp0"":b.Save:close")
复制代码
作者: 2012jvnet    时间: 2018-5-30 18:49
谢谢你，你的命令是可以的，我看了你下面的那位提示，上午就解决了
快捷方式的参数有专门的设置参数：Arguments



欢迎光临 无忧启动论坛 (http://wuyou.net/) Powered by Discuz! X3.3