Status Koneksi Internet

Terkadang aplikasi memerlukan koneksi internet, entah untuk mengakses sebuah web atau memeriksa update aplikasi terbaru. Agar tidak terjadi bug/ error, maka perlu adanya pengetesan status ada atau tidaknya koneksi internet yang terhubung dengan komputer.

[ VB 6.0 ]
Buat sebuah Module dan ketikkan :

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 mencobanya Anda bisa mengetikkan kode berikut :

MsgBox IsConnected, , "Status Internet"

[ VB .NET ]
Untuk mencobanya Anda bisa mengetikkan langsung kode berikut :

Dim n As New Devices.Network
MsgBox(n.IsAvailable, , "Status Internet")