易语言取共享会话详细信息源码

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

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _超级列表框1_当前表项被改变
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======程序集1
           |  |
           |  |------ 枚举共享会话
           |  |
           |  |------ 指针到文本_Unicode版
           |  |
           |  |------ Unicode转Ansi
           |  |
           |  |------ 时间转换
           |  |
           |  |------ Ansi转Unicode
           |  |
           |  |------ 取共享会话信息
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   NetSessionEnum
           |  |
           |  |---[dll]------   NetApiBufferFree
           |  |
           |  |---[dll]------   CopyMemory_Se502
           |  |
           |  |---[dll]------   CopyMemory_Se10
           |  |
           |  |---[dll]------   lstrlenW
           |  |
           |  |---[dll]------   CopyMemory_byte
           |  |
           |  |---[dll]------   宽字符到双字节1_
           |  |
           |  |---[dll]------   宽字符到双字节_
           |  |
           |  |---[dll]------   NetSessionGetInfo
           |  |
           |  |---[dll]------   Len_se10
           |  |
           |  |---[dll]------   MultiByteToWideChar_A2W

调用的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_Se502, , "kernel32", "RtlMoveMemory"
    .参数 pDest, SESSION_INFO_502
    .参数 pSrc, 整数型
    .参数 ByteLen, 整数型

.DLL命令 CopyMemory_Se10, , "kernel32", "RtlMoveMemory"
    .参数 pDest, SESSION_INFO_10
    .参数 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

.DLL命令 NetSessionGetInfo, 整数型, "netapi32.dll", "NetSessionGetInfo"
    .参数 lptstr, 整数型
    .参数 lptstr, 字节集
    .参数 lptstr, 字节集
    .参数 dword, 整数型
    .参数 pbyte, 整数型, 传址

.DLL命令 Len_se10, 整数型, "kernel32", "GlobalSize", , 返回全局内存块大小
    .参数 hMem, SESSION_INFO_10

.DLL命令 MultiByteToWideChar_A2W, 整数型, , "MultiByteToWideChar", , A2W  将Ansi转成Unicode
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型