[VB 6.0] Internet Status

Kali ini saya akan share kode untuk mengecek koneksi internet. Hal ini mungkin dapat membantu dalam pembuatan suatu aplikasi yang membutuhkan koneksi internet. Oke langsung saja ya.

Buat sebuah modul dan ketik:

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

Untuk menggunakan ketik:

IsConnected

Contoh bisa gunakan Command Button untuk mengeceknya dengan kode:

Private Sub Command1_Click()
If IsConnected = True Then
MsgBox "Connected", vbInformation + vbOKOnly, "Status"
Else
MsgBox "Not Connected", vbInformation + vbOKOnly, "Status"
End If
End Sub

DOWNLOAD PROJECT