iOS Question How do I check if airplane mode is on?

[davepamn]

b4a:
    Dim oPhone As Phone

        If oPhone.IsAirplaneModeOn=True Then

            bRetVal=False

            Return(bRetVal)

        End If

This b4a code does not work for b4i

b4a:
If oPhone.GetSettings("wifi_on")<>1 Then

            bRetVal=False

            Return(bRetVal)

        EndIf

How do I determine if Wifi is on in b4i

 

[davepamn]

Sub Class_Globals
    Dim myLan As ServerSocket
end sub
Sub PingServer As Boolean

    Dim bRetVal As Boolean=False

    Dim sDeviceIP As String

    sDeviceIP=myLan.GetMyIP

    If sDeviceIP<>"127.0.0.1" Then

            bRetVal=True

            Return(bRetVal)

    End If

    sDeviceIP=myLan.GetMyWifiIP

    If sDeviceIP="127.0.0.1" Then

            bRetVal=False

            Return(bRetVal)

    End If
return(bRetVal)
end sub

I need to be able to determine if 1) airplane mode is on and 2) if wifi is on and 3) if the phone is connected to the network.

 

[Erel]

The code you posted looks correct.

 

[tucano2000]

What is the declaration myLan in the above code ?

 

[davepamn]

Sub Class_Globals
Dim myLan As ServerSocket
end sub

 

[tucano2000]

Sub Class_Globals
Dim myLan As ServerSocket
end sub

Thanks

 

[John Sparrow]

I have tried the code above but get the Warning "Variable 'myLan' was not initialized. (warning #11)."

When I try to initialize with "myLan.Initialize(0,"")", I get the error "_newconnection: event not found"

I have also tried to step through alternative ports by using:

Dim MyPort As Int = 0
Dim Sw As Boolean = False
Do While Sw = False
Try
myLan.Initialize(MyPort, "")
Sw = True
Catch
MyPort = MyPort + 1
End Try
Loop

but I still get the same error message.

How can I initialize the ServerSocket to avoid the warning?

 

[Erel]

Please use [code]code here...[/code] tags when posting code.

You don't need to initialize it.
You can add an 'ignore comment on the relevant line to suppress the warning.

 

[John Sparrow]

OK Thanks