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

hmyroot

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

  

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

创建程序快捷方式 (“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

新版本

  

子程序名	返回值类型	公开	备 注
系统_创建程序或文件快捷方式	逻辑型		通过调用易语言对象方法创建程序或文件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)

徐小白

学习一下

hmyroot

qiqixs 发表于 2022-6-8 18:54
这个可以是可以，不过有的软件有特殊处理，快捷的其实目标位置要怎么修改 ...

能否截图看看，不明白你说的特殊处理，莫非是Excel那种快捷方式？那种要改注 册表CLSID

qiqixs

hmyroot 发表于 2019-11-22 14:26
新版本
[e=4].版本 2

这个可以是可以，不过有的软件有特殊处理，快捷的其实目标位置要怎么修改

sampo

支持开源~！感谢分享

TBit

谢谢楼主分享