易语言API创建系统用户源码

系统结构:创建windows用户,windows用户组设置,Unicode转Ansi,Ansi转Unicode,API_WideCharToMultiByte,API_MultiByteToWideChar,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 创建windows用户
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ windows用户组设置
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ Unicode转Ansi
           |  |
           |  |------ Ansi转Unicode
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   _创建windows用户
           |  |
           |  |---[dll]------   _windows用户组设置
           |  |
           |  |---[dll]------   _windows用户信息设置
           |  |
           |  |---[dll]------   API_WideCharToMultiByte
           |  |
           |  |---[dll]------   API_MultiByteToWideChar

调用的DLL命令:

.DLL命令 _创建windows用户, 整数型, "Netapi32.dll", "NetUserAdd"
    .参数 lpServername, 整数型
    .参数 level, 整数型
    .参数 buf, USER_INFO_1
    .参数 parmerr, 整数型

.DLL命令 _windows用户组设置, 整数型, "Netapi32.dll", "NetUserSetGroups"
    .参数 lpServername, 整数型
    .参数 username, 字节集
    .参数 level, 整数型
    .参数 buf, GROUP_USERS_INFO_0, 传址
    .参数 num_entries, 整数型

.DLL命令 _windows用户信息设置, 整数型, "Netapi32.dll", "NetUserSetInfo"
    .参数 lpServername, 整数型
    .参数 username, 字节集
    .参数 level, 整数型
    .参数 buf, 字节集
    .参数 parm_err, 整数型

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

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