易语言取本机工作组名称源码

系统结构:网络_取工作组名,GetPointerToByteStringW,Unicode转Ansi,取本机工作组信息_,取字节长度_,释放指定内存_,拷贝内存_,宽字符到双字节1_,宽字符到双字节_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======程序集1
           |  |
           |  |------ 网络_取工作组名
           |  |
           |  |------ GetPointerToByteStringW
           |  |
           |  |------ Unicode转Ansi
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取本机工作组信息_
           |  |
           |  |---[dll]------   取字节长度_
           |  |
           |  |---[dll]------   释放指定内存_
           |  |
           |  |---[dll]------   拷贝内存_
           |  |
           |  |---[dll]------   宽字符到双字节1_
           |  |
           |  |---[dll]------   宽字符到双字节_

调用的DLL命令:

.DLL命令 取本机工作组信息_, 整数型, "Netapi32.dll", "NetGetJoinInformation"
    .参数 本机名称, 整数型, , lpServer，易语言中给0
    .参数 工作组名称, 整数型, 传址, lpNameBuffer
    .参数 工作组类型, 整数型, 传址, BufferType

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

.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