易语言保护进程

下面是代码 模块及驱动请在附件下载
//函数

.版本 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, 文本型