Membuat Link Situs langsung dan cek koneksi internet dari VB6

Malam ini iseng iseng pengen buat supaya aplikasi pas dibuka bisa cek koneksi internet di PC kita, dan jika ternyata ada koneksi internet maka aplikasi akan dilajutkan dan membuka beberapa situs reperensi langsung aja cekidot . . .

1. Buka Visual Basic 6 dan buat Form
2. Buat private deklasi seperti dibawah ini

'Private deklarasi untuk membuka situs langsung
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Private deklarasi untuk cek koneksi internet
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Integer, ByVal dwReserved As Integer) As Integer 
Public Function IsConnected() As Boolean 
IsConnected = InternetGetConnectedState(0, 0) 
End Function

3. Pada Form_Load ketikan kode seperti dibawah ini

If IsConnected = True Then
  Msgbox "Komputer anda terkoneksi ke Internet .",vbInformation, "Status Internet" 

'mengarahkan pada link situs

ShellExecute 0, vbNullString, "http://ingatlupalupa.blogspot.com", vbNullString, vbNullString, vbNormalFocus
Else
  Msgbox "Komputer anda tidak terkoneksi ke Internet !", vbExclamation, "Status Internet"
End If

Selesai coba jalan kan program dan lihat yang terjadi . . .