|

新版本
|
系统_创建程序或文件快捷方式 | 逻辑型 | | |
程序或文件路径 | 文本型 | | | | 快捷方式输出目录 | 文本型 | | | | 快捷方式文件名称 | 文本型 | | | | 快捷方式图标 | 文本型 | | | | 快捷方式参数 | 文本型 | | | | 快捷方式备注 | 文本型 | | | | 快捷方式运行窗口 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | objShell | 对象 | | | objShellLink | 对象 | | | Returns | 逻辑型 | | | 提取程序目录 | 文本型 | | | 提取文件名称一 | 文本型 | | | 提取文件名称二 | 文本型 | | |
Returns = 假 如果真 (文件是否存在 (程序或文件路径 ) = 假) 返回 (假)提取程序目录 = 取文本左边 (程序或文件路径, 倒找文本 (程序或文件路径, “\”, , 假))提取文件名称一 = 取文本右边 (程序或文件路径, 取文本长度 (程序或文件路径 ) - 取文本长度 (提取程序目录 )) 提取文件名称二 = 取文本左边 (提取文件名称一, 倒找文本 (提取文件名称一, “.”, , 假) - 1 ) 判断 (快捷方式运行窗口 = 1 或 快捷方式运行窗口 = 3 或 快捷方式运行窗口 = 7 )  快捷方式运行窗口 = 1 如果真 (是否为空 (快捷方式输出目录 ) 或 快捷方式输出目录 = “”) 快捷方式输出目录 = 提取程序目录 如果真 (是否为空 (快捷方式文件名称 ) 或 快捷方式文件名称 = “”) 快捷方式文件名称 = 提取文件名称二 objShell.创建 (“Wscript.Shell”, )
objShellLink = objShell. 对象型方法 (“CreateShortcut”, 快捷方式输出目录 + 快捷方式文件名称 + “.lnk”) objShellLink. 写属性 (“TargetPath”, 程序或文件路径 ) objShellLink. 写属性 (“Arguments”, 快捷方式参数 ) objShellLink. 写属性 (“WorkingDirectory”, 取文本左边 (快捷方式输出目录, 取文本长度 (快捷方式输出目录 ) - 1 )) objShellLink. 写属性 (“Description”, 快捷方式备注 ) objShellLink. 写属性 (“IconLocation”, 快捷方式图标 ) objShellLink. 写属性 (“WindowStyle”, 快捷方式运行窗口 ) objShellLink. 对象型方法 (“Save”, ) 如果真 (文件是否存在 (快捷方式输出目录 + 快捷方式文件名称 + “.lnk”))  Returns = 真 返回 (Returns)
|
|