易语言断开指定会话源码

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

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _超级列表框1_当前表项被改变
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======共享会话管理
           |  |
           |  |------ 枚举共享会话
           |  |
           |  |------ 指针到文本_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]------   NetSessionDel

调用的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, 整数型

.DLL命令 NetSessionDel, 整数型, "netapi32.dll", "NetSessionDel"
    .参数 servername, 整数型
    .参数 UncClientName, 字节集
    .参数 username, 字节集