simply search the MSDN libraries:
http://msdn.microsoft.com/library/de...yFunctions.asp
and
http://msdn.microsoft.com/library/de...02_11_RSSI.asp
or if you don't have Windows CE
http://msdn.microsoft.com/library/de...f8bc18.xml.asp (Windows DDK)
Or use WMI solution
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
Why be sorry for W2K?? I really like working with it, should be a bit cheaper though.