Sub GetWifiInfo As ResumableSub
Dim p As Phone
Dim WifiManager As JavaObject
Dim WifiInfo As JavaObject
WifiManager = WifiManager.InitializeContext.RunMethod("getSystemService", Array("wifi"))
If p.SdkVersion >= 27 Then
Dim rp As RuntimePermissions
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then Return WifiInfo
End If
WifiInfo = WifiManager.RunMethod("getConnectionInfo", Null)
Return WifiInfo
End Sub