Internet var mı yok mu?
Gönderilme zamanı: 16 Mar 2008, 13:01
Merhaba Asagıdaki kod adsl uzerinden internet baglananlar
icin internet varmi yokmu diye kotrol yapip deger geri gonderiyor. Projeye
msinet.ocx si eklemeyi unutmayin. Adsl modemi kapatinca normal de kodlar
internetin olmadigina dair degerler donduroyorlar. Ama adsl modem acik iken
arkasaindan telefon hattini cikartirsaniz yaptiginiz kontrolde internetin var
olduugna dair deger gonderiyor. Iste asagidaki kod bu durumda size internetinm
olmadigina dair bir deger almaniza imkan veriyor.Ben size mantigi veriyorum sizler
artik onu fonksiyon haline getirip projeleirnizde kullanabilirsiniz..
alıntı
icin internet varmi yokmu diye kotrol yapip deger geri gonderiyor. Projeye
msinet.ocx si eklemeyi unutmayin. Adsl modemi kapatinca normal de kodlar
internetin olmadigina dair degerler donduroyorlar. Ama adsl modem acik iken
arkasaindan telefon hattini cikartirsaniz yaptiginiz kontrolde internetin var
olduugna dair deger gonderiyor. Iste asagidaki kod bu durumda size internetinm
olmadigina dair bir deger almaniza imkan veriyor.Ben size mantigi veriyorum sizler
artik onu fonksiyon haline getirip projeleirnizde kullanabilirsiniz..
Kod: Tümünü seç
Option Explicit
Private Sub Form_Load()
Dim Connection As String
On Error GoTo Hata
Inet1.RequestTimeout = 2
Connection = Inet1.OpenURL("http://www.google.com")
DoEvents
If Connection <> "" Then
MsgBox "Internet baglantınız aktiv.", vbInformation, "Uyarı"
Else
MsgBox "Internet baglantınız aktiv degil.", vbInformation, "Uyarı"
End If
Unload Me
Exit Sub
Hata:
MsgBox "Internet baglantınız aktiv degil.", vbInformation, "Uyarı"
Unload Me
End Sub