取WIFI信息工具例子

WlanEnumInterfaces (WlanHandle, 0, ppInterfaceList) ' 获取网卡列表,列表的数据类型是变长的,易语言只能填定长的数据类型 所以只能传指针了
InterfaceItems ＝ 取字节集数据 (指针到字节集 (ppInterfaceList, 4), #整数型, ) ' 列表类型前8个字节中前4字节 表示网卡数量
ppInterfaceList ＝ ppInterfaceList ＋ 8 ' 后4个字节 表示欲修改网卡号码 , 只是获取网卡信息的话可以忽略 ,该参数从0开始 不是易语言的1开始
.计次循环首 (InterfaceItems, i)
RtlMoveMemory_INTERFACE_INFO (InterfaceList, ppInterfaceList, 532)
' 调试输出 (InterfaceList.InterfaceGuid, InterfaceList.isState.enum, Unicode转ANSI2 (InterfaceList.strInterfaceDescription))
.如果真 (InterfaceList.isState.enum ＝ 1 或 InterfaceList.isState.enum ＝ 4) ' isState是枚举类型 1为正常连接, 4为断开连接
跳出循环 () ' 调试输出 (WlanDisconnect (WlanHandle, InterfaceList.InterfaceGuid, 0))
.如果真结束

.计次循环尾 ()
' WlanScan (WlanHandle, InterfaceList.InterfaceGuid, 0, 0, 0) ' 该函数用于刷新附近无线网络 调用WlanGetAvailableNetworkList前最好刷新一下,不然获取的是旧信息。