易语言枚举资源所有域源码

系统结构:enumDomain,WNetCloseEnum,WNetEnumResource,WNetOpenEnum,WNetOpenEnum1,VarPtr,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======程序集1
           |  |
           |  |------ enumDomain
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   WNetCloseEnum
           |  |
           |  |---[dll]------   WNetEnumResource
           |  |
           |  |---[dll]------   WNetOpenEnum
           |  |
           |  |---[dll]------   WNetOpenEnum1
           |  |
           |  |---[dll]------   VarPtr

调用的DLL命令:

.DLL命令 WNetCloseEnum, 整数型, "mpr.dll", "WNetCloseEnum", , 结束一次枚举操作  零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息
    .参数 hEnum, 整数型, , 由 WNetOpenEnum函数返回的一个枚举句柄;

.DLL命令 WNetEnumResource, 整数型, "mpr.dll", "WNetEnumResourceA", , 枚举网络资源  零表示成功。ERROR_NO_MORE_ITEMS表示不剩下可以枚举的条目。ERROR_MORE_DATA表示条目不能装入lpBuffer。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息
    .参数 hEnum, 整数型, , 从WNetOpenEnum函数返回的一个句柄
    .参数 lpcCount, 整数型, 传址, 最初设为要枚举的最大资源数量；或设为-1，表示枚举尽可能多的资源。一旦返回，就会设为实际枚举的资源数量
    .参数 lpBuffer, 字节型, 数组, 通常是一个字节缓冲区的首字节。该缓冲区装载了枚举信息（可按引用声明为Byte）
    .参数 lpBufferSize, 整数型, 传址, 以字节为单位指定lpBuffer数组的长度。如缓冲区不够大，则设为需要的缓冲区长度;

.DLL命令 WNetOpenEnum, 整数型, "mpr", "WNetOpenEnumA", , 启动对网络资源进行枚举的过程。这个函数会返回由WNetEnumResource函数用于枚举资源所用的一个句柄  零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息
    .参数 dwScope, 整数型, , 指定要枚举的资源范围。可设为下述常数之一：;RESOURCE_CONNECTED：枚举已连接的资源（忽略dwUsage）;RESOURCE_GLOBALNET：枚举所有资源;RESOURCE_REMEMBERED：只枚举永久性连接
    .参数 dwType, 整数型, , 下述常数之一;RESOURCE_ANY：枚举所有类型的网络资源;RESOURCE_DISK：枚举磁盘资源;RESOURCE_PRINT：枚举打印资源
    .参数 dwUsage, 整数型, , 可设为零，表示枚举所有资源；或设为下述常数的一个或两个：;RESOURCEUSAGE_CONNECTABLE：只枚举那些能够连接的资源;RESOURCEUSAGE_CONTAINER：只枚举包含了其他资源的资源
    .参数 lpNetResource, 整数型, , NETRESOURCE，这个结构指定了一个容器资源。该函数会枚举包含于这里指定的某个指定资源内的资源。如设为NULL（把声明变成ByVal As Long），那么函数会枚举顶级网络资源。倘若在dwScope参数里没有指定RESOURCE_GLOBALNET，那么必须为NULL
    .参数 lphEnum, 整数型, 传址, 指定一个变量，用于装载一个枚举句柄。该句柄由WNetEnumResource函数使用。必须用WNetCloseEnum函数将其清除;

.DLL命令 WNetOpenEnum1, 整数型, "mpr", "WNetOpenEnumA", , 启动对网络资源进行枚举的过程。这个函数会返回由WNetEnumResource函数用于枚举资源所用的一个句柄  零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息
    .参数 dwScope, 整数型, , 指定要枚举的资源范围。可设为下述常数之一：;RESOURCE_CONNECTED：枚举已连接的资源（忽略dwUsage）;RESOURCE_GLOBALNET：枚举所有资源;RESOURCE_REMEMBERED：只枚举永久性连接
    .参数 dwType, 整数型, , 下述常数之一;RESOURCE_ANY：枚举所有类型的网络资源;RESOURCE_DISK：枚举磁盘资源;RESOURCE_PRINT：枚举打印资源
    .参数 dwUsage, 整数型, , 可设为零，表示枚举所有资源；或设为下述常数的一个或两个：;RESOURCEUSAGE_CONNECTABLE：只枚举那些能够连接的资源;RESOURCEUSAGE_CONTAINER：只枚举包含了其他资源的资源
    .参数 lpNetResource, 字节型, 数组, NETRESOURCE，这个结构指定了一个容器资源。该函数会枚举包含于这里指定的某个指定资源内的资源。如设为NULL（把声明变成ByVal As Long），那么函数会枚举顶级网络资源。倘若在dwScope参数里没有指定RESOURCE_GLOBALNET，那么必须为NULL
    .参数 lphEnum, 整数型, , 指定一个变量，用于装载一个枚举句柄。该句柄由WNetEnumResource函数使用。必须用WNetCloseEnum函数将其清除;

.DLL命令 VarPtr, 整数型, "msvbvm60.dll", "VarPtr"
    .参数 lpObject, NETRESOURCE