恒云雨驱动控制易语言模块源码

资源介绍：

恒云雨驱动控制易语言模块源码例程程序调用API函数和模块，实现驱动控制操作。

资源作者：

易语言编程网

资源界面：

.版本 2

.程序集 程序集
.程序集变量 hDriver, 整数型

.子程序 _启动子程序, 整数型

返回 (0)

.子程序 获取通讯, 整数型, 公开
.参数 序号, 整数型
.参数 类型, 整数型, 可空
.参数 模式, 整数型, 可空
.参数 权限, 整数型, 可空

.判断开始 (类型 ＝ 0 且 模式 ＝ 0 且 权限 ＝ 0)
    返回 (左移 (#FILE_DEVICE_UNKNOWN, 16) ＋ 左移 (#FILE_READ_WRITE, 14) ＋ 左移 (序号, 2) ＋ #METHOD_BUFFERED)
.默认
    返回 (左移 (类型, 16) ＋ 左移 (权限, 14) ＋ 左移 (序号, 2) ＋ 模式)
.判断结束


.子程序 加载驱动, 整数型, 公开
.参数 驱动名称, 文本型
.参数 显示名称, 文本型, 可空
.参数 链接名称, 文本型, 可空
.参数 驱动路径, 文本型
.参数 启动方式, 整数型, 可空, 默认空=手动 ;1=引导 2=自动 3=手动 4=禁用 请不要随意更改这个值 否则一旦驱动有错误 开机就会永久蓝屏 直到重装系统

返回 (控制驱动 (驱动名称, 显示名称, 链接名称, 驱动路径, -2, 选择 (是否为空 (启动方式) ＝ 真, 3, 启动方式)))

.子程序 启动驱动, 整数型, 公开
.参数 驱动名称, 文本型
.参数 显示名称, 文本型, 可空
.参数 链接名称, 文本型, 可空
.参数 驱动路径, 文本型, 可空

返回 (控制驱动 (驱动名称, 显示名称, 链接名称, 驱动路径, -3))

.子程序 停止驱动, 整数型, 公开
.参数 驱动名称, 文本型
.参数 显示名称, 文本型, 可空
.参数 链接名称, 文本型, 可空
.参数 驱动路径, 文本型, 可空

返回 (控制驱动 (驱动名称, 显示名称, 链接名称, 驱动路径, -4))

.子程序 删除驱动, 整数型, 公开
.参数 驱动名称, 文本型
.参数 显示名称, 文本型, 可空
.参数 链接名称, 文本型, 可空
.参数 驱动路径, 文本型, 可空

返回 (控制驱动 (驱动名称, 显示名称, 链接名称, 驱动路径, -5))
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 创建连接, 整数型, 公开
.参数 驱动名称, 文本型, 可空
.参数 显示名称, 文本型, 可空
.参数 链接名称, 文本型, 可空
.参数 驱动路径, 文本型, 可空

返回 (控制驱动 (驱动名称, 显示名称, 链接名称, 驱动路径, -6))

.子程序 获取服务, 整数型, 公开
.参数 驱动名称, 文本型, 可空
.参数 显示名称, 文本型, 可空
.参数 链接名称, 文本型, 可空
.参数 驱动路径, 文本型, 可空

返回 (控制驱动 (驱动名称, 显示名称, 链接名称, 驱动路径, -7))

.子程序 销毁连接, 整数型, 公开
.参数 驱动名称, 文本型, 可空
.参数 显示名称, 文本型, 可空
.参数 链接名称, 文本型, 可空
.参数 驱动路径, 文本型, 可空
.参数 关闭句柄, 整数型

返回 (控制驱动 (驱动名称, 显示名称, 链接名称, 驱动路径, 关闭句柄))

.子程序 连接驱动, 整数型, 公开
.参数 驱动句柄, 整数型
.参数 驱动序号, 整数型
.参数 输入指针, 整数型
.参数 输入长度, 整数型
.参数 输出指针, 整数型, 参考
.参数 输出长度, 整数型
.参数 返回长度, 整数型, 参考
.局部变量 OVERLAPPED, OVERLAPPED
.局部变量 ret, 整数型

.如果真 (驱动句柄 ＝ -1 或 驱动句柄 ＝ 0)
    驱动句柄 ＝ hDriver
.如果真结束
ret ＝ 驱动通讯 (驱动句柄, 驱动序号, 输入指针, 输入长度, 读整数型指针 (输出指针), 输出长度, 读整数型指针 (返回长度), OVERLAPPED)
.如果 (ret ＝ 0)
    返回 (-1)
.否则
    返回 (ret)
.如果结束


.子程序 连接驱动Ex, 整数型, 公开
.参数 驱动句柄, 整数型
.参数 驱动序号, 整数型
.参数 输入指针, 整数型
.参数 输入长度, 整数型
.参数 输出指针, 整数型
.参数 输出长度, 整数型
.参数 返回长度, 整数型
.局部变量 OVERLAPPED, OVERLAPPED
.局部变量 ret, 整数型

.如果真 (驱动句柄 ＝ -1 或 驱动句柄 ＝ 0)
    驱动句柄 ＝ hDriver
.如果真结束
ret ＝ 驱动通讯 (驱动句柄, 驱动序号, 输入指针, 输入长度, 输出指针, 输出长度, 返回长度, OVERLAPPED)
.如果 (ret ＝ 0)
    返回 (-1)
.否则
    返回 (ret)
.如果结束
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 是否x64, 逻辑型, 公开
.局部变量 lpBuffer, 文本型
.局部变量 ret, 整数型
.局部变量 i, 整数型, , "2"

lpBuffer ＝ 取空白文本 (255)
i [1] ＝ 读文本型指针 (lpBuffer)
i [2] ＝ 255
ret ＝ 执行函数 (“GetSystemWow64DirectoryA”, i)
返回 (ret ＞ 0)

.子程序 控制驱动, 整数型
.参数 ServName, 文本型
.参数 XianName, 文本型
.参数 LinkName, 文本型
.参数 驱动路径, 文本型
.参数 控制类型, 整数型
.参数 启动类型, 整数型, 可空
.局部变量 hSC
.局部变量 hService
.局部变量 Service, SERVICE_STATUS
.局部变量 Driver, 文本型
.局部变量 Temp, 小数型
.局部变量 ret

Temp ＝ 倒找文本 (驱动路径, “”, , 假)
Driver ＝ 取文本中间 (驱动路径, Temp ＋ 1, 取文本长度 (驱动路径) － Temp － 4)
hSC ＝ 打开服务句柄 (0, 0, 2)
.如果真 (hSC ＝ 0)
    返回 (ret)
.如果真结束
' 本源码来自三叶资源网(www.sanye.cx)
.如果真 (控制类型 ＝ -2)
    .如果真 (启动类型 ＝ 0)
        启动类型 ＝ 3
    .如果真结束
    hService ＝ 创建服务 (hSC, ServName, XianName, 16, 1, 启动类型, 0, 驱动路径, 0, 0, 0, 0, 0)
    .如果真 (hService ≠ 0)
        ret ＝ hService
        关闭服务句柄 (hService)
    .如果真结束

.如果真结束

.如果真 (控制类型 ＝ -3)
    hService ＝ 打开服务 (hSC, ServName, 16)
    .如果真 (hService ≠ 0)
        ret ＝ 设置服务 (hService, 0, 0)
        关闭服务句柄 (hService)
    .如果真结束

.如果真结束

.如果真 (控制类型 ＝ -4)
    hService ＝ 打开服务 (hSC, ServName, 65568)
    .如果真 (hService ≠ 0)
        ret ＝ 控制服务 (hService, 1, Service)
        关闭服务句柄 (hService)
    .如果真结束

.如果真结束

.如果真 (控制类型 ＝ -5)
    hService ＝ 打开服务 (hSC, ServName, 65568)
    .如果真 (hService ≠ 0)
        控制服务 (hService, 1, Service)
        ret ＝ 删除服务 (hService)
        关闭服务句柄 (hService)
    .如果真结束

.如果真结束

.如果真 (控制类型 ＝ -6)
    ret ＝ 创建文件 (“\.\” ＋ LinkName, 3221225472, 0, 0, 3, 0, 0)
    返回 (ret)
.如果真结束

.如果真 (控制类型 ＝ -7)
    ret ＝ 获取文件 (“\.\” ＋ LinkName, 3)
    返回 (ret)
.如果真结束

.如果真 (控制类型 ＞ 0)
    ret ＝ 关闭服务 (控制类型)
    返回 (ret)
.如果真结束

关闭服务句柄 (hSC)
返回 (ret)

.子程序 打开服务句柄, 整数型
.参数 a, 整数型
.参数 b, 整数型
.参数 c, 整数型
.局部变量 参数组, 整数型, , "3"

参数组 [1] ＝ a
参数组 [2] ＝ b
参数组 [3] ＝ c
返回 (执行函数 (“OpenSCManagerA”, 参数组, ))

.子程序 打开服务, 整数型
.参数 a, 整数型
.参数 b, 文本型
.参数 c, 整数型
.局部变量 参数组, 整数型, , "3"

参数组 [1] ＝ a
参数组 [2] ＝ 读文本型指针 (b)
参数组 [3] ＝ c
返回 (执行函数 (“OpenServiceA”, 参数组, ))

.子程序 设置服务, 整数型
.参数 a, 整数型
.参数 b, 整数型
.参数 c, 整数型
.局部变量 参数组, 整数型, , "3"

参数组 [1] ＝ a
参数组 [2] ＝ b
参数组 [3] ＝ c
返回 (执行函数 (“StartServiceA”, 参数组, ))

.子程序 控制服务, 整数型
.参数 a, 整数型
.参数 b, 整数型
.参数 c, SERVICE_STATUS
.局部变量 参数组, 整数型, , "3"

参数组 [1] ＝ a
参数组 [2] ＝ b
参数组 [3] ＝ 取SERVICE_STATUS指针 (c, c, 0)
返回 (执行函数 (“ControlService”, 参数组, ))

.子程序 驱动通讯, 整数型
.参数 a
.参数 b
.参数 c
.参数 d
.参数 e
.参数 f
.参数 g
.参数 h, OVERLAPPED
.局部变量 参数组, 整数型, , "8"

参数组 [1] ＝ a
参数组 [2] ＝ b
参数组 [3] ＝ c
参数组 [4] ＝ d
参数组 [5] ＝ e
参数组 [6] ＝ f
参数组 [7] ＝ g
参数组 [8] ＝ 取OVERLAPPED指针 (h, h, 0)
返回 (执行函数 (“DeviceIoControl”, 参数组, ))

.子程序 删除服务, 整数型
.参数 a, 整数型
.局部变量 参数组, 整数型, , "1"

参数组 [1] ＝ a
返回 (执行函数 (“DeleteService”, 参数组, ))

.子程序 创建文件, 整数型
.参数 a, 文本型
.参数 b, 整数型
.参数 c, 整数型
.参数 d, 整数型
.参数 e, 整数型
.参数 f, 整数型
.参数 g, 整数型
.局部变量 参数组, 整数型, , "7"

参数组 [1] ＝ 读文本型指针 (a)
参数组 [2] ＝ b
参数组 [3] ＝ c
参数组 [4] ＝ d
参数组 [5] ＝ e
参数组 [6] ＝ f
参数组 [7] ＝ g
返回 (执行函数 (“CreateFileA”, 参数组, ))
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 获取文件, 整数型
.参数 a, 文本型
.参数 c, 整数型
.局部变量 b, 文本型
.局部变量 参数组, 整数型, , "3"

b ＝ 取空白文本 (142)
参数组 [1] ＝ 读文本型数据 (a)
参数组 [2] ＝ 取OFSTRUCT (b)
参数组 [3] ＝ c
返回 (执行函数 (“OpenFile”, 参数组))

.子程序 创建服务, 整数型
.参数 a, 整数型
.参数 b, 文本型
.参数 c, 文本型
.参数 d, 整数型
.参数 e, 整数型
.参数 f, 整数型
.参数 g, 整数型
.参数 h, 文本型
.参数 i, 整数型
.参数 j, 整数型
.参数 k, 整数型
.参数 l, 整数型
.参数 m, 整数型
.局部变量 参数组, 整数型, , "13"

参数组 [1] ＝ a
参数组 [2] ＝ 读文本型指针 (b)
参数组 [3] ＝ 读文本型指针 (c)
参数组 [4] ＝ d
参数组 [5] ＝ e
参数组 [6] ＝ f
参数组 [7] ＝ g
参数组 [8] ＝ 读文本型指针 (h)
参数组 [9] ＝ i
参数组 [10] ＝ j
参数组 [11] ＝ k
参数组 [12] ＝ l
参数组 [13] ＝ m
返回 (执行函数 (“CreateServiceA”, 参数组, ))

.子程序 关闭服务句柄, 整数型
.参数 a, 整数型
.局部变量 参数组, 整数型, , "1"

参数组 [1] ＝ a
返回 (执行函数 (“CloseServiceHandle”, 参数组, ))
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 关闭服务, 整数型
.参数 a, 整数型
.局部变量 参数组, 整数型, , "1"

参数组 [1] ＝ a
返回 (执行函数 (“CloseHandle”, 参数组, ))

.子程序 取OFSTRUCT, 整数型
.参数 OFSTRUCT, 文本型

置入代码 (#x2)
返回 (0)

资源下载：