Headlines News :
Home » , , , , » Membuat Sistem Cek Koneksi Internet VB 6.0

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

Written By Stephanus Bagus Saputra on Minggu, 29 Desember 2013 | 15.30

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 ™
Share this post :

Posting Komentar

 
Copyright © 2011. Steven Martin ( Shim Ai QiWang ) - All Rights Reserved
Support : 4Shared | Media Fire | Indo Webster
Created by Steven Martin
Powered by Blogger