易语言批量创建系统用户帐号源码

系统结构:设置初始化,表格初始化,创建用户,删除用户,枚举用户,设置用户组,Unicode转Ansi,Ansi转Unicode,NetUserAdd,WideCharToMultiByte,MultiByteToWideChar,NetUserEnum,NetUserDel,NetLocalGroupAddMembers,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ 设置初始化
           |  |
           |  |------ 表格初始化
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _高级表格1_被单击
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ _按钮6_被单击
           |  |
           |  |
======常用操作集
           |  |
           |  |------ 创建用户
           |  |
           |  |------ 删除用户
           |  |
           |  |------ 枚举用户
           |  |
           |  |------ 设置用户组
           |  |
           |  |------ Unicode转Ansi
           |  |
           |  |------ Ansi转Unicode
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   NetUserAdd
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   NetUserEnum
           |  |
           |  |---[dll]------   NetUserDel
           |  |
           |  |---[dll]------   NetLocalGroupAddMembers

调用的DLL命令:

.DLL命令 NetUserAdd, 整数型, "Netapi32.dll", "NetUserAdd"
    .参数 lpServername, 整数型
    .参数 level, 整数型
    .参数 buf, USER_INFO_1
    .参数 parmerr, 整数型

.DLL命令 WideCharToMultiByte, 整数型, "kernel32", "WideCharToMultiByte", , 将通配符映像为多字节
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpDefaultChar, 文本型
    .参数 lpUsedDefaultChar, 整数型

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 NetUserEnum, 整数型, "NETAPI32.DLL", "NetUserEnum"
    .参数 servername, 字节集, 传址
    .参数 level, 整数型
    .参数 filter, 整数型
    .参数 bufptr, 整数型, 传址, USER_INFO_ 指针
    .参数 prefmaxlen, 整数型
    .参数 entriesread, 整数型, 传址
    .参数 totalentries, 整数型, 传址
    .参数 resume_handle, 整数型, 传址

.DLL命令 NetUserDel, 整数型, "netapi32.dll", "NetUserDel", , , 删除用户
    .参数 ServerName, 字节集, 传址
    .参数 Username, 字节集, 传址

.DLL命令 NetLocalGroupAddMembers, 整数型, "Netapi32.dll"
    .参数 servername, 整数型
    .参数 username, 字节集
    .参数 level, 整数型
    .参数 buf, LOCALGROUP_MEMBERS_INFO_3
    .参数 num_entries, 整数型