易语言远程利用Web操作MySQL源码

系统结构:API_OpenService,API_QueryServiceStatus,API_CloseServiceHandle,API_QueryServiceStatusEx,API_OpenSCManager,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ _服务器1_数据到达
           |  |
           |  |------ _超级按钮1_被单击
           |  |
           |  |------ _退出_被选择
           |  |
           |  |------ __启动窗口_托盘事件
           |  |
           |  |------ _超级按钮2_被单击
           |  |
           |  |------ _ZIP压缩1_压缩进度
           |  |
           |  |------ _ZIP压缩1_解压缩进度
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_OpenService
           |  |
           |  |---[dll]------   API_QueryServiceStatus
           |  |
           |  |---[dll]------   API_CloseServiceHandle
           |  |
           |  |---[dll]------   API_QueryServiceStatusEx
           |  |
           |  |---[dll]------   API_OpenSCManager

调用的DLL命令:

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

.DLL命令 API_QueryServiceStatus, 整数型, "advapi32.dll", "QueryServiceStatus", , 获取服务状态
    .参数 hService, 整数型
    .参数 lpServiceStatus, SERVICE_STATUS, 传址

.DLL命令 API_CloseServiceHandle, 整数型, "advapi32.dll", "CloseServiceHandle", , 关闭ServiceControlManager对象　
    .参数 hSCObject, 整数型

.DLL命令 API_QueryServiceStatusEx, 整数型, "ADVAPI32.DLL", "QueryServiceStatusEx"
    .参数 hService, 整数型
    .参数 InfoLevel, 整数型
    .参数 lpBuffer, 字节集
    .参数 cbBufSize, 整数型
    .参数 pcbBytesNeeded, 整数型, 传址

.DLL命令 API_OpenSCManager, 整数型, "advapi32.dll", "OpenSCManagerA", , 连接服务控件管理器
    .参数 lpMachineName, 整数型
    .参数 lpDatabaseName, 整数型
    .参数 dwDesiredAccess, 整数型