本人想知道无线网卡接收到的一个AP的信号强度，了解了一下子调用Windows的WIFi的API就可以，那位提供个VB6.0的例子，在此谢过！

本人想知道无线网卡接收到的一个AP的信号强度，了解了一下调用Windows的WIFi的API就可以，那位提供个VB6.0的例子，在此谢过！！！
本人想知道Windows系统下的无线网卡接收到的一个AP的信号强度，比如说当前PC接入的AP名字是ABC（当前使用ABC上网），我想实时的获取PC接收的ABC的信号强度情况,我的理解是直接调用Windows的WIFi的API,但在找不到VB6.0版，希望路过的或者专程进来解答问题的能够指点一二，在此谢过
------解决方案--------------------

Imports System.Management

 

Public Function GetSignalStrength() As String

 On Error GoTo oops

 

Dim query As ManagementObjectSearcher

 Dim Qc As ManagementObjectCollection

 Dim Oq As ObjectQuery

 Dim Ms As ManagementScope

 Dim Co As ConnectionOptions

 Dim Mo As ManagementObject

 Dim outp As String

 

Co = New ConnectionOptions

 Ms = New ManagementScope("root\wmi")

 Oq = New ObjectQuery("SELECT * FROM MSNdis_80211_ReceivedSignalStrength Where active=true")

 query = New ManagementObjectSearcher(Ms, Oq)

 Qc = query.Get

 outp = ""

 

For Each Mo In query.Get

 outp = outp & Mo("Ndis80211ReceivedSignalStrength") & " "

 ISIPActive = Mo("Active")

 Next

 

Return Trim(outp)

 Exit Function

 oops:

 Return Err.Description

 End Function