易语言驱动自保模块源码

系统结构:InstallDriver,CreateDriver,StartDriver,StopDriver,RemoveDriver,十六进制到字节集,十六到十,PathIsDirectory,DeviceIoControl,OpenSCManagerA,CreateServiceA,CloseServiceHandle,StartServiceA,DeleteService,OpenServiceA,ControlService,取WIN目录,GetLastError,十六转十,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======驱动集
           |  |
           |  |------ InstallDriver
           |  |
           |  |------ CreateDriver
           |  |
           |  |------ StartDriver
           |  |
           |  |------ StopDriver
           |  |
           |  |------ RemoveDriver
           |  |
           |  |------ 十六进制到字节集
           |  |
           |  |------ 十六到十
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   PathIsDirectory
           |  |
           |  |---[dll]------   DeviceIoControl
           |  |
           |  |---[dll]------   OpenSCManagerA
           |  |
           |  |---[dll]------   CreateServiceA
           |  |
           |  |---[dll]------   CloseServiceHandle
           |  |
           |  |---[dll]------   StartServiceA
           |  |
           |  |---[dll]------   DeleteService
           |  |
           |  |---[dll]------   OpenServiceA
           |  |
           |  |---[dll]------   ControlService
           |  |
           |  |---[dll]------   取WIN目录
           |  |
           |  |---[dll]------   GetLastError
           |  |
           |  |---[dll]------   十六转十

调用的DLL命令:

.DLL命令 PathIsDirectory, 整数型, "shlwapi.dll", "PathIsDirectoryA"
    .参数 lpszPath, 文本型

.DLL命令 DeviceIoControl, , , "DeviceIoControl"
    .参数 hDevice, 整数型
    .参数 dwIoControlCode, 整数型
    .参数 lpInBuffer, 整数型
    .参数 nInBufferSize, 整数型
    .参数 lpOutBuffer, 整数型
    .参数 nOutBufferSize, 整数型
    .参数 lpBytesReturned, 整数型, 传址
    .参数 lpOverlapped, 整数型

.DLL命令 OpenSCManagerA, 整数型, , "OpenSCManagerA"
    .参数 lpMachineName, 整数型
    .参数 lpDatabaseName, 整数型
    .参数 dwDesiredAccess, 整数型

.DLL命令 CreateServiceA, 整数型, , "CreateServiceA"
    .参数 hSCManager, 整数型
    .参数 lpServiceName, 文本型
    .参数 lpDisplayName, 文本型
    .参数 dwDesiredAccess, 整数型
    .参数 dwServiceType, 整数型
    .参数 dwStartType, 整数型
    .参数 dwErrorControl, 整数型
    .参数 lpBinaryPathName, 文本型
    .参数 lpLoadOrderGroup, 整数型
    .参数 lpdwTagId, 整数型
    .参数 lpDependencies, 整数型
    .参数 lpServiceStartName, 整数型
    .参数 lpPassword, 整数型

.DLL命令 CloseServiceHandle, 整数型, , "CloseServiceHandle"
    .参数 hSCObject, 整数型

.DLL命令 StartServiceA, 整数型, , "StartServiceA"
    .参数 hService, 整数型
    .参数 dwNumServiceArgs, 整数型
    .参数 lpServiceArgVectors, 整数型

.DLL命令 DeleteService, 整数型, , "DeleteService"
    .参数 hService, 整数型

.DLL命令 OpenServiceA, 整数型, , "OpenServiceA"
    .参数 hSCManager, 整数型
    .参数 lpServiceName, 文本型
    .参数 dwDesiredAccess, 整数型

.DLL命令 ControlService, 整数型, , "ControlService"
    .参数 hService, 整数型
    .参数 dwControl, 整数型
    .参数 lpServiceStatus, SERVICE_STATUS, 传址

.DLL命令 取WIN目录, 整数型, "kernel32.dll", "GetWindowsDirectoryA"
    .参数 缓冲区, 文本型
    .参数 缓冲区大小, 整数型

.DLL命令 GetLastError, 整数型, , "GetLastError"

.DLL命令 十六转十, 整数型, "shlwapi.dll", "StrToIntExA"
    .参数 转换文本, 文本型, , pszString
    .参数 标志, 整数型, , dwFlags 10 0  16 1
    .参数 返回值, 整数型, 传址, piRet