Imports System

Public Module Module1

​

    dim IS_MTWS_CELLULAR As     Int64 = &H20000000 'MTWS cellular

    dim IS_IDPOIP_CELLULAR As   Int64 = &H200000000 'IDPoIP cellular

    dim IS_AUTO_ACTIVATION As   Int64 = &H8000000000

    Public Sub Main()

​

        'dim val as long = 26306674690

        dim val as long = 26331840514

        'dim val as long = 2

        console.WriteLine(IS_AUTO_ACTIVATION)

        'console.WriteLine(val)

        if (GetIIG(val)) then

            console.writeline("IIG: Enabled")

        else

            console.writeline("IIG: Disabled")

        end if

        if (val And IS_AUTO_ACTIVATION) > 0 then

            console.WriteLine("Auto-Activation: Enabled")

        else

            console.WriteLine("Auto-Activation: Disabled")

        end if

    End Sub

    Private Function GetIIG(ByVal mt_features As Long) As Boolean

        If (mt_features And IS_MTWS_CELLULAR) > 0 OrElse (mt_features And IS_IDPOIP_CELLULAR) > 0 Then

            Return True

        Else

            Return False

        End If

    End Function    

End Module