Getting IP, Subnet Mask, DNS and Default Gateway

        Log("Point12")
       
        Try
            For i = 0 To 3
                iIP = Val(sCurrentIP(i).Trim)
                iNetMask = Val(sNetMask(i).Trim)
                sTmp = DecToBin(iNetMask,8)
                sTmp = ReverseBits(sTmp)
                iNetMask = BinToDec(sTmp)
                sBCAddr = sBCAddr & Bit.Or(iIP,iNetMask)
                If i < 3 Then sBCAddr = sBCAddr & "."
            Next
        Catch
            Log(LastException)
        End Try

       
        ProgressDialogHide
       
        Log("Point13")

        Try
            sLease = NumberFormat(sLease / 60, 0, 2)
        Catch
            Log(LastException)
        End Try
       
                               
        Log("Point14")
       
        Return  "Model: " & sModel & CRLF & _
                                        "Android version: " & sVersion & CRLF & _
                "SDK:    " & sSdk & CRLF & CRLF & _
                "Wifi Interface: " & sWifi & CRLF & _
                "IP Address: " & sIP & CRLF & _
                "Subnet Mask: " & sMask & CRLF & _
                "Broadcast Addr.: " & sBCAddr & CRLF & _
                "Default Gateway: " & sGate & CRLF & _
                "DNS #1: " & sD1 & CRLF & _
                "DNS #2: " & sD2 & CRLF & _
                "Lease time: " & sLease & " minutes" & CRLF
    Else
        Return "Wifi Interface not found."
    End If

Dim ServerSocket1 As ServerSocket
Dim sNetMask1 As String

    sb.Initialize
    P.Shell("ifconfig", Null, sb, Null)
    ' Log(sb.ToString)
 
    '"inet addr:192.168.1.30  Bcast:192.168.1.255  Mask:255.255.255.0"
    PropData = Regex.Split(CRLF,sb.ToString)
 
    For i = 0 To PropData.Length - 1
        '
        If PropData(i).Contains("inet addr:" & ServerSocket1.GetMyIP) Then
            sNetMaskPoint1 = PropData(i).IndexOf("Mask:")
            sNetMask1 = PropData(i).SubString(sNetMaskPoint1 + 5)
            Log(sNetMask1)
            Exit
        End If
    Next

..
Dim pattern As String
pattern = "Mask:\b\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\b"
Dim Matcher1 As Matcher
Matcher1 = Regex.Matcher(pattern, New)
Log(Matcher1.Match) '-->Mask:255.255.255.0
..