易语言枚举本机用户组源码

系统结构:系统_枚举系统用户组,Unicode转Ansi,取字节长度_,枚举本地网络组_,释放指定内存_,拷贝内存_,宽字符到双字节1_,宽字符到双字节_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _超级链接框1_鼠标左键被按下
           |  |
           |  |
======程序集1
           |  |
           |  |------ 系统_枚举系统用户组
           |  |
           |  |------ Unicode转Ansi
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取字节长度_
           |  |
           |  |---[dll]------   枚举本地网络组_
           |  |
           |  |---[dll]------   释放指定内存_
           |  |
           |  |---[dll]------   拷贝内存_
           |  |
           |  |---[dll]------   宽字符到双字节1_
           |  |
           |  |---[dll]------   宽字符到双字节_

调用的DLL命令:

.DLL命令 取字节长度_, 整数型, "kernel32.dll", "lstrlenW"
    .参数 待取参数, 整数型, , lpString

.DLL命令 枚举本地网络组_, 整数型, "netapi32.dll", "NetLocalGroupEnum"
    .参数 服务名称, 整数型, , servername
    .参数 级别, 整数型, , Level
    .参数 缓冲区, 整数型, 传址, buff
    .参数 缓冲区长度, 整数型, , buffsize
    .参数 读取数量, 整数型, 传址, entriesread
    .参数 总数量, 整数型, 传址, totalentries
    .参数 返回句柄, 整数型, 传址, resumehandle

.DLL命令 释放指定内存_, 整数型, "netapi32.dll", "NetApiBufferFree"
    .参数 缓冲区, 整数型, , Buffer

.DLL命令 拷贝内存_, 整数型, "kernel32", "RtlMoveMemory", , RtlMoveMemory
    .参数 目标数据地址, 整数型, 传址 数组, lpvDest
    .参数 源数据, 整数型, , lpvSource
    .参数 尺寸, 整数型, , cbCopy

.DLL命令 宽字符到双字节1_, 整数型, , "WideCharToMultiByte", 公开, Unicode转Ansi
    .参数 代码页, 整数型, , CodePage
    .参数 标志, 整数型, , dwFlags
    .参数 宽字符文本, 字节集, , lpWideCharStr
    .参数 宽字符文本长度, 整数型, , cchWideChar
    .参数 双字节文本, 整数型, , lpMultiByteStr
    .参数 双字节文本长度, 整数型, , cchMultiByte
    .参数 默认文本, 整数型, , lpDefaultChar
    .参数 使用默认文本, 逻辑型, , lpUsedDefaultChar

.DLL命令 宽字符到双字节_, , , "WideCharToMultiByte", 公开, Unicode转Ansi
    .参数 代码页, 整数型, , CodePage
    .参数 标志, 整数型, , dwFlags
    .参数 宽字符文本, 字节集, , lpWideCharStr
    .参数 宽字符文本长度, 整数型, , cchWideChar
    .参数 双字节文本, 字节集, , lpMultiByteStr
    .参数 双字节文本长度, 整数型, , cchMultiByte
    .参数 默认文本, 整数型, , lpDefaultChar
    .参数 使用默认文本, 逻辑型, , lpUsedDefaultChar