〖转〗使用批命令创建快捷方式

实例一（使用.bat 批处理程序）
———————————————————-
echo [InternetShortcut] >>test.url
echo URL=c:\windows\system32\notepad.exe >>test.url
echo IconIndex=29 >>test.url
echo IconFile=C:\windows\system32\shell32.dll >>test.url
实例二（使用.bat 批处理程序）
———————————————————-
@echo off
if exist “%test.url” echo 链接 “%test.url” 已创建！ & goto :eof
if exist “%~f2″ echo 目标 “%~f2″ 不存在！ & goto :eof
echo [InternetShortcut] > “%test.url”
echo URL=%~f2 >> “%test.url”
echo IconIndex=0 >> “%test.url”
echo IconFile=%~f2 >> “%test.url”
实例三（使用.vbs 程序）
———————————————————-
Dim WSHShell, fs
Set WSHShell = WScript.CreateObject(“WScript.Shell”)
Set fs = WScript.CreateObject(“Scripting.FileSystemObject”)
Function MakeDesktopShortcut( name, target )
Dim Shortcut,DesktopPath,StartupPath
DesktopPath = WSHShell.SpecialFolders(“Desktop”)
Set Shortcut = WSHShell.CreateShortcut(DesktopPath & “\” & name & “.lnk”)
Shortcut.TargetPath = target
StartupPath = fs.GetParentFolderName( target )
If fs.FolderExists( StartupPath ) then
Shortcut.WorkingDirectory = StartupPath
End If
Shortcut.Save
End FunctionMakeDesktopShortcut “Shortcut to Notepad”, “C:\Windows\Notepad.exe”
实例四（使用.vbs 程序）
———————————————————-
set WshShell = WScript.CreateObject(“WScript.Shell”)
strDesktop = WshShell.SpecialFolders(“Desktop”) ‘获得桌面目录
set oShellLink = WshShell.CreateShortcut(strDesktop & “\qq.lnk”) ‘快捷方式存放目录及名称
oShellLink.TargetPath = “C:\Program Files\Tencent\QQ\CoralQQ.exe” ‘指向的可执行文件
oShellLink.WindowStyle = 1 ‘运行方式
oShellLink.Hotkey = “CTRL+SHIFT+F” ‘快捷键
oShellLink.IconLocation = “C:\Program Files\Tencent\QQ\QQ.exe, 0″ ‘图标
oShellLink.Description = “qq” ‘备注
oShellLink.WorkingDirectory = “C:\Program Files\Tencent\QQ\” ‘起始目录
oShellLink.Save ‘创建快捷方式

文章来源:网络作者:未知整理日期:2009-2-25

此条目发表在学习-转载分类目录。将固定链接加入收藏夹。

〖转〗使用批命令创建快捷方式

《〖转〗使用批命令创建快捷方式》有 3 条评论

发表评论取消回复

文章目录

最新文章

友情链接

链接

〖转〗使用批命令创建快捷方式

《〖转〗使用批命令创建快捷方式》有 3 条评论

发表评论 取消回复

文章目录

最新文章

友情链接

链接

看看都在搜索什么

发表评论取消回复