Android Question ABFoundLocation How to?

This library allows you to get Wifi information.
Extra added is a location function
It uses the Wifi Signal and GSM Triangulation to get the latitude and longitude of the device
without an active GPS.

Click to expand...

Sub Process_Globals
Dim myWifi As ABWifi
End Sub

Sub Globals
Dim Button1 As Button
End Sub

Sub Button1_Click
Dim r As Boolean
r = myWifi.ABGetLocation("myWifi")
If r = False Then
Msgbox (myWifi.ABWifiLastError(), "")
End If
End Sub

Sub myWifi_FoundLocation ()
Dim ResLocation As ABFoundLocation
resLocation = myWifi.ABGetFoundLocation()
Msgbox ("" & ResLocation.Latitude & " - " & ResLocation.Longitude, "")
End Sub

Click to expand...