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
0 komentar:
Posting Komentar