易语言 多网卡 怎么选择指定网卡WlanEnumInterfaces wifiapi

gongtengbsg

想实现多网卡选择-取组合框1指定网卡WlanEnumInterfaces


源码
6677.e (16 KB, 下载次数: 11)

2018-9-14 10:04 上传

点击文件名下载附件

2个无线网卡
都是同一个型号的
第一个网卡GWUSSuper300
第二个网卡GWUSSuper300#

想实现组合框1指定网卡，然后点WlanEnumInterfaces取网卡信息。
目前只能单网卡取信息，多网卡无法取！不知道为什么!
还望大神修改一下源码。谢谢！

个人小白写不出来尝试过各种api
SetupDiEnumDeviceInfo
GetAdaptersInfo
WlanEnumInterfaces
不知道怎么写，还望大神帮忙！感谢！

gongtengbsg

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
ver	整数型
InterfaceList2	WLAN_INTERFACE_INFO_LIST
WlanHandle	整数型
WlanVersion	整数型
ppInterfaceList	整数型
InterfaceItems	整数型
InterfaceList	WLAN_INTERFACE_INFO
hDevinfo	整数型
spDevInfoData	整数型
size_link	整数型
AdapterInfo	IP_ADAPTER_INFO
buf_link	字节集
i	整数型
mac	文本型
tmp	文本型
buf_ip	IP_ADDR_STRING
link	网卡信息_
size_dns	整数型
dns	IP_PER_ADAPTER_INFO
buf_dns	字节集
addr_dns	整数型
getinterace	WLAN_INTERFACE_CAPABILITY
hw	WLAN_INTF_OPCODE

子程序名	返回值类型	公开	备 注
_按钮1_被单击

编辑框1.内容 ＝ “”
ver ＝ 到整数 (取文本左边 (取文本zc项 ( #本地机器, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion”, ), 1))
ver ＝ 选择 (ver ≥ 6, 2, 1)
如果真 (WlanOpenHandle (ver, 0, WlanVersion, WlanHandle) ≠ 0)  ' 第1个参数 NT5.x 系统填1 NT6.x填2 /第1个参数 XP sp2 sp3 系统填1    vista win7 系统填2
信息框 (“打开 WLAN 句柄失败”, 0, )

编辑框1.加入文本 (到文本 (WlanHandle) ＋ #换行符 )
编辑框1.加入文本 (到文本 (WlanVersion) ＋ #换行符 )

子程序名	返回值类型	公开	备 注
_按钮2_被单击

WlanEnumInterfaces (WlanHandle, 0, ppInterfaceList)  ' 获取网卡列表,列表的数据类型是变长的,易语言只能填定长的数据类型  所以只能传指针了
InterfaceItems ＝ 取字节集数据 (指针到字节集 (ppInterfaceList, 4), 3, )  ' 列表类型前8个字节中前4字节  表示网卡数量
ppInterfaceList ＝ ppInterfaceList ＋ 8  ' 后4个字节  表示欲修改网卡号码 , 只是获取网卡信息的话可以忽略 ,该参数从0开始 不是易语言的1开始
调试输出 (ppInterfaceList, InterfaceItems, WlanHandle)
计次循环首 (InterfaceItems, i)
RtlMoveMemory_INTERFACE_INFO (InterfaceList2.InterfaceInfo, ppInterfaceList, 532)
调试输出 (InterfaceItems)
编辑框1.加入文本 (到文本 (InterfaceList2.dwIndex) ＋ #换行符 )
编辑框1.加入文本 (到文本 (InterfaceList2.dwNumberOfItems) ＋ #换行符 )
编辑框1.加入文本 (到文本 (InterfaceList2.InterfaceInfo.InterfaceGuid) ＋ #换行符 )
编辑框1.加入文本 (到文本 (Unicode转ANSI2 (InterfaceList2.InterfaceInfo.strInterfaceDescription)) ＋ #换行符 )
编辑框1.加入文本 (到文本 (ppInterfaceList) ＋ #换行符 )
' 编辑框1.加入文本 (到文本 (InterfaceList.isState.enum) ＋ #换行符)  ' 连接状态 4断开  1连接
' 编辑框1.加入文本 (到文本 (Unicode转ANSI2 (InterfaceList.strInterfaceDescription)) ＋ #换行符)  ' 网卡名字
调试输出 (InterfaceList2.dwIndex, InterfaceList2.dwNumberOfItems, InterfaceList2.InterfaceInfo.InterfaceGuid, Unicode转ANSI2 (InterfaceList2.InterfaceInfo.strInterfaceDescription))
如果 (InterfaceList.isState.enum ＝ 4)  ' isState是枚举类型 1为正常连接, 4为断开连接
编辑框1.加入文本 (“断开中” ＋ #换行符 )



如果真 (InterfaceList.isState.enum ＝ 1 或 InterfaceList.isState.enum ＝ 7)
编辑框1.加入文本 (“连接中” ＋ #换行符 )

计次循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

WlanCloseHandle (WlanHandle, 0)

子程序名	返回值类型	公开	备 注
Unicode转ANSI2	文本型
参数名	类 型	参考	可空	数组	备 注
Char	字节型

返回 (到文本 (子字节集替换 (到字节集 (Char), { 0 }, {  }, , )))

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

取网卡信息 ()

子程序名	返回值类型	公开	备 注
取网卡信息			'code by 笨笨

GetAdaptersInfo ({ 0 }, size_link)
buf_link ＝ 取空白字节集 (size_link)
ppInterfaceList ＝ 取变量地址_字节集 (buf_link, buf_link, 0)
调试输出 (size_link, buf_link, ppInterfaceList)
如果真 (GetAdaptersInfo (buf_link, size_link) ＝ 0)
循环判断首 ()
CopyMemory_iai (AdapterInfo, ppInterfaceList, 640)
link.名称 ＝ 到文本 (AdapterInfo.Description)
mac ＝ “”
计次循环首 (AdapterInfo.AddressLength － 1, i)
tmp ＝ 取十六进制文本 (AdapterInfo.Address [i])
mac ＝ mac ＋ 选择 (tmp ＝ “0”, “00”, tmp) ＋ “-”
计次循环尾 ()
mac ＝ 取文本左边 (mac, 取文本长度 (mac) － 1)
link.Mac ＝ mac
CopyMemory_ias (buf_ip, AdapterInfo.IpAddressList, 40)
link.Ip ＝ 到文本 (buf_ip.IpAddress)
link.掩码 ＝ 到文本 (buf_ip.IpMask)
CopyMemory_ias (buf_ip, AdapterInfo.GatewayList, 40)
link.网关 ＝ 到文本 (buf_ip.IpAddress)
link.连接名称 ＝ 取文本zc项 (4, “SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\” ＋ 到文本 (AdapterInfo.AdapterName) ＋ “\Connection\Name”, )
size_dns ＝ GetPerAdapterInfo (AdapterInfo.Index, buf_dns, size_dns)
buf_dns ＝ 取空白字节集 (size_dns)
addr_dns ＝ 取变量地址_字节集 (buf_dns, buf_dns, 0)
如果 (GetPerAdapterInfo (AdapterInfo.Index, buf_dns, size_dns) ＝ 0)
CopyMemory_ipai (dns, addr_dns, 92)
link.DNS1 ＝ 到文本 (dns.CurrentDnsServer.IpAddress)
link.DNS2 ＝ 到文本 (dns.DnsServerList.IpAddress)
link.DNS1 ＝ “”
link.DNS2 ＝ “”

' 组合框_共享链接.加入项目 (list [i].Name, )
组合框1.加入项目 (link.连接名称, )
' 组合框1.加入项目 (到文本 (i), )
组合框1.现行选中项 ＝ i
' 输出调试文本 (link.连接名称)
' 输出调试文本 (link.名称)
' 输出调试文本 (link.Mac)
' 输出调试文本 (link.Ip)
' 输出调试文本 (link.掩码)
' 输出调试文本 (link.网关)
' 输出调试文本 (link.DNS1)
' 输出调试文本 (link.DNS2)
ppInterfaceList ＝ AdapterInfo.Next
循环判断尾 (ppInterfaceList ≠ 0)

子程序名	返回值类型	公开	备 注
_按钮3_被单击

变量名	类 型	静态	数组	备 注
b	整数型

' WlanGetInterfaceCapability (WlanHandle, InterfaceList.InterfaceGuid, 0, getinterace.dwNumberOfSupportedPhys)
' WlanQueryInterface (WlanHandle, InterfaceList.InterfaceGuid, 0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 ver, 整数型<br /> .程序集变量 InterfaceList2, WLAN_INTERFACE_INFO_LIST<br /> .程序集变量 WlanHandle, 整数型<br /> .程序集变量 WlanVersion, 整数型<br /> .程序集变量 ppInterfaceList, 整数型<br /> .程序集变量 InterfaceItems, 整数型<br /> .程序集变量 InterfaceList, WLAN_INTERFACE_INFO<br /> .程序集变量 hDevinfo, 整数型<br /> .程序集变量 spDevInfoData, 整数型<br /> .程序集变量 size_link, 整数型<br /> .程序集变量 AdapterInfo, IP_ADAPTER_INFO<br /> .程序集变量 buf_link, 字节集<br /> .程序集变量 i, 整数型<br /> .程序集变量 mac, 文本型<br /> .程序集变量 tmp, 文本型<br /> .程序集变量 buf_ip, IP_ADDR_STRING<br /> .程序集变量 link, 网卡信息_<br /> .程序集变量 size_dns, 整数型<br /> .程序集变量 dns, IP_PER_ADAPTER_INFO<br /> .程序集变量 buf_dns, 字节集<br /> .程序集变量 addr_dns, 整数型<br /> .程序集变量 getinterace, WLAN_INTERFACE_CAPABILITY<br /> .程序集变量 hw, WLAN_INTF_OPCODE<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框1.内容 ＝ “”<br /> <br /> <br /> <br /> ver ＝ 到整数 (取文本左边 (取文本zc项 (#本地机器, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion”, ), 1))<br /> ver ＝ 选择 (ver ≥ 6, 2, 1)<br /> .如果真 (WlanOpenHandle (ver, 0, WlanVersion, WlanHandle) ≠ 0)  ' 第1个参数 NT5.x 系统填1 NT6.x填2 /第1个参数 XP sp2 sp3 系统填1    vista win7 系统填2<br /> <br />     信息框 (“打开 WLAN 句柄失败”, 0, )<br /> .如果真结束<br /> <br /> 编辑框1.加入文本 (到文本 (WlanHandle) ＋ #换行符)<br /> 编辑框1.加入文本 (到文本 (WlanVersion) ＋ #换行符)<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> WlanEnumInterfaces (WlanHandle, 0, ppInterfaceList)  ' 获取网卡列表,列表的数据类型是变长的,易语言只能填定长的数据类型  所以只能传指针了<br /> InterfaceItems ＝ 取字节集数据 (指针到字节集 (ppInterfaceList, 4), 3, )  ' 列表类型前8个字节中前4字节  表示网卡数量<br /> ppInterfaceList ＝ ppInterfaceList ＋ 8  ' 后4个字节  表示欲修改网卡号码 , 只是获取网卡信息的话可以忽略 ,该参数从0开始 不是易语言的1开始<br /> 调试输出 (ppInterfaceList, InterfaceItems, WlanHandle)<br /> .计次循环首 (InterfaceItems, i)<br /> <br /> <br />     RtlMoveMemory_INTERFACE_INFO (InterfaceList2.InterfaceInfo, ppInterfaceList, 532)<br />     调试输出 (InterfaceItems)<br />     编辑框1.加入文本 (到文本 (InterfaceList2.dwIndex) ＋ #换行符)<br />     编辑框1.加入文本 (到文本 (InterfaceList2.dwNumberOfItems) ＋ #换行符)<br />     编辑框1.加入文本 (到文本 (InterfaceList2.InterfaceInfo.InterfaceGuid) ＋ #换行符)<br />     编辑框1.加入文本 (到文本 (Unicode转ANSI2 (InterfaceList2.InterfaceInfo.strInterfaceDescription)) ＋ #换行符)<br />     编辑框1.加入文本 (到文本 (ppInterfaceList) ＋ #换行符)<br />     ' 编辑框1.加入文本 (到文本 (InterfaceList.isState.enum) ＋ #换行符)  ' 连接状态 4断开  1连接<br />     ' 编辑框1.加入文本 (到文本 (Unicode转ANSI2 (InterfaceList.strInterfaceDescription)) ＋ #换行符)  ' 网卡名字<br />     调试输出 (InterfaceList2.dwIndex, InterfaceList2.dwNumberOfItems, InterfaceList2.InterfaceInfo.InterfaceGuid, Unicode转ANSI2 (InterfaceList2.InterfaceInfo.strInterfaceDescription))<br />     .如果 (InterfaceList.isState.enum ＝ 4)  ' isState是枚举类型 1为正常连接, 4为断开连接<br />         编辑框1.加入文本 (“断开中” ＋ #换行符)<br />     .否则<br /> <br />     .如果结束<br /> <br />     .如果真 (InterfaceList.isState.enum ＝ 1 或 InterfaceList.isState.enum ＝ 7)<br />         编辑框1.加入文本 (“连接中” ＋ #换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> WlanCloseHandle (WlanHandle, 0)<br /> <br /> <br /> .子程序 Unicode转ANSI2, 文本型<br /> .参数 Char, 字节型, 数组<br /> <br /> 返回 (到文本 (子字节集替换 (到字节集 (Char), { 0 }, {  }, , )))<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 取网卡信息 ()<br /> <br /> <br /> .子程序 取网卡信息, , , 'code by 笨笨<br /> <br /> GetAdaptersInfo ({ 0 }, size_link)<br /> buf_link ＝ 取空白字节集 (size_link)<br /> ppInterfaceList ＝ 取变量地址_字节集 (buf_link, buf_link, 0)<br /> 调试输出 (size_link, buf_link, ppInterfaceList)<br /> <br /> .如果真 (GetAdaptersInfo (buf_link, size_link) ＝ 0)<br />     .循环判断首 ()<br />         CopyMemory_iai (AdapterInfo, ppInterfaceList, 640)<br /> <br />         link.名称 ＝ 到文本 (AdapterInfo.Description)<br /> <br />         mac ＝ “”<br />         .计次循环首 (AdapterInfo.AddressLength － 1, i)<br />             tmp ＝ 取十六进制文本 (AdapterInfo.Address <i>)<br />             mac ＝ mac ＋ 选择 (tmp ＝ “0”, “00”, tmp) ＋ “-”<br />         .计次循环尾 ()<br />         mac ＝ 取文本左边 (mac, 取文本长度 (mac) － 1)<br />         link.Mac ＝ mac<br /> <br />         CopyMemory_ias (buf_ip, AdapterInfo.IpAddressList, 40)<br />         link.Ip ＝ 到文本 (buf_ip.IpAddress)<br />         link.掩码 ＝ 到文本 (buf_ip.IpMask)<br /> <br />         CopyMemory_ias (buf_ip, AdapterInfo.GatewayList, 40)<br />         link.网关 ＝ 到文本 (buf_ip.IpAddress)<br /> <br />         link.连接名称 ＝ 取文本zc项 (4, “SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\” ＋ 到文本 (AdapterInfo.AdapterName) ＋ “\Connection\Name”, )<br /> <br />         size_dns ＝ GetPerAdapterInfo (AdapterInfo.Index, buf_dns, size_dns)<br />         buf_dns ＝ 取空白字节集 (size_dns)<br />         addr_dns ＝ 取变量地址_字节集 (buf_dns, buf_dns, 0)<br />         .如果 (GetPerAdapterInfo (AdapterInfo.Index, buf_dns, size_dns) ＝ 0)<br />             CopyMemory_ipai (dns, addr_dns, 92)<br />             link.DNS1 ＝ 到文本 (dns.CurrentDnsServer.IpAddress)<br />             link.DNS2 ＝ 到文本 (dns.DnsServerList.IpAddress)<br />         .否则<br />             link.DNS1 ＝ “”<br />             link.DNS2 ＝ “”<br />         .如果结束<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br />         ' 组合框_共享链接.加入项目 (list <i>.Name, )<br />         组合框1.加入项目 (link.连接名称, )<br />         ' 组合框1.加入项目 (到文本 (i), )<br />         组合框1.现行选中项 ＝ i<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br />         ' 输出调试文本 (link.连接名称)<br />         ' 输出调试文本 (link.名称)<br />         ' 输出调试文本 (link.Mac)<br />         ' 输出调试文本 (link.Ip)<br />         ' 输出调试文本 (link.掩码)<br />         ' 输出调试文本 (link.网关)<br />         ' 输出调试文本 (link.DNS1)<br />         ' 输出调试文本 (link.DNS2)<br /> <br />         ppInterfaceList ＝ AdapterInfo.Next<br />     .循环判断尾 (ppInterfaceList ≠ 0)<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 b, 整数型<br /> <br /> ' WlanGetInterfaceCapability (WlanHandle, InterfaceList.InterfaceGuid, 0, getinterace.dwNumberOfSupportedPhys)<br /> ' WlanQueryInterface (WlanHandle, InterfaceList.InterfaceGuid, 0)

指尖流淌

还没弄过多网卡的，坐等大佬回复

gongtengbsg

现在不知道是用错api了还是哪里写错了，无语

奏鸣曲

单个网卡的只能看看