当前位置: 主页 > 百科 > 计算机编程 > 易语言源码 >
-14 Comments

共享连接的源代码

发布于:2016-07-04  |   作者:http://www.zxjsq.net  |   已聚集:人围观

.版本 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”, 假, #隐藏))

    返回 (真)

.如果真结束

返回 (假)


标签:                   喜欢:收藏