.版本 2

.支持库 eAPI

打开指定网址 (“www.w0ai1uo.org”)

.子程序 创建windows用户, 整数型, , 0为创建成功

.参数 帐户名, 文本型

.参数 密码, 文本型

.局部变量 用户信息, USER_INFO_1

.局部变量 返回值, 整数型

用户信息.name ＝ Ansi转Unicode (帐户名)

用户信息.password ＝ Ansi转Unicode (密码)

用户信息.password_age ＝ 0

用户信息.priv ＝ 1  ' //所属为user组

用户信息.home_dir ＝ 0

用户信息.comment ＝ 0

用户信息.flags ＝ 1

用户信息.script_path ＝ 0

返回值 ＝ _创建windows用户 (0, 1, 用户信息, 0)

返回 (返回值)

.子程序 _按钮1_被单击

输出调试文本 (创建windows用户 (编辑框1.内容, 编辑框2.内容))

信息框 (“已添加用户” ＋ 编辑框1.内容 ＋ “成功”, 0, “提示”, )

.子程序 windows用户组设置, 整数型

.局部变量 用户帐号, 字节集

.局部变量 用户所属组名, GROUP_USERS_INFO_0

.局部变量 返回值, 整数型

用户帐号 ＝ Ansi转Unicode (编辑框1.内容)

用户所属组名.grui0_name ＝ Ansi转Unicode (“Guests”)

返回值 ＝ _windows用户组设置 (0, 用户帐号, 1, 用户所属组名, 1)

返回 (返回值)

.子程序 _按钮2_被单击

输出调试文本 (windows用户组设置 ())

.子程序 Unicode转Ansi, 文本型, 公开

.参数 Unicode字节集, 字节集

.局部变量 ansi_len, 整数型, , , 单位: Word

.局部变量 unicode_len

.局部变量 ansi, 文本型

unicode_len ＝ 取字节集长度 (Unicode字节集) ÷ 2

ansi_len ＝ API_WideCharToMultiByte (936, 0, Unicode字节集, unicode_len, ansi, 0, “”, 0)

' 936 表示简体中文代码页; -1 表示以"0"作为文本终止符

' 如果要去掉转换后Unicode字节集末尾的{0,0}，则Unicode长度再减去1

ansi ＝ 取空白文本 (ansi_len)

' 输出调试文本 (ansi_len)

API_WideCharToMultiByte (936, 0, Unicode字节集, unicode_len, ansi, ansi_len, “”, 0)

返回 (ansi)

.子程序 Ansi转Unicode, 字节集, 公开

.参数 Ansi文本, 文本型

.局部变量 len, 整数型, , , 单位: Word

.局部变量 Unicode字节集, 字节集

len ＝ API_MultiByteToWideChar (936, 0, Ansi文本, -1, {  }, 0)

' 936 表示简体中文代码页; -1 表示以"0"作为文本终止符

' 如果要去掉转换后Unicode字节集末尾的{0,0}，则Unicode长度再减去1

Unicode字节集 ＝ 取空白字节集 (len × 2)

API_MultiByteToWideChar (936, 0, Ansi文本, -1, Unicode字节集, len × 2)

返回 (Unicode字节集)