下面是代码 模块及驱动请在附件下载
//函数
.版本 2
.DLL命令 GetWindowsDirectory, 整数型, "kernel32.dll", "GetWindowsDirectoryA"
.参数 缓冲区, 文本型
.参数 缓冲区大小, 整数型
.DLL命令 OpenProcess, 整数型, , "OpenProcess"
.参数 dwDesiredAccess, 整数型
.参数 bInheritHandle, 逻辑型
.参数 dwProcessId, 整数型
.DLL命令 GetCurrentProcessId, 整数型, "kernel32.dll", "GetCurrentProcessId", 公开, 公开
/
/驱动进程开
.版本 2
cszDriverName ＝ “Carrol”
cszDriverFullPath ＝ 取系统目录 () ＋ “\system32\drivers\” ＋ cszDriverName ＋ “.sys”'随机驱动名(SYSTEM32目录)
输出调试文本 (cszDriverFullPath)
.如果真 (取反 (文件是否存在 (cszDriverFullPath)))
写到文件 (cszDriverFullPath, #sys) '写驱动
.如果真结束
.如果 (InstallDriver (cszDriverName, cszDriverFullPath))
.如果 (StartDriver (cszDriverName, cszDriverFullPath))
.否则
.如果结束
.否则
.如果结束
易语言收费版和免费版的区别
删除文件 (cszDriverFullPath)
OpenProcess (2035711, 假, -3)
//关闭驱动进程
.版本 2
.如果真 (StopDriver (cszDriverName, cszDriverFullPath))
.如果真 (RemoveDriver (cszDriverName, cszDriverFullPath))
返回 ()
.如果真结束
可将其代码放置窗口销毁时
//全局变量
.全局变量 cszDriverName, 文本型
.全局变量 cszDriverFullPath, 文本型

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。