Android Question UnknownHostException: Unable to resolve host "example.com"

Sub Ping
    Try
        Dim httpJ As HttpJob
        httpJ.Initialize("jobPING", Me)
        
        httpJ.Download("https://status.llavemovil.com/")
        httpJ.GetRequest.Timeout=1500
    Catch
        Log(LastException)
    End Try
End Sub
    
Sub pingTimer_Tick
    Ping
End Sub
Sub JobDone (Job As HttpJob)
    xc.pdh
    If Job.JobName="jobPING" Then
        If Job.Success Then
            Main.kvs.Put("internetConnection", True)
        Else
            Main.kvs.Put("internetConnection", False)
        End If
        CallSub(Me, "internetAccess")
    End If
    Job.Release
End Sub

Sub pingTimer_Tick
    
    Try
        Dim jobLocal As HttpJob
        jobLocal.Initialize("", Me)
        jobLocal.Download("https://status.llavemovil.com/")
        jobLocal.GetRequest.Timeout=1500
        Wait For(jobLocal) JobDone(jobLocal As HttpJob)
        Main.kvs.Put("internetConnection", jobLocal.Success)
        jobLocal.Release
        CallSub(Me, "internetAccess")
    Catch
        Log(LastException)
    End Try
End Sub

Sub BroadcastReceiver_OnReceive (Action As String, i As Object)
    Dim retIn As Intent
    retIn = i
    Dim IsConnected As String
    Dim TheType As String
 
    If Action = "android.net.conn.CONNECTIVITY_CHANGE" Then

        Dim jo As JavaObject = retIn
        Dim NetworkInfo As JavaObject = jo.RunMethod("getParcelableExtra", Array("networkInfo"))
        TheType = NetworkInfo.RunMethod("getTypeName", Null)
        IsConnected = NetworkInfo.RunMethod("getState", Null)
        If TheType.ToUpperCase="MOBILE" And IsConnected.ToUpperCase="CONNECTED" Then CallSub2(Main, "PreferMobileRouting", True)
    End If
    BroadCast.AbortBroadcast
End Sub

Sub PreferMobileRouting(prefer As Boolean) As ResumableSub
    Dim p As Phone
    If p.SdkVersion >= 21 Then
        
'    Else
'        builder.RunMethod("addTransportType", Array(0))
'        builder.RunMethod("addTransportType", Array(1))
'        builder.RunMethod("addCapability", Array(12)) 'NetworkCapabilities.NET_CAPABILITY_INTERNET
'        Log("NET_CAPABILITY_INTERNET")

        
        If prefer Then
            Dim ctxt As JavaObject
            ctxt.InitializeContext
        
            Dim manager As JavaObject = ctxt.RunMethod("getSystemService", Array("connectivity"))
        
            Dim builder As JavaObject
            builder.InitializeNewInstance("android.net.NetworkRequest.Builder", Null)
            builder.RunMethod("addTransportType", Array(0)) 'NetworkCapabilities.TRANSPORT_CELLULAR
            Log("TRANSPORT_CELLULAR")
        
            Dim event As JavaObject
            event.InitializeNewInstance(Application.PackageName & ".main$NetworkCallback", Null)
            manager.RunMethod("requestNetwork", Array(builder.RunMethod("build", Null), event))
            Wait For network_available (Network As Object)
            Log("Network found.")
            Log(Network) '<--THIS ID CHANGES EVERY TIME THE MODEM RESTARTS OR RESETS
            Dim cm As JavaObject
            Return (cm.InitializeStatic("android.net.ConnectivityManager").RunMethod("setProcessDefaultNetwork", Array(Network)))
        End If
    End If
    Return False
End Sub