Re: [Programmer-VB] Bagaimana Auto Detect Koneksi Internet?

Wed, 31 May 2006 02:00:28 -0700

Mas Ronald, sebelumnya saya sudah coba masukkan di Timer.
Tapi menyebabkan Durasi Detik pada text1, tersendat-sendat. Coba lihat kode dibawah ini.
 
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
 
Private Sub cmdKoneksi_Click()
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
    If InternetCheckConnection("http://www.microsoft.com", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
        MsgBox "No internet connection detected...", vbInformation
        Timer2.Enabled = False
    Else
        Timer2.Enabled = True
    End If
End Sub
 
Private Sub Timer2_Timer()
    Text1 = Time$
End Sub
 
Kode diatas saya buat pada program billing pemakaian Internet dengan menggunakan Telkomnet Instan. Jadi, jika ada koneksi Internet, baru perhitungan Durasi Pemakaian dan Harga dimulai. Jika koneksi Internet Disconnect, maka Perhitungan Durasi dan Harga, Berhenti.
 
Masalahnya, jika saya menggunakan Timer untuk mendeteksi ada atau tidaknya koneksi, Durasi Waktu yang ada pada text1, tersendat-sendat.
----- Original Message -----
Sent: Wednesday, May 31, 2006 2:34 PM
Subject: Re: [Programmer-VB] Bagaimana Auto Detect Koneksi Internet?


Masukin aja ke timer, jgn di event...

Salam
Ronald Irawan
Pt. Sanghiang Perkasa
Gd. Graha Kirana Lt.5
Jl Yos Sudarso Kav.88
Jakarta


"Frangky" <[EMAIL PROTECTED]>
Sent by: [email protected]

31/05/2006 01:23 PM

Please respond to
[email protected]
To
<[email protected]>
cc
Subject
[Programmer-VB] Bagaimana Auto Detect Koneksi Internet?





Yth. Teman-teman milis.
 
Untuk mendeteksi ada atau tidak koneksi internet saya menggunakan code dibawah ini:
 
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
 
Private Sub cmdKoneksi_Click()
   If InternetCheckConnection("http://www.microsoft.com", FLAG_ICC_FORCE_CONNECTION, 0&) = 1 Then
       MsgBox "Internet connection detected...", vbInformation
   Else
       MsgBox "No internet connection detected...", vbInformation
   End If
End Sub
 
 
Permasalahannya:
Program yang saya buat dengan kode diatas, hanya bisa tahu ada atau tidak koneksi internet kalau saya klik Tombol cmdKoneksi.
Yang saya inginkan adalah, bagaimana membuat program saya ini agar selalu mendeteksi ada atau tidak koneksi Internet pada saat program sedang berjalan.
 
 
Terima kasih, bagi teman-teman yang bisa membantu.


Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
   http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
   [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
   Yahoo! Messenger: wahanaprogrammer

SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language


YAHOO! GROUPS LINKS





Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke