Question

分析，VBS创建快捷方式

谁帮我分析下下面这段代码，怎么分开设置各个参数，比如两个文件的图标、窗口样式不一样，分别怎么设置？

on error resume next

myshortcut "ad","本地电影","C:\Program Files\Internet Explorer\iexplore.exe","http://192.168.1.241"
myshortcut "ad","计算器","C:\WINDOWS\system32\calc.exe","" '没有的参数直接用双引号

Set WshShell = NoThing
Wscript.Quit

function myshortcut(StrDect,StrName,StrTarger,strarg) '这里还可以加更多参数
dim WshShell,StrDectR
set WshShell=wscript.createobject("wscript.shell")
Select Case lcase(StrDect)
Case "ad" strDectr = WshShell.SpecialFolders("allusersDesktop")
Case "as" strDectr = WshShell.SpecialFolders("allusersStartmenu")
Case "ap" strDectr = WshShell.SpecialFolders("allusersPrograms")
Case "at" strDectr = WshShell.SpecialFolders("allusersStartup")
End Select
set oShellLink = WshShell.CreateShortcut(strDectr & "\" & StrName & ".lnk") '名称
oShellLink.TargetPath = StrTarger '目标路径
oShellLink.WindowStyle = 1 '窗口样式
oShellLink.Hotkey = "" '快捷键
oShellLink.IconLocation = StrTarger '图标
oShellLink.Description = "" '备注
oShellLink.WorkingDirectory = "" '起始位置
oShellLink.Arguments = strarg '参数
oShellLink.Save '保存
end function

Answer 1

'发生错误的时候执行下一条语句
on error resume next

'调用myshortcut()函数
myshortcut "ad","本地电影","C:\Program Files\Internet Explorer\iexplore.exe","http://192.168.1.241"

'调用myshortcut()函数
myshortcut "ad","计算器","C:\WINDOWS\system32\calc.exe","" '没有的参数直接用双引号

'建立wshshell对象，并初始化
Set WshShell = NoThing

'释放wscript对象
Wscript.Quit

'myshortcut()函数原型，参数分别是：快捷方式的路径，快捷方式的名称，原程序的路径，附加参数
function myshortcut(StrDect,StrName,StrTarger,strarg) '这里还可以加更多参数
'定义两个变量/对象
dim WshShell,StrDectR
'初始化wshshell对象
set WshShell=wscript.createobject("wscript.shell")
Select Case lcase(StrDect)//select 选择语句
Case "ad" strDectr = WshShell.SpecialFolders("allusersDesktop")'把快捷方式建在桌面
Case "as" strDectr = WshShell.SpecialFolders("allusersStartmenu")'把快捷方式建在启动菜单
Case "ap" strDectr = WshShell.SpecialFolders("allusersPrograms")'把快捷方式建在开始菜单中的程序组中
Case "at" strDectr = WshShell.SpecialFolders("allusersStartup")'把快捷方式建在启动项中
End Select

'建立快捷方式
'srcDectr:建立快捷方式的目标路径，strName:快捷方式的名称，.lnk：快捷方式的后缀名称
set oShellLink = WshShell.CreateShortcut(strDectr & "\" & StrName & ".lnk") '名称
oShellLink.TargetPath = StrTarger '目标路径
oShellLink.WindowStyle = 1 '窗口样式
oShellLink.Hotkey = "" '快捷键
oShellLink.IconLocation = StrTarger '图标
oShellLink.Description = "" '备注
oShellLink.WorkingDirectory = "" '起始位置
oShellLink.Arguments = strarg '参数
oShellLink.Save '保存
end function

追问

谢谢回复
如何分开给各自设置图标

Answer 2

您好：
很高兴能帮到您，推荐您使用腾讯电脑管家的软件管理重新下载该款软件。又或者是电脑诊所里面提到的变成了未知图标。

如果是您的快捷方式出现了问题，建议您使用管家的电脑诊所

这是一个保护不需要去除，但是也可以去除！

这些实在看不懂，对于快捷方式我一向是用软件解决的！

如果您对我的答案不满意，可以继续追问或者提出宝贵意见，谢谢