易语言枚举共享会话源码

系统结构:枚举共享会话,指针到文本_Unicode版,Unicode转Ansi,时间转换,NetSessionEnum,NetApiBufferFree,CopyMemory,lstrlenW,CopyMemory_byte,宽字符到双字节1_,宽字符到双字节_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======程序集1
           |  |
           |  |------ 枚举共享会话
           |  |
           |  |------ 指针到文本_Unicode版
           |  |
           |  |------ Unicode转Ansi
           |  |
           |  |------ 时间转换
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   NetSessionEnum
           |  |
           |  |---[dll]------   NetApiBufferFree
           |  |
           |  |---[dll]------   CopyMemory
           |  |
           |  |---[dll]------   lstrlenW
           |  |
           |  |---[dll]------   CopyMemory_byte
           |  |
           |  |---[dll]------   宽字符到双字节1_
           |  |
           |  |---[dll]------   宽字符到双字节_

调用的DLL命令:

.DLL命令 NetSessionEnum, 整数型, "netapi32.dll", "NetSessionEnum"
    .参数 lptstr, 整数型
    .参数 lptstr, 整数型
    .参数 lptstr, 整数型
    .参数 dword, 整数型, , MSDN有5个参数选择，请自行参考资料
    .参数 pbyte, 整数型, 传址
    .参数 dword, 整数型
    .参数 pdword, 整数型, 传址
    .参数 pdword, 整数型, 传址
    .参数 pdword, 整数型, 传址

.DLL命令 NetApiBufferFree, 整数型, "NETAPI32.DLL", "NetApiBufferFree"
    .参数 Buffer, 整数型

.DLL命令 CopyMemory, , "kernel32", "RtlMoveMemory"
    .参数 pDest, SESSION_INFO_502
    .参数 pSrc, 整数型
    .参数 ByteLen, 整数型

.DLL命令 lstrlenW, 整数型, "kernel32", "lstrlenW", , 返回字符串中字符数
    .参数 lpString, 整数型

.DLL命令 CopyMemory_byte, , "kernel32", "RtlMoveMemory"
    .参数 pDest, 字节型, 数组
    .参数 pSrc, 整数型
    .参数 ByteLen, 整数型

.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