易语言对象方法调用VBS命令创建快捷方式 LNK

hmyroot · 发表于 2019-11-15 17:08:16

本帖最后由 hmyroot 于 2019-11-15 17:23 编辑

易语言对象方法调用VBS命令创建快捷方式，使用方法：

创建程序快捷方式 (“C:\Users\Administrator\Desktop\asd.exe”)

子程序名	返回值类型	公开	备注
创建程序或文件快捷方式	逻辑型		通过调用易语言对象方法创建程序或文件lnk快捷方式,调用VBS命令
参数名	类型	参考	可空	数组	备注
程序或文件路径	文本型				必须指向存在的程序或文件,例如:(c:\abc.exe 或 c:\abc.txt)
快捷方式输出目录	文本型				创建的快捷方式输出目录,例如:(d:\),默认使用程序自身目录,留空则为默认值
快捷方式文件名称	文本型				快捷方式名称,不用带lnk扩展名,例如:(abc),默认使用程序自身名称,留空则为默认值

变量名	类型	静态	数组	备注
objShell	对象
objShellLink	对象
Returns	逻辑型
提取程序目录	文本型
提取文件名称一	文本型
提取文件名称二	文本型

Returns ＝假

如果真 (文件是否存在 (程序或文件路径) ＝假)

返回 (假)
提取程序目录＝取文本左边 (程序或文件路径, 倒找文本 (程序或文件路径, “\”, , 假))
提取文件名称一＝取文本右边 (程序或文件路径, 取文本长度 (程序或文件路径) －取文本长度 (提取程序目录))
提取文件名称二＝取文本左边 (提取文件名称一, 倒找文本 (提取文件名称一, “.”, , 假) － 1)

如果真 (是否为空 (快捷方式输出目录) 或快捷方式输出目录＝ “”)

如果真 (是否为空 (快捷方式文件名称) 或快捷方式文件名称＝ “”)

快捷方式文件名称＝提取文件名称二
objShell.创建 (“Wscript.Shell”, )  ' 创建对象
objShellLink ＝ objShell.对象型方法 (“CreateShortcut”, 快捷方式输出目录＋快捷方式文件名称＋ “.lnk”)  ' 写出lnk文件
objShellLink.写属性 (“TargetPath”, 程序或文件路径)  ' 程序文件
' objShellLink.写属性 (“Arguments”, “参数”)  ' 参数,没有请留空
objShellLink.对象型方法 (“Save”, )  ' 保存对象

如果真 (文件是否存在 (快捷方式输出目录＋快捷方式文件名称＋ “.lnk”))

Returns ＝真
返回 (Returns)

.版本 2<br />
<br />
.子程序 创建程序或文件快捷方式, 逻辑型, , 通过调用易语言对象方法创建程序或文件lnk快捷方式,调用VBS命令<br />
.参数 程序或文件路径, 文本型, , 必须指向存在的程序或文件,例如:(c:\abc.exe 或 c:\abc.txt)<br />
.参数 快捷方式输出目录, 文本型, 可空, 创建的快捷方式输出目录,例如:(d:\),默认使用程序自身目录,留空则为默认值<br />
.参数 快捷方式文件名称, 文本型, 可空, 快捷方式名称,不用带lnk扩展名,例如:(abc),默认使用程序自身名称,留空则为默认值<br />
.局部变量 objShell, 对象<br />
.局部变量 objShellLink, 对象<br />
.局部变量 Returns, 逻辑型<br />
.局部变量 提取程序目录, 文本型<br />
.局部变量 提取文件名称一, 文本型<br />
.局部变量 提取文件名称二, 文本型<br />
<br />
Returns ＝ 假<br />
.如果真 (文件是否存在 (程序或文件路径) ＝ 假)<br />
    返回 (假)<br />
.如果真结束<br />
提取程序目录 ＝ 取文本左边 (程序或文件路径, 倒找文本 (程序或文件路径, “\”, , 假))<br />
提取文件名称一 ＝ 取文本右边 (程序或文件路径, 取文本长度 (程序或文件路径) － 取文本长度 (提取程序目录))<br />
提取文件名称二 ＝ 取文本左边 (提取文件名称一, 倒找文本 (提取文件名称一, “.”, , 假) － 1)<br />
.如果真 (是否为空 (快捷方式输出目录) 或 快捷方式输出目录 ＝ “”)<br />
    快捷方式输出目录 ＝ 提取程序目录<br />
.如果真结束<br />
.如果真 (是否为空 (快捷方式文件名称) 或 快捷方式文件名称 ＝ “”)<br />
    快捷方式文件名称 ＝ 提取文件名称二<br />
.如果真结束<br />
objShell.创建 (“Wscript.Shell”, )  ' 创建对象<br />
objShellLink ＝ objShell.对象型方法 (“CreateShortcut”, 快捷方式输出目录 ＋ 快捷方式文件名称 ＋ “.lnk”)  ' 写出lnk文件<br />
objShellLink.写属性 (“TargetPath”, 程序或文件路径)  ' 程序文件<br />
' objShellLink.写属性 (“Arguments”, “参数”)  ' 参数,没有请留空<br />
objShellLink.对象型方法 (“Save”, )  ' 保存对象<br />
.如果真 (文件是否存在 (快捷方式输出目录 ＋ 快捷方式文件名称 ＋ “.lnk”))<br />
    Returns ＝ 真<br />
.如果真结束<br />
返回 (Returns)

hmyroot · 发表于 2019-11-22 14:26:51

新版本

子程序名	返回值类型	公开	备注
系统_创建程序或文件快捷方式	逻辑型		通过调用易语言对象方法创建程序或文件lnk快捷方式,调用VBS命令,成功返回真
参数名	类型	参考	可空	数组	备注
程序或文件路径	文本型				必须指向存在的程序或文件,例如:(c:\abc.exe 或 c:\abc.txt)
快捷方式输出目录	文本型				创建的快捷方式-输出目录,例如:(d:\),默认使用程序自身目录,留空则为默认值
快捷方式文件名称	文本型				快捷方式-名称,不用带lnk扩展名,例如:(abc),默认使用程序自身名称,留空则为默认值
快捷方式图标	文本型				快捷方式-图标,没有请留空
快捷方式参数	文本型				快捷方式-参数,没有请留空
快捷方式备注	文本型				快捷方式-备注,没有请留空
快捷方式运行窗口	整数型				快捷方式-运行窗口,填1.常规窗口、填3.最大化、填7.最小化,留空为常规窗口

变量名	类型	静态	数组	备注
objShell	对象
objShellLink	对象
Returns	逻辑型
提取程序目录	文本型			c:\abc.exe
提取文件名称一	文本型			abc.exe
提取文件名称二	文本型			abc

Returns ＝假

如果真 (文件是否存在 (程序或文件路径) ＝假)

返回 (假)
提取程序目录＝取文本左边 (程序或文件路径, 倒找文本 (程序或文件路径, “\”, , 假))
提取文件名称一＝取文本右边 (程序或文件路径, 取文本长度 (程序或文件路径) －取文本长度 (提取程序目录))
提取文件名称二＝取文本左边 (提取文件名称一, 倒找文本 (提取文件名称一, “.”, , 假) － 1)

判断 (快捷方式运行窗口＝ 1 或快捷方式运行窗口＝ 3 或快捷方式运行窗口＝ 7)

快捷方式运行窗口＝ 1

如果真 (是否为空 (快捷方式输出目录) 或快捷方式输出目录＝ “”)

如果真 (是否为空 (快捷方式文件名称) 或快捷方式文件名称＝ “”)

快捷方式文件名称＝提取文件名称二
objShell.创建 (“Wscript.Shell”, )  ' 创建对象
objShellLink ＝ objShell.对象型方法 (“CreateShortcut”, 快捷方式输出目录＋快捷方式文件名称＋ “.lnk”)  ' 写出lnk文件
objShellLink.写属性 (“TargetPath”, 程序或文件路径)  ' 程序文件
objShellLink.写属性 (“Arguments”, 快捷方式参数)  ' 参数,没有请留空
objShellLink.写属性 (“WorkingDirectory”, 取文本左边 (快捷方式输出目录, 取文本长度 (快捷方式输出目录) － 1))  ' 起始位置
objShellLink.写属性 (“Description”, 快捷方式备注)  ' 备注,没有请留空
objShellLink.写属性 (“IconLocation”, 快捷方式图标)  ' 图标,没有请留空
objShellLink.写属性 (“WindowStyle”, 快捷方式运行窗口)  ' 运行窗口,没有请留空
objShellLink.对象型方法 (“Save”, )  ' 保存对象

如果真 (文件是否存在 (快捷方式输出目录＋快捷方式文件名称＋ “.lnk”))

Returns ＝真
返回 (Returns)

.版本 2<br />
<br />
.子程序 系统_创建程序或文件快捷方式, 逻辑型, 公开, 通过调用易语言对象方法创建程序或文件lnk快捷方式,调用VBS命令,成功返回真<br />
.参数 程序或文件路径, 文本型, , 必须指向存在的程序或文件,例如:(c:\abc.exe 或 c:\abc.txt)<br />
.参数 快捷方式输出目录, 文本型, 可空, 创建的快捷方式-输出目录,例如:(d:\),默认使用程序自身目录,留空则为默认值<br />
.参数 快捷方式文件名称, 文本型, 可空, 快捷方式-名称,不用带lnk扩展名,例如:(abc),默认使用程序自身名称,留空则为默认值<br />
.参数 快捷方式图标, 文本型, 可空, 快捷方式-图标,没有请留空<br />
.参数 快捷方式参数, 文本型, 可空, 快捷方式-参数,没有请留空<br />
.参数 快捷方式备注, 文本型, 可空, 快捷方式-备注,没有请留空<br />
.参数 快捷方式运行窗口, 整数型, 可空, 快捷方式-运行窗口,填1.常规窗口、填3.最大化、填7.最小化,留空为常规窗口<br />
.局部变量 objShell, 对象<br />
.局部变量 objShellLink, 对象<br />
.局部变量 Returns, 逻辑型<br />
.局部变量 提取程序目录, 文本型, , , c:\abc.exe<br />
.局部变量 提取文件名称一, 文本型, , , abc.exe<br />
.局部变量 提取文件名称二, 文本型, , , abc<br />
<br />
Returns ＝ 假<br />
.如果真 (文件是否存在 (程序或文件路径) ＝ 假)<br />
    返回 (假)<br />
.如果真结束<br />
提取程序目录 ＝ 取文本左边 (程序或文件路径, 倒找文本 (程序或文件路径, “\”, , 假))<br />
提取文件名称一 ＝ 取文本右边 (程序或文件路径, 取文本长度 (程序或文件路径) － 取文本长度 (提取程序目录))<br />
提取文件名称二 ＝ 取文本左边 (提取文件名称一, 倒找文本 (提取文件名称一, “.”, , 假) － 1)<br />
.判断开始 (快捷方式运行窗口 ＝ 1 或 快捷方式运行窗口 ＝ 3 或 快捷方式运行窗口 ＝ 7)<br />
<br />
.默认<br />
    快捷方式运行窗口 ＝ 1<br />
.判断结束<br />
.如果真 (是否为空 (快捷方式输出目录) 或 快捷方式输出目录 ＝ “”)<br />
    快捷方式输出目录 ＝ 提取程序目录<br />
.如果真结束<br />
.如果真 (是否为空 (快捷方式文件名称) 或 快捷方式文件名称 ＝ “”)<br />
    快捷方式文件名称 ＝ 提取文件名称二<br />
.如果真结束<br />
objShell.创建 (“Wscript.Shell”, )  ' 创建对象<br />
objShellLink ＝ objShell.对象型方法 (“CreateShortcut”, 快捷方式输出目录 ＋ 快捷方式文件名称 ＋ “.lnk”)  ' 写出lnk文件<br />
objShellLink.写属性 (“TargetPath”, 程序或文件路径)  ' 程序文件<br />
objShellLink.写属性 (“Arguments”, 快捷方式参数)  ' 参数,没有请留空<br />
objShellLink.写属性 (“WorkingDirectory”, 取文本左边 (快捷方式输出目录, 取文本长度 (快捷方式输出目录) － 1))  ' 起始位置<br />
objShellLink.写属性 (“Description”, 快捷方式备注)  ' 备注,没有请留空<br />
objShellLink.写属性 (“IconLocation”, 快捷方式图标)  ' 图标,没有请留空<br />
objShellLink.写属性 (“WindowStyle”, 快捷方式运行窗口)  ' 运行窗口,没有请留空<br />
objShellLink.对象型方法 (“Save”, )  ' 保存对象<br />
.如果真 (文件是否存在 (快捷方式输出目录 ＋ 快捷方式文件名称 ＋ “.lnk”))<br />
    Returns ＝ 真<br />
.如果真结束<br />
返回 (Returns)