VB6 Code - Memeriksa Apakah Komputer Terhubung Ke Internet

Di bawah ini merupakan fungsi VB6 untuk memeriksa sebuah komputer terhubung ke internet atau tidak?. Adapun kode VB6 untuk memeriksa sebuah komputer apakah terhubung ke internet adalah sebagai berikut:

Option Explicit

Private Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
Private Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
'
Const RAS95_MaxEntryName = 256
Const RAS95_MaxDeviceType = 16
Const RAS95_MaxDeviceName = 32
'
Private Type RASCONN95
   dwSize As Long
   hRasCon As Long
   szEntryName(RAS95_MaxEntryName) As Byte
   szDeviceType(RAS95_MaxDeviceType) As Byte
   szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
'
Private Type RASCONNSTATUS95
   dwSize As Long
   RasConnState As Long
   dwError As Long
   szDeviceType(RAS95_MaxDeviceType) As Byte
   szDeviceName(RAS95_MaxDeviceName) As Byte
End  Type

Private Function IsConnected() As Boolean
'
   Dim TRasCon(255) As RASCONN95
   Dim lg As Long
   Dim lpcon As Long
   Dim RetVal As Long
   Dim Tstatus As RASCONNSTATUS95
   '
   TRasCon(0).dwSize = 412
   lg = 256 * TRasCon(0).dwSize
   '
   RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
   If RetVal <> 0 Then
       MsgBox "ERROR "
       Exit Function
   End If
   '
       Tstatus.dwSize = 160
       RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
   If Tstatus.RasConnState = &H2000 Then
       IsConnected = True
   Else
       IsConnected = False
   End If
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
   MsgBox IsConnected
End Sub

Demikian mengenai fungsi VB6 untuk memeriksa apakah sebuah komputer terhubung ke internet?