PERHATIAN

Password semua file download:
"softbimantoro"

Sabtu, 19 November 2011

[VB 6.0] Internet Status

Posted by b_agoy 09.01, under | No comments


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

Blog Archive

Arsip Blog