.版本 2
.支持库 iext
.子程序 _按钮1_被单击
网络_映射网络驱动器 (“\\media\会员网盘$”, “X:”, “guest”, “”)
.子程序 _按钮2_被单击
网络_修改网络驱动器卷标 (“\\media\会员网盘$”, “NewNetDisk”)
.子程序 _按钮3_被单击
网络_取消网络驱动器映射 (“X:”)
.子程序 网络_映射网络驱动器, 逻辑型, , 将指定的网络资源映射到本地驱动器。成功返回真;失败返回假。本命令为初级命令。
.参数 网络资源路径, 文本型, , 要映射到本地的网络资源路径。如 \\192.168.250\share\movies
.参数 驱动器, 文本型, , 映射到本地的驱动器名。
.参数 用户名, 文本型, 可空
.参数 密码, 文本型, 可空
.局部变量 NetR, NETRESOURCE
.局部变量 error, 整数型
.如果真 (是否为空 (用户名))
用户名 = 字符 (0)
.如果真结束
.如果真 (是否为空 (密码))
密码 = 字符 (0)
.如果真结束
驱动器 = 选择 (取文本右边 (驱动器, 1) ≠ “:”, 驱动器 + “:”, 驱动器)
NetR.dwScope = 2
NetR.dwType = 1
NetR.dwDisplayType = 3
NetR.dwUsage = 1
NetR.lpLocalName = 驱动器
NetR.lpRemoteName = 网络资源路径
error = WNetAddConnection2 (NetR, 密码, 用户名, 1)
返回 (error = 0)
.子程序 网络_取消网络驱动器映射, 逻辑型, , 取消指定的网络驱动器映射。成功返回真;失败返回假。本命令为初级命令。
.参数 驱动器名称, 文本型
驱动器名称 = 选择 (取文本右边 (驱动器名称, 1) ≠ “:”, 驱动器名称 + “:”, 驱动器名称)
返回 (WNetCancelConnection2 (驱动器名称, 1, 0) = 0)
.子程序 网络_修改网络驱动器卷标, 逻辑型, , 修改指定的网络驱动器盘符。成功返回真;失败返回假。本命令为初级命令。
.参数 网络资源路径, 文本型, , 如 \\192.168.250\share\movies
.参数 新卷标, 文本型
.如果真 (运行 (“reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\” + 子文本替换 (网络资源路径, “\”, “#”, , , 真) + “ /v _LabelFromReg /d ” + #引号 + 新卷标 + #引号 + “ /f”, 假, #隐藏))
返回 (真)
.如果真结束
返回 (假)