Italian Controllo 3g o Wifi

[silvercast]

Ciao,

Sto effettuando un controllo che all'apertura della mia App verifico che la connessione è 3g o Wifi usando la libreria ToogleLibrary con questo il codice

If TGL.WiFi=True OR TGL.DataConnection=False OR TGL.AirplaneMode=True Then
Msgbox("Per Utilizzare L'APP devi connetterti con l'APN ****","Avviso")
ExitApplication
Else

WebView1.LoadUrl("http://***************")

End If

problemi:
a) cosi come impostata se il wifi è attivo ma non connesso e 3g attivo mi bloccata applicazione,
esiste un modo per il controllo della connessione wifi ad AP?

grazie

 

[djveleno]

Ho creato al volo questa piccola applicazione, ho usato 3 label 1 button 1 webview, label e button mi servono solo per un controllo visivo, in realtà si possono anche nascondere o non usare, fatto il controllo dell'attivazione 3G o WiFi mi connetto all'URL, se non c'è connessione un message box mi avvisa ed esce dall'app.

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim tgl As Toggle
   
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim btnExit As Button
    Dim lbl3G As Label
    Dim lblAir As Label
    Dim lblWiFi As Label
    Dim WebView1 As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")
    tgl.Initialize()
   
    If tgl.DataConnection = True Then
    lbl3G.Text = "3G OK"
    Else
    lbl3G.Text = "3G KO"
    End If
    If tgl.WiFi = True Then
    lblWiFi.Text = "WiFi OK"
    Else
    lblWiFi.Text = "WiFi KO"
    End If
    If tgl.AirplaneMode = True Then
    lblAir.Text = "AirPlane Mode OK"
    Else
    lblAir.Text = "AirPlane Mode KO"
    End If
    If tgl.DataConnection = True OR tgl.WiFi = True OR tgl.AirplaneMode = False Then
    WebView1.LoadUrl("http://www.google.it")
    Else
    Msgbox("Devi connetterti con 3G o WiFi", "Connessione Mancante")
    ExitApplication
    End If
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnExit_Click
    ExitApplication
End Sub

A me funziona bene.
Samsung Galaxy S3