精易模块 精易_网卡信息_彗星 的修改建议

wjt741106

系统_取网卡信息_彗星版 (精易_网卡信息_彗星)  所获取网卡信息的所取得的数据要比     系统_取网卡信息  (精易_网卡信息 ) 要全面
但还有不足    系统_取网卡信息_彗星版 (精易_网卡信息_彗星)
1   网卡是否启用DHCP，不能反应出来。
2  如果网卡配置了2个IP 地址，只能取一个IP 地址，这也导致IP地址不能完整取得，也是不足。
建议修改如下：







补充后的源代码

  

数据类型名	公开	备 注
精易_网卡信息_彗星		网卡信息
成员名	类 型	传址	数组	备 注
网卡名称	文本型			网卡名称，值如   {61AD58AB-CA10-44FB-8DEC-D861EC0238B6}
网卡描述	文本型			网卡描述  值如    Realtek PCIe GbE Family Controller
连接名称	文本型			友好名称，  值如   本地连接
网卡类型n	整数型			6  表示以太网卡
网卡类型	文本型			网卡类型  值如：  ETHERNET
MAC地址	文本型			MAC地址
IP地址	文本型			IP地址
子网掩码	文本型			子网掩码
网关地址	文本型			网关地址
首选DNS服务器	文本型			首选DNS服务器
备用DNS服务器	文本型			备用DNS服务器
DhcpEnabled	逻辑型			是否启用DHCP

子程序名	返回值类型	公开	备 注
系统_取网卡信息_彗星版	整数型		获取网卡的IP地址、MAC等信息。By:邓学彬(泪闯天涯)
参数名	类 型	参考	可空	数组	备 注
网卡信息数组	精易_网卡信息_彗星

变量名	类 型	静态	数组	备 注
MapList	NetworkCardMapName		0
AdapterInfo	IP_ADAPTER_INFO_彗星
BufBin	字节集
pAda	整数型
nSize	整数型
nBufLen	整数型
nResult	整数型
pAddr	整数型
ipAddr	IP_ADDR_STRING
strTmp	文本型
strMac	文本型
Card	精易_网卡信息_彗星
i	整数型
局_mac	文本型
局_总数	整数型

清除数组 (网卡信息数组)
GetAdapterFriendlyName (MapList)
' //--------------------------------------------------
nResult ＝ GetAdaptersInfo (0, nBufLen)
如果真 (nResult ＝ #ERROR_BUFFER_OVERFLOW )
BufBin ＝ 取空白字节集 (nBufLen)
pAda ＝ GetPtr_Bin (BufBin, BufBin, 0)
nResult ＝ GetAdaptersInfo (pAda, nBufLen)
如果真 ( #ERROR_SUCCESS ＝ nResult)
nSize ＝ LocalSize_IP_ADAPTER_INFO (AdapterInfo)
判断循环首 (pAda ≠ 0)
CopyMemory_P2IP_ADAPTER_INFO (AdapterInfo, pAda, nSize)
Card.网卡名称 ＝ 到文本 (AdapterInfo.AdapterName)  ' //网卡名称
Card.网卡描述 ＝ 到文本 (AdapterInfo.Description)  ' //网卡描述
Card.网卡类型n ＝ AdapterInfo.Type
Card.网卡类型 ＝ GetAdapterInfoType (AdapterInfo.Type)  ' //网卡类型
' //取出MAC地址
Card.MAC地址 ＝ “”
局_总数 ＝ AdapterInfo.AddressLength
计次循环首 (局_总数, i)
. ' 如果真 (i ＞ 1)
' Card.MAC地址 ＝ Card.MAC地址 ＋ “-”
. ' 如果真 (AdapterInfo.Address [ i ] ≤ 16)
' Card.MAC地址 ＝ Card.MAC地址 ＋ “0”
' Card.MAC地址 ＝ Card.MAC地址 ＋ 取十六进制文本 (AdapterInfo.Address [ i ])
局_mac ＝ 取十六进制文本 (AdapterInfo.Address [ i ])
如果 (i ≠ 局_总数)
Card.MAC地址 ＝ Card.MAC地址 ＋ 选择 (取文本长度 (局_mac) ＝ 1, “0” ＋ 局_mac, 局_mac) ＋ “-”
Card.MAC地址 ＝ Card.MAC地址 ＋ 选择 (取文本长度 (局_mac) ＝ 1, “0” ＋ 局_mac, 局_mac)

计次循环尾 ()
' //取出IP地址和子网掩码
ipAddr ＝ AdapterInfo.IpAddressList
循环判断首 ()
Card.IP地址 ＝ 选择 (Card.IP地址 ≠ “”, Card.IP地址 ＋ “ ” ＋ 到文本 (ipAddr.IpAddress), 到文本 (ipAddr.IpAddress))
Card.子网掩码 ＝ 选择 (Card.子网掩码 ≠ “”, Card.子网掩码 ＋ “ ” ＋ 到文本 (ipAddr.IpMask), 到文本 (ipAddr.IpMask))
' 跳出循环 ()  ' //只取一个
pAddr ＝ ipAddr.Next
如果真 (pAddr ≠ 0)
CopyMemory_IP_ADDR_STRING (ipAddr, pAddr, LocalSize_IP_ADDR_STRING (ipAddr))

循环判断尾 (pAddr ≠ 0)
' //取出
ipAddr ＝ AdapterInfo.GatewayList
循环判断首 ()
Card.网关地址 ＝ 到文本 (ipAddr.IpAddress)
跳出循环 ()  ' //只取一个
pAddr ＝ ipAddr.Next
如果真 (pAddr ≠ 0)
CopyMemory_IP_ADDR_STRING (ipAddr, pAddr, LocalSize_IP_ADDR_STRING (ipAddr))

循环判断尾 (pAddr ≠ 0)
' //取出DNS服务器
GetDnsServer (AdapterInfo.Index, Card.首选DNS服务器, Card.备用DNS服务器)
' //--------------------------------------------------
计次循环首 (取数组成员数 (MapList), i)
如果真 (MapList [ i ].strGUID ＝ Card.网卡名称)
Card.连接名称 ＝ MapList [ i ].strFriendName
跳出循环 ()

计次循环尾 ()
' //--------------------------------------------------
Card.DhcpEnabled ＝ 选择 (AdapterInfo.DhcpEnabled ＝ 1, 真, 假)
加入成员 (网卡信息数组, Card)
pAda ＝ AdapterInfo.Next
判断循环尾 ()

' //--------------------------------------------------
返回 (取数组成员数 (网卡信息数组))

.版本 2<br /> .数据类型 精易_网卡信息_彗星, 公开, 网卡信息<br />     .成员 网卡名称, 文本型, , , 网卡名称，值如   {61AD58AB-CA10-44FB-8DEC-D861EC0238B6}<br />     .成员 网卡描述, 文本型, , , 网卡描述  值如    Realtek PCIe GbE Family Controller<br />     .成员 连接名称, 文本型, , , 友好名称，  值如   本地连接<br />     .成员 网卡类型n, 整数型, , ,    6  表示以太网卡<br />     .成员 网卡类型, 文本型, , , 网卡类型  值如：  ETHERNET<br />     .成员 MAC地址, 文本型, , , MAC地址<br />     .成员 IP地址, 文本型, , , IP地址<br />     .成员 子网掩码, 文本型, , , 子网掩码<br />     .成员 网关地址, 文本型, , , 网关地址<br />     .成员 首选DNS服务器, 文本型, , , 首选DNS服务器<br />     .成员 备用DNS服务器, 文本型, , , 备用DNS服务器<br />     .成员 DhcpEnabled, 逻辑型, , , 是否启用DHCP<br /> <br /> .版本 2<br /> .子程序 系统_取网卡信息_彗星版, 整数型, 公开, 获取网卡的IP地址、MAC等信息。By:邓学彬(泪闯天涯)<br /> .参数 网卡信息数组, 精易_网卡信息_彗星, 参考 数组<br /> .局部变量 MapList, NetworkCardMapName, , "0"<br /> .局部变量 AdapterInfo, IP_ADAPTER_INFO_彗星<br /> .局部变量 BufBin, 字节集<br /> .局部变量 pAda, 整数型<br /> .局部变量 nSize, 整数型<br /> .局部变量 nBufLen, 整数型<br /> .局部变量 nResult, 整数型<br /> .局部变量 pAddr, 整数型<br /> .局部变量 ipAddr, IP_ADDR_STRING<br /> .局部变量 strTmp, 文本型<br /> .局部变量 strMac, 文本型<br /> .局部变量 Card, 精易_网卡信息_彗星<br /> .局部变量 i, 整数型<br /> .局部变量 局_mac, 文本型<br /> .局部变量 局_总数, 整数型<br /> 清除数组 (网卡信息数组)<br /> GetAdapterFriendlyName (MapList)<br /> ' //--------------------------------------------------<br /> nResult ＝ GetAdaptersInfo (0, nBufLen)<br /> .如果真 (nResult ＝ #ERROR_BUFFER_OVERFLOW)<br />     BufBin ＝ 取空白字节集 (nBufLen)<br />     pAda ＝ GetPtr_Bin (BufBin, BufBin, 0)<br />     nResult ＝ GetAdaptersInfo (pAda, nBufLen)<br />     .如果真 (#ERROR_SUCCESS ＝ nResult)<br />         nSize ＝ LocalSize_IP_ADAPTER_INFO (AdapterInfo)<br />         .判断循环首 (pAda ≠ 0)<br />             CopyMemory_P2IP_ADAPTER_INFO (AdapterInfo, pAda, nSize)<br />             Card.网卡名称 ＝ 到文本 (AdapterInfo.AdapterName)  ' //网卡名称<br />             Card.网卡描述 ＝ 到文本 (AdapterInfo.Description)  ' //网卡描述<br />             Card.网卡类型n ＝ AdapterInfo.Type<br />             Card.网卡类型 ＝ GetAdapterInfoType (AdapterInfo.Type)  ' //网卡类型<br />             ' //取出MAC地址<br />             Card.MAC地址 ＝ “”<br />             局_总数 ＝ AdapterInfo.AddressLength<br />             .计次循环首 (局_总数, i)<br />                 .' 如果真 (i ＞ 1)<br />                     ' Card.MAC地址 ＝ Card.MAC地址 ＋ “-”<br />                 .如果真结束<br />                 .' 如果真 (AdapterInfo.Address [ i ] ≤ 16)<br />                     ' Card.MAC地址 ＝ Card.MAC地址 ＋ “0”<br />                 .如果真结束<br />                 ' Card.MAC地址 ＝ Card.MAC地址 ＋ 取十六进制文本 (AdapterInfo.Address [ i ])<br />                 局_mac ＝ 取十六进制文本 (AdapterInfo.Address [ i ])<br />                 .如果 (i ≠ 局_总数)<br />                     Card.MAC地址 ＝ Card.MAC地址 ＋ 选择 (取文本长度 (局_mac) ＝ 1, “0” ＋ 局_mac, 局_mac) ＋ “-”<br />                 .否则<br />                     Card.MAC地址 ＝ Card.MAC地址 ＋ 选择 (取文本长度 (局_mac) ＝ 1, “0” ＋ 局_mac, 局_mac)<br />                 .如果结束<br />             .计次循环尾 ()<br />             ' //取出IP地址和子网掩码<br />             ipAddr ＝ AdapterInfo.IpAddressList<br />             .循环判断首 ()<br />                 Card.IP地址 ＝ 选择 (Card.IP地址 ≠ “”, Card.IP地址 ＋ “ ” ＋ 到文本 (ipAddr.IpAddress), 到文本 (ipAddr.IpAddress))<br />                 Card.子网掩码 ＝ 选择 (Card.子网掩码 ≠ “”, Card.子网掩码 ＋ “ ” ＋ 到文本 (ipAddr.IpMask), 到文本 (ipAddr.IpMask))<br />                 ' 跳出循环 ()  ' //只取一个<br />                 pAddr ＝ ipAddr.Next<br />                 .如果真 (pAddr ≠ 0)<br />                     CopyMemory_IP_ADDR_STRING (ipAddr, pAddr, LocalSize_IP_ADDR_STRING (ipAddr))<br />                 .如果真结束<br />             .循环判断尾 (pAddr ≠ 0)<br />             ' //取出<br />             ipAddr ＝ AdapterInfo.GatewayList<br />             .循环判断首 ()<br />                 Card.网关地址 ＝ 到文本 (ipAddr.IpAddress)<br />                 跳出循环 ()  ' //只取一个<br />                 pAddr ＝ ipAddr.Next<br />                 .如果真 (pAddr ≠ 0)<br />                     CopyMemory_IP_ADDR_STRING (ipAddr, pAddr, LocalSize_IP_ADDR_STRING (ipAddr))<br />                 .如果真结束<br />             .循环判断尾 (pAddr ≠ 0)<br />             ' //取出DNS服务器<br />             GetDnsServer (AdapterInfo.Index, Card.首选DNS服务器, Card.备用DNS服务器)<br />             ' //--------------------------------------------------<br />             .计次循环首 (取数组成员数 (MapList), i)<br />                 .如果真 (MapList [ i ].strGUID ＝ Card.网卡名称)<br />                     Card.连接名称 ＝ MapList [ i ].strFriendName<br />                     跳出循环 ()<br />                 .如果真结束<br />             .计次循环尾 ()<br />             ' //--------------------------------------------------<br />             Card.DhcpEnabled ＝ 选择 (AdapterInfo.DhcpEnabled ＝ 1, 真, 假)<br />             加入成员 (网卡信息数组, Card)<br />             pAda ＝ AdapterInfo.Next<br />         .判断循环尾 ()<br />     .如果真结束<br /> .如果真结束<br /> ' //--------------------------------------------------<br /> 返回 (取数组成员数 (网卡信息数组))

项目部004

系统_取网卡信息_彗星版 接收的是一个数组变量，IP地址和子网掩码都有返回的！是否启用DHCP 可以考虑添加！

pwang1234

看不懂啊  呵呵呵！！！