是以前发过的非zc表置开机启动模块改了一下v2.0发源码

琪诺兔

【非zc表置开机启动模块v2.0源码】

以前发过的模块添加了一点细节现在吧源码发出来有bug大家自己改改叭

【以下为源码】

  

子程序名	返回值类型	公开	备 注
程序_写开机启动_非zc表	逻辑型		为程序在win的启动目录创建一个快捷方式来达到开机启动的效果还可以附加启动命令行文本 比zc表操作安全稳定 成功返回 真 失败返回 假 如果有一个同样显示名的文件原来的将被替换
参数名	类 型	参考	可空	数组	备 注
显示名	文本型				空=提供的路径文件名 如 这是一个XXX的快捷方式
目标	文本型				空=当前程序本身 指向的文件全路径文件名 如 C:\001.txt 如果是目录就直接为 C:\001
参数文本	文本型				执行文件的参数
图标文件	文本型				图标文件的路径 可空 为空时用目标的第一个图标
运行方式	整数型				1=常规方式 3=最大化 7=最小化
备注	文本型				快方式的备注信息
快捷键	文本型				启动快捷方式的快捷键  如“Ctrl+Alt+Y”
是否zc到系统	逻辑型				默认=假 开机启动是否zc到系统 真=正常到系统 假=正常给当前用户

变量名	类 型	静态	数组	备 注
系统信息	系统信息
文件名	文本型

如果真 (是否为空 (目标))
目标 ＝ 取运行目录 () ＋ “\” ＋ 取程序名称 ( #文本型 )
如果真 (是否为空 (显示名))
如果真 (寻找文本 (目标, “\”, , 假) ≠ -1)
文件名 ＝ PathFindFileNameA (目标)
如果真 (取文本右边 (文件名, 1) ＝ “\”)
文件名 ＝ “”
显示名 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 取文本长度 (PathFindExtensionA (文件名)))

如果真 (是否zc到系统)
返回 (创建快捷方式_ (“C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\”, 显示名, 目标, 参数文本, 图标文件, 运行方式, 备注, 快捷键))
取系统信息 (系统信息)
返回 (创建快捷方式_ (“C:\Users\” ＋ 系统信息.当前用户 ＋ “\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\”, 显示名, 目标, 参数文本, 图标文件, 运行方式, 备注, 快捷键))

子程序名	返回值类型	公开	备 注
程序_取开机启动_非zc表	逻辑型		只对本模块的命令有效 是否开机启动 是返回 真 否返回 假
参数名	类 型	参考	可空	数组	备 注
显示名	文本型				空=当前程序文件名 创建文件时设置的显示文件名必须一致 无需后缀名
是否zc到系统	逻辑型				默认=假 要取的开机启动是否zc到系统 真=正常到系统 假=正常给当前用户

变量名	类 型	静态	数组	备 注
文件名	文本型
系统信息	系统信息

如果真 (是否为空 (显示名))
显示名 ＝ 取运行目录 () ＋ “\” ＋ 取程序名称 ( #文本型 )
如果真 (寻找文本 (显示名, “\”, , 假) ≠ -1)
文件名 ＝ PathFindFileNameA (显示名)
如果真 (取文本右边 (文件名, 1) ＝ “\”)
文件名 ＝ “”
显示名 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 取文本长度 (PathFindExtensionA (文件名)))
如果真 (寻找文本 (显示名, “.lnk”, , 真) ＝ -1)
显示名 ＝ 显示名 ＋ “.lnk”
如果真 (是否zc到系统)
返回 (PathFileExistsA (“C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\” ＋ 显示名))
取系统信息 (系统信息)
返回 (PathFileExistsA (“C:\Users\” ＋ 系统信息.当前用户 ＋ “\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\” ＋ 显示名))

子程序名	返回值类型	公开	备 注
程序_删除开机启动_非zc表	逻辑型		只对本模块的命令有效 删除win启动目录的文件 成功返回 真 失败返回 假
参数名	类 型	参考	可空	数组	备 注
显示名	文本型				空=当前程序文件名 创建文件时设置的显示文件名必须一致 无需后缀名
是否zc到系统	逻辑型				默认=假 要删除的开机启动是否zc到系统 真=正常到系统 假=正常给当前用户

变量名	类 型	静态	数组	备 注
文件名	文本型
系统信息	系统信息

如果真 (是否为空 (显示名))
显示名 ＝ 取运行目录 () ＋ “\” ＋ 取程序名称 ( #文本型 )
如果真 (寻找文本 (显示名, “\”, , 假) ≠ -1)
文件名 ＝ PathFindFileNameA (显示名)
如果真 (取文本右边 (文件名, 1) ＝ “\”)
文件名 ＝ “”
显示名 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 取文本长度 (PathFindExtensionA (文件名)))
如果真 (寻找文本 (显示名, “.lnk”, , 真) ＝ -1)
显示名 ＝ 显示名 ＋ “.lnk”
如果真 (是否zc到系统)
返回 (DeleteFileA (“C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\” ＋ 显示名))
取系统信息 (系统信息)
返回 (DeleteFileA (“C:\Users\” ＋ 系统信息.当前用户 ＋ “\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\” ＋ 显示名))

子程序名	返回值类型	公开	备 注
创建快捷方式_	逻辑型		创建桌面快捷方式 (成功返回真,失败返回假)
参数名	类 型	参考	可空	数组	备 注
指向	文本型				快捷方式要存储到的路径
lnk名称	文本型				如 这是一个XXX的快捷方式
目标	文本型				指向的文件全路径文件名 如 C:\001.txt 如果是目录就直接为 C:\001
参数文本	文本型				执行文件的参数
图标文件	文本型				图标文件的路径 可空 为空时用目标的第一个图标
运行方式	整数型				1=常规方式 3=最大化 7=最小化
备注	文本型				快方式的备注信息
快捷键	文本型				启动快捷方式的快捷键  如“Ctrl+Alt+Y”

变量名	类 型	静态	数组	备 注
工作目录	文本型
临时	文本型		0
对象	对象
i	整数型
返回值	逻辑型
文件名	文本型

如果真 (寻找文本 (lnk名称, “\”, , 假) ≠ -1)
文件名 ＝ PathFindFileNameA (lnk名称)
如果真 (取文本右边 (文件名, 1) ＝ “\”)
文件名 ＝ “”
lnk名称 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 取文本长度 (PathFindExtensionA (文件名)))
如果 (寻找文本 (lnk名称, “.lnk”, , 真) ＝ -1)
lnk名称 ＝ 指向 ＋ lnk名称 ＋ “.lnk”
lnk名称 ＝ 指向 ＋ lnk名称
如果真 (PathFileExistsA (lnk名称))
DeleteFileA (lnk名称)
临时 ＝ 分割文本 (目标, “\”, )
如果真 (取数组下标 (临时, ) ＜ 2)
返回 (假)
计次循环首 (取数组下标 (临时, ) － 1, i)
工作目录 ＝ 工作目录 ＋ 临时 [i] ＋ “\”
计次循环尾 ()
CoInitialize (0)
如果真 (对象.创建 (“WshShell”, “wshom.ocx”))
对象 ＝ 对象.对象型方法 (“CreateShortcut”, lnk名称)
返回值 ＝ 取反 (对象.是否为空 ())
如果真 (返回值 且 对象.写属性 (“TargetPath”, 目标))
对象.写属性 (“WorkingDirectory”, 工作目录)
如果 (是否为空 (图标文件))
判断 (PathFindExtensionA (目标) ＝ “”)
对象.写属性 (“IconLocation”, “SHELL32.dll,4”)
对象.写属性 (“IconLocation”, 目标 ＋ “,0”)

对象.写属性 (“IconLocation”, 图标文件)
对象.写属性 (“WindowStyle”, 运行方式)
对象.写属性 (“Description”, 备注)
对象.写属性 (“Arguments”, 参数文本)
对象.写属性 (“Hotkey”, 快捷键)
对象 ＝ 对象.对象型方法 (“Save”, )

CoUninitialize ()
返回 (返回值)

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 程序_写开机启动_非zc表, 逻辑型, 公开, 为程序在win的启动目录创建一个快捷方式来达到开机启动的效果还可以附加启动命令行文本 比zc表操作安全稳定 成功返回 真 失败返回 假 如果有一个同样显示名的文件原来的将被替换<br /> .参数 显示名, 文本型, 可空, 空=提供的路径文件名 如 这是一个XXX的快捷方式<br /> .参数 目标, 文本型, 可空, 空=当前程序本身 指向的文件全路径文件名 如 C:\001.txt 如果是目录就直接为 C:\001<br /> .参数 参数文本, 文本型, 可空, 执行文件的参数<br /> .参数 图标文件, 文本型, 可空, 图标文件的路径 可空 为空时用目标的第一个图标<br /> .参数 运行方式, 整数型, 可空, 1=常规方式 3=最大化 7=最小化<br /> .参数 备注, 文本型, 可空, 快方式的备注信息<br /> .参数 快捷键, 文本型, 可空, 启动快捷方式的快捷键  如“Ctrl+Alt+Y”<br /> .参数 是否zc到系统, 逻辑型, 可空, 默认=假 开机启动是否zc到系统 真=正常到系统 假=正常给当前用户<br /> .局部变量 系统信息, 系统信息<br /> .局部变量 文件名, 文本型<br /> <br /> .如果真 (是否为空 (目标))<br />     目标 ＝ 取运行目录 () ＋ “\” ＋ 取程序名称 (#文本型)<br /> .如果真结束<br /> .如果真 (是否为空 (显示名))<br />     .如果真 (寻找文本 (目标, “\”, , 假) ≠ -1)<br />         文件名 ＝ PathFindFileNameA (目标)<br />         .如果真 (取文本右边 (文件名, 1) ＝ “\”)<br />             文件名 ＝ “”<br />         .如果真结束<br />         显示名 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 取文本长度 (PathFindExtensionA (文件名)))<br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (是否zc到系统)<br />     返回 (创建快捷方式_ (“C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\”, 显示名, 目标, 参数文本, 图标文件, 运行方式, 备注, 快捷键))<br /> .如果真结束<br /> 取系统信息 (系统信息)<br /> 返回 (创建快捷方式_ (“C:\Users\” ＋ 系统信息.当前用户 ＋ “\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\”, 显示名, 目标, 参数文本, 图标文件, 运行方式, 备注, 快捷键))<br /> <br /> .子程序 程序_取开机启动_非zc表, 逻辑型, 公开, 只对本模块的命令有效 是否开机启动 是返回 真 否返回 假<br /> .参数 显示名, 文本型, 可空, 空=当前程序文件名 创建文件时设置的显示文件名必须一致 无需后缀名<br /> .参数 是否zc到系统, 逻辑型, 可空, 默认=假 要取的开机启动是否zc到系统 真=正常到系统 假=正常给当前用户<br /> .局部变量 文件名, 文本型<br /> .局部变量 系统信息, 系统信息<br /> <br /> .如果真 (是否为空 (显示名))<br />     显示名 ＝ 取运行目录 () ＋ “\” ＋ 取程序名称 (#文本型)<br /> .如果真结束<br /> .如果真 (寻找文本 (显示名, “\”, , 假) ≠ -1)<br />     文件名 ＝ PathFindFileNameA (显示名)<br />     .如果真 (取文本右边 (文件名, 1) ＝ “\”)<br />         文件名 ＝ “”<br />     .如果真结束<br />     显示名 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 取文本长度 (PathFindExtensionA (文件名)))<br /> .如果真结束<br /> .如果真 (寻找文本 (显示名, “.lnk”, , 真) ＝ -1)<br />     显示名 ＝ 显示名 ＋ “.lnk”<br /> .如果真结束<br /> .如果真 (是否zc到系统)<br />     返回 (PathFileExistsA (“C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\” ＋ 显示名))<br /> .如果真结束<br /> 取系统信息 (系统信息)<br /> 返回 (PathFileExistsA (“C:\Users\” ＋ 系统信息.当前用户 ＋ “\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\” ＋ 显示名))<br /> <br /> .子程序 程序_删除开机启动_非zc表, 逻辑型, 公开, 只对本模块的命令有效 删除win启动目录的文件 成功返回 真 失败返回 假<br /> .参数 显示名, 文本型, 可空, 空=当前程序文件名 创建文件时设置的显示文件名必须一致 无需后缀名<br /> .参数 是否zc到系统, 逻辑型, 可空, 默认=假 要删除的开机启动是否zc到系统 真=正常到系统 假=正常给当前用户<br /> .局部变量 文件名, 文本型<br /> .局部变量 系统信息, 系统信息<br /> <br /> .如果真 (是否为空 (显示名))<br />     显示名 ＝ 取运行目录 () ＋ “\” ＋ 取程序名称 (#文本型)<br /> .如果真结束<br /> .如果真 (寻找文本 (显示名, “\”, , 假) ≠ -1)<br />     文件名 ＝ PathFindFileNameA (显示名)<br />     .如果真 (取文本右边 (文件名, 1) ＝ “\”)<br />         文件名 ＝ “”<br />     .如果真结束<br />     显示名 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 取文本长度 (PathFindExtensionA (文件名)))<br /> .如果真结束<br /> .如果真 (寻找文本 (显示名, “.lnk”, , 真) ＝ -1)<br />     显示名 ＝ 显示名 ＋ “.lnk”<br /> .如果真结束<br /> .如果真 (是否zc到系统)<br />     返回 (DeleteFileA (“C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\” ＋ 显示名))<br /> .如果真结束<br /> 取系统信息 (系统信息)<br /> 返回 (DeleteFileA (“C:\Users\” ＋ 系统信息.当前用户 ＋ “\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\” ＋ 显示名))<br /> <br /> .子程序 创建快捷方式_, 逻辑型, 公开, 创建桌面快捷方式 (成功返回真,失败返回假)<br /> .参数 指向, 文本型, , 快捷方式要存储到的路径<br /> .参数 lnk名称, 文本型, , 如 这是一个XXX的快捷方式<br /> .参数 目标, 文本型, , 指向的文件全路径文件名 如 C:\001.txt 如果是目录就直接为 C:\001<br /> .参数 参数文本, 文本型, 可空, 执行文件的参数<br /> .参数 图标文件, 文本型, 可空, 图标文件的路径 可空 为空时用目标的第一个图标<br /> .参数 运行方式, 整数型, 可空, 1=常规方式 3=最大化 7=最小化<br /> .参数 备注, 文本型, 可空, 快方式的备注信息<br /> .参数 快捷键, 文本型, 可空, 启动快捷方式的快捷键  如“Ctrl+Alt+Y”<br /> .局部变量 工作目录, 文本型<br /> .局部变量 临时, 文本型, , "0"<br /> .局部变量 对象, 对象<br /> .局部变量 i, 整数型<br /> .局部变量 返回值, 逻辑型<br /> .局部变量 文件名, 文本型<br /> <br /> .如果真 (寻找文本 (lnk名称, “\”, , 假) ≠ -1)<br />     文件名 ＝ PathFindFileNameA (lnk名称)<br />     .如果真 (取文本右边 (文件名, 1) ＝ “\”)<br />         文件名 ＝ “”<br />     .如果真结束<br />     lnk名称 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 取文本长度 (PathFindExtensionA (文件名)))<br /> .如果真结束<br /> .如果 (寻找文本 (lnk名称, “.lnk”, , 真) ＝ -1)<br />     lnk名称 ＝ 指向 ＋ lnk名称 ＋ “.lnk”<br /> .否则<br />     lnk名称 ＝ 指向 ＋ lnk名称<br /> .如果结束<br /> .如果真 (PathFileExistsA (lnk名称))<br />     DeleteFileA (lnk名称)<br /> .如果真结束<br /> 临时 ＝ 分割文本 (目标, “\”, )<br /> .如果真 (取数组下标 (临时, ) ＜ 2)<br />     返回 (假)<br /> .如果真结束<br /> .计次循环首 (取数组下标 (临时, ) － 1, i)<br />     工作目录 ＝ 工作目录 ＋ 临时 <i> ＋ “\”<br /> .计次循环尾 ()<br /> CoInitialize (0)<br /> .如果真 (对象.创建 (“WshShell”, “wshom.ocx”))<br />     对象 ＝ 对象.对象型方法 (“CreateShortcut”, lnk名称)<br />     返回值 ＝ 取反 (对象.是否为空 ())<br />     .如果真 (返回值 且 对象.写属性 (“TargetPath”, 目标))<br />         对象.写属性 (“WorkingDirectory”, 工作目录)<br />         .如果 (是否为空 (图标文件))<br />             .判断开始 (PathFindExtensionA (目标) ＝ “”)<br />                 对象.写属性 (“IconLocation”, “SHELL32.dll,4”)<br />             .默认<br />                 对象.写属性 (“IconLocation”, 目标 ＋ “,0”)<br />             .判断结束<br /> <br />         .否则<br />             对象.写属性 (“IconLocation”, 图标文件)<br />         .如果结束<br />         对象.写属性 (“WindowStyle”, 运行方式)<br />         对象.写属性 (“Description”, 备注)<br />         对象.写属性 (“Arguments”, 参数文本)<br />         对象.写属性 (“Hotkey”, 快捷键)<br />         对象 ＝ 对象.对象型方法 (“Save”, )<br />     .如果真结束<br /> <br /> .如果真结束<br /> CoUninitialize ()<br /> 返回 (返回值)

【以下是DLL声明】

  

DLL命令名	返回值类型	公开	备 注
DeleteFileA	逻辑型
DLL库文件名:
kernel32
在DLL库中对应命令名:
DeleteFileA
参数名	类 型	传址	数组	备 注
lpFileName	文本型			0

DLL命令名	返回值类型	公开	备 注
PathFindFileNameA	文本型		文件路径取文件名
DLL库文件名:
shlwapi.dll
在DLL库中对应命令名:
PathFindFileNameA
参数名	类 型	传址	数组	备 注
pszPath	文本型			要取文件名的文件路径

DLL命令名	返回值类型	公开	备 注
PathFindExtensionA	文本型		获取绝对路径或文件名中的文件扩展名。如果扩展名找到则返回pszPath字符串中“.”所在地址，否则返回空字符结尾地址。
DLL库文件名:
shlwapi.dll
在DLL库中对应命令名:
PathFindExtensionA
参数名	类 型	传址	数组	备 注
pszPath	文本型			指向以0结尾，最大长度为MAX_PATH文件路径字符串指针。备注：一个有效的扩展名是不包括空格的。

DLL命令名	返回值类型	公开	备 注
CoInitialize	整数型
DLL库文件名:
ole32
在DLL库中对应命令名:
CoInitialize
参数名	类 型	传址	数组	备 注
pvReserved	整数型			0

DLL命令名	返回值类型	公开	备 注
CoUninitialize	整数型
DLL库文件名:
Ole32
在DLL库中对应命令名:
CoUninitialize
参数名	类 型	传址	数组	备 注

DLL命令名	返回值类型	公开	备 注
PathFileExistsA	逻辑型
DLL库文件名:
shlwapi
在DLL库中对应命令名:
PathFileExistsA
参数名	类 型	传址	数组	备 注
pszPath	文本型			0

.版本 2<br /> <br /> .DLL命令 DeleteFileA, 逻辑型, "kernel32", "DeleteFileA"<br />     .参数 lpFileName, 文本型, , 0<br /> <br /> .DLL命令 PathFindFileNameA, 文本型, "shlwapi.dll", "PathFindFileNameA", , 文件路径取文件名<br />     .参数 pszPath, 文本型, , 要取文件名的文件路径<br /> <br /> .DLL命令 PathFindExtensionA, 文本型, "shlwapi.dll", "PathFindExtensionA", , 获取绝对路径或文件名中的文件扩展名。如果扩展名找到则返回pszPath字符串中“.”所在地址，否则返回空字符结尾地址。<br />     .参数 pszPath, 文本型, , 指向以0结尾，最大长度为MAX_PATH文件路径字符串指针。备注：一个有效的扩展名是不包括空格的。<br /> <br /> .DLL命令 CoInitialize, 整数型, "ole32", "CoInitialize"<br />     .参数 pvReserved, 整数型, , 0<br /> <br /> .DLL命令 CoUninitialize, 整数型, "Ole32", "CoUninitialize"<br /> <br /> .DLL命令 PathFileExistsA, 逻辑型, "shlwapi", "PathFileExistsA"<br />     .参数 pszPath, 文本型, , 0

【最后希望本模块可以为你的出现添加一些色彩】

1300886755

感谢分享

duanyijun

收藏收藏，学习下！

meiqingbo

支持谢谢分享

champion

champion

天之痕云之遥

感谢分享！！！！

jiajunchao

感谢分享

martinxm

需要
需要
需要

3212867761

666666666666666666