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