Memeriksa status koneksi internet dengan Visual basic.net

TEORI : 

Kali ini bahasaprogramvb.blogspot.com akan sharing cara mengetahui koneksi internet dalam keadaan aktif atau tidak, langsung saja

Microsoft WinINet API memungkinkan aplikasi untuk mengakses protokol Internet standar, seperti FTP dan HTTP.

Banyak dari kita ingin tahu apakah komputer memiliki koneksi internet aktif sebelum mencoba untuk terhubung ke internet menggunakan beberapa antarmuka komunikasi. Kita bisa menentukan dengan menggunakan salah satu fungsi WinINet untuk memeriksa status koneksi internet di komputer.

   Private Declare Function InternetGetConnectedState Lib "WinInet"(ByRef konek As Long, ByVal      val As Long) As Boolean

Fungsi InternetGetConnectedState mengambil keadaan terhubung dari sistem lokal. Nilai pengembalian true dari InternetGetConnectedState menunjukkan bahwa setidaknya satu koneksi ke Internet tersedia.

Berikut Source code :

Imports System.Runtime.InteropServices

Public Class Form1
 Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef conn As Lon        g, ByVal val As Long) As Boolean

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArg        s) Handles Button1.Click
  Dim Out As Integer
  If InternetGetConnectedState(Out, 0) = True Then
   messagebox.show("Status terkoneksi !")
  Else
   messagebox.show("Status tidak terkoneksi !")
  End If
 End Sub
End Class

Selamat Mencoba, Semoga berhasil