本人想知道无线网卡接收到的一个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版，希望路过的或者专程进来解答问题的能够指点一二，在此谢过

[解决办法]

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