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

Rank: 12Rank: 12Rank: 12

帖子
14814 
积分
45992 
技术
848  
捐助
745  
注册时间
2008-6-9 
1楼 跳转到 »
发表于 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

帖子
14814 
积分
45992 
技术
848  
捐助
745  
注册时间
2008-6-9 
2楼
发表于 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

返回列表