Cek Koneksi Internet dengan VB 2010

Pada siang hari yang sedikit mendung ini, saya akan bagikan sebuah source code VB 2010 (Visual Basic .NET) untuk mengecek apakah komputer/laptop kita terkoneksi dengan internet.

OK, langsung saja simak contoh penggunaannya.

1. Jalankan aplikasi Visual Studio 2010 Anda.
2. Buat Project baru dengan cara klik menu File --> New Project.
3. Setelah itu pilih Visual Basic --> .NET Framework 2.0 --> Windows Forms Application --> Klik OK. Lihat gambar.

4. Pada Form yang aktif tambahkan 1 Button lalu atur Properties Text=Cek Koneksi Internet dan Name=btCekStatus.
5. Klik 2x (Double click) Button Cek Koneksi Internet dan pada Private Sub btCekStatus_Click(...) copy paste kode di bawah ini.

Dim isAvailable As Boolean
isAvailable = My.Computer.Network.IsAvailable
If isAvailable = False Then
   MsgBox("Tidak terkoneksi.", vbCritical, "Error")
Else
End If

6. Sekarang jalankan program dengan menekan tombol F5 pada keyboard.
7. Selanjutnya tekan tombol Cek Koneksi Internet.

Jika komputer Anda terkoneksi maka akan muncul pesan seperti di bawah ini.

Sedangkan kalau komputer Anda tidak terkoneksi maka akan muncul pesan seperti di bawah ini.

Selesai dan terima kasih. Untuk mendapatkan contoh programnya dapat di download melalui tombol download di bawah ini.