Steven Martin ( Shim Ai QiWang ) :: Membuat Sistem Cek Koneksi Internet VB 6.0

Kode Fungsi ini untuk mencegah jalanya program sebelum koneksi internet dihidupkan. Semoga bermanfaat sobat dan berikut kodenya :

'=========================================================
' Internet Connection Checker
' --------------------------------
' Author  : Stephanus B.S (Shim Ai QiWang)
' Website : www.shimaiqiwang.blogspot.com
' Source  : http://shimaiqiwang.blogspot.com/2013/12/membuat-sistem-cek-koneksi-internet-vb.html
' Lisence : http://creativecommons.org/licenses/by/4.0/
' Copyleft (c)2013 Shim Ai QiWang. All Rights Reseverd.
'=========================================================

    Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
     
    Dim sConnType As String * 255
     
    Sub CheckNetCon()
    Dim Ret As Long
    Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
    If Ret = 1 Then
    MsgBox "You are connected to Internet via a " & sConnType, vbInformation
    Else
    MsgBox "You are not connected to internet", vbInformation
    End If
     
    End Sub

---

Demikian selesainya Artikel diatas. Kiranya dapat menambah wawasan ilmu pengetahuan, Semoga dapat bermanfaat. Jadilah Orang yang baik dan berguna untuk menjunjung tinggi nama bangsa. Perbanyak kebaikan, maka indah pada waktunya.

Teman-Teman, Sobat Penggemar Komputer Jangan Lupa memberi Sumber di Blog atau Project Aplikasi kamu ya?
Source : http://shimaiqiwang.blogspot.com/2013/12/membuat-sistem-cek-koneksi-internet-vb.html

Source : 
http://shimaiqiwang.blogspot.com/2013/12/membuat-sistem-cek-koneksi-internet-vb.html

Atas Perhatian dan kunjungannya, Shim Ai QiWang™ mengucapkan terima kasih...

Dengan Hormat,

Shim Ai QiWang ™