局域网自动更新易语言源码例程

系统结构:创建网络连接,断开网络连接,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   创建网络连接
           |  |
           |  |---[dll]------   断开网络连接

调用的DLL命令:

.DLL命令 创建网络连接, 整数型, "mpr.dll", "WNetAddConnection2A", , 创建同一个网络资源的连接。返回值Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息。
    .参数 lpNetResource, NETRESOURCE, , =75%NETRESOURCE，在这个结构中设置了下述字段，对要连接的网络资源进行了定义：dwType，lpLocalName（可为vbNullString），lpRemoteName，lpProvider（设为vbNullString表示用默认提供者）。该结构的其他所有变量都会被忽略
    .参数 lpPassword, 文本型, , String，可选的一个密码。如为vbNullString，表示采用当前用户的默认密码。如为一个空字串，则不用任何密码
    .参数 lpUserName, 文本型, , String，用于连接的用户名。如为vbNullString，表示使用当前用户
    .参数 dwFlags, 整数型, , Long，设为零；或指定常数CONNECT_UPDATE_PROFILE，表示创建永久性连接

.DLL命令 断开网络连接, 整数型, "mpr.dll", "WNetCancelConnection2A", , 结束一个网络连接。返回值Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息。
    .参数 lpName, 文本型, , 备注1无法读取，请您提供该API名报易BBS中ID号klasp完善。
    .参数 dwFlags, 整数型, , 备注2无法读取，请您提供该API名报易BBS中ID号klasp完善。
    .参数 fForce, 整数型, , 备注3无法读取，请您提供该API名报易BBS中ID号klasp完善。