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

[Frangky]

 Mas Pur, maaf saya tidak mengerti dengan pernyataan Mas untuk menambahkan doevent sebelum internetcheckconnection. Apakah seperti ini? If doevent InternetCheckConnection("http://www.microsoft.com ", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then   Mohon penjelasan dari Mas Pur.   Terima kasih. ----- Original Message ----- From: Purwedi Kurniawan To: Programmer-VB@yahoogroups.com Sent: Wednesday, May 31, 2006 5:10 PM Subject: Re: [Programmer-VB] Bagaimana Auto Detect Koneksi Internet? kalau ditambahkan doevents sebelum internetcheckconnection gimana?   best regards [wwn]   On 5/31/06, Frangky <[EMAIL PROTECTED]> wrote: 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. 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  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.