Sub Test_Internet_Connection
Dim p As Phone
Dim overall_data_state As Int
Dim cellular_data_state As Int
'0 Disabled - 1 Enabled. May also return a 3 in enabled state but I can find no explanation of the return values
'Note: Turning on airplane mode is not the same as disabling wifi
Dim wifi As Int = p.GetSettings ("wifi_on")
'Msgbox("Wi-Fi value is: " & wifi, "")
Dim airplane_mode As Int = p.GetSettings ("airplane_mode_on")
'Msgbox("Airplane mode value is: " & airplane_mode, "")
...
...