Description

 

Retrieves the mode of internet connection.

 

Syntax

 

Mode = INET_GetConnectionMode()

 

Returns

 

Number.

See module equates for return codes. Use AND clause to get specific modes.

 

Parameters

 

 

Remarks

 

Restrictions

 

See also

 

INET_GetState

 

Examples

 

USES "INET"

 

Function DecodeConnectionMode(iMode As Long) As String 

  Dim sMode As String

 

  If iMode And %INTERNET_CONNECTION_MODEM       Then sMode += "Modem"                  & $CRLF

  If iMode And %INTERNET_CONNECTION_LAN         Then sMode += "Lan"                    & $CRLF

  If iMode And %INTERNET_CONNECTION_PROXY       Then sMode += "Proxy"                  & $CRLF

  If iMode And %INTERNET_CONNECTION_MODEM_BUSY  Then sMode += "ModemBusy"              & $CRLF

  If iMode And %INTERNET_RAS_INSTALLED          Then sMode += "RasInstalled"           & $CRLF

  If iMode And %INTERNET_CONNECTION_OFFLINE     Then sMode += "ConnectionOffLine"      & $CRLF

  If iMode And %INTERNET_CONNECTION_CONFIGURED  Then sMode += "ConnectionConfigured"   & $CRLF 

 

  Function = sMode

 

End Function

 

DIM iMode AS LONG = INET_GetConnectionMode

 

MSGBOX 0, DecodeConnectionMode(iMode)