| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 The following code demonstrates how to determine if a machine is connected to the internet (+ how the machine is connected). \par \par Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" Alias "InternetGetConnectedStateExA" _ \par (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Long, ByVal _ \par dwReserved As Long) As Boolean \par \par Public Enum eConnectionType \par INTERNET_CONNECTION_MODEM = &H1& \par INTERNET_CONNECTION_LAN = &H2& \par INTERNET_CONNECTION_PROXY = &H4& \par INTERNET_RAS_INSTALLED = &H10& \par INTERNET_CONNECTION_OFFLINE = &H20& \par INTERNET_CONNECTION_CONFIGURED = &H40& \par End Enum \par \par 'Purpose : Determines basic information regarding the local machine's internet connection state. \par 'Inputs : sConnectionName See outputs. \par ' eType See outputs. \par 'Inputs : Returns True if connected + \par ' sConnectionName The name of the internet connection \par ' eType The type of internet connection (see eConnectionType) \par 'Author : Andrew Baker \par 'Date : 25/03/2001 \par 'Notes : \par \par Public Property Get InternetConnected(Optional ByRef sConnectionName As String, Optional ByRef eType As eConnectionType) As Boolean \par Dim sConNameBuffer As String * 513 \par Dim lPos As Long \par \par 'Clear output values \par sConnectionName = "" \par eType = 0 \par \par 'Call API \par InternetConnected = InternetGetConnectedStateEx(eType, sConNameBuffer, 512, 0&) \par \par 'Clean up output \par lPos = InStr(sConNameBuffer, vbNullChar) \par If lPos > 0 Then \par sConnectionName = Left$(sConNameBuffer, lPos - 1) \par End If \par End Property \par \par \par 'Test routine \par Private Sub Form_Load() \par Dim eType As eConnectionType \par Dim sName As String \par \par 'Determine whether we have a connection: \par If InternetConnected(sName, eType) Then \par MsgBox "Connected to internet using '" & sName & "' ", vbInformation \par Else \par MsgBox "Not connected to internet ", vbInformation \par End If \par End Sub \par } |
Determine if a computer is connected to the intern |
India web developer web development India | India web development company India ecommerce web developer