İnternet Bağlantısını Kontrol Etme

Celebrian · #1 24-12-2007, 12:10

İnternet Bağlantısını Kontrol Etme
--------------------------------------------------------------------------------

<t>
Merhaba değerli Programlama.Com gönüllüleri. Yaptığınız bu güzel çalışmadan dolayı sizleri tebrik ediyorum. Aslında sayfalarınızı sürekli ziyaret ediyoruz ve her zaman yeni şeylerle sayfalarınızı desteklemek istiyoruz ancak işlerimizden fırsat bulup da bir türlü zaman ayıramıyoruz. Uzun bir aradan sonra iki farklı konuda doküman gönderiyorum. Bunlardan biri aktif internet bağlantısı olup olmadığını anlayacak basit bir kod. Diğeri ise VB ile ekran koruyucu nasıl yazılacağını anlatan daha uzun bir kod.
Bu güzel çalışmalarınızın her zaman devam etmesi dileklerimle.......
Selamlar.....
İhsan KARAGÜLLE
Not: Konular kendi yayımladığım eserlerden alınmıştır. Herhangi bir telif hakkı sorunu yoktur.

<t>
İnternet bağlantısının aktif olup olmadığını kontrol etmek için VB'de herhangi bir komut bulunmaz. Ancak internetle ilgili bir kontrol çalıştırıldığında bunu kontrol ederek aktif bağlantı yoksa, önce bağlantı kurmak için bağlantı penceresini açar. Yine de siz bir komutu kullanmadan önce internete aktif bağlantı olup olmadığını öğrenmek isterseniz bazı API'ler aracılığı ile regisrty dosyasında bulunan SystemCurrentControlSetServicesRemoteAccess yolu altındaki "Remote Connection" anahtarının değerini okuyarak aktif bağlantının olup olmadığını anlayabilirsiniz.

ÖRNEK: Bilgisayarın internete bağlı olup olmadığını anlayacak kod.

Option Explicit
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal alt As String, hKey As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal sKeyValue As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, nSizeData As Long) As Long

Private Sub Form_Load()
Dim hKey As Long, lpData As Long, nSizeData As Long
Dim alt, anahtar
alt = "SystemCurrentControlSetServicesRemoteAccess"
anahtar = "Remote Connection"
If RegOpenKey(HKEY_LOCAL_MACHINE, alt, hKey) = 0 Then
lpData = 0&
nSizeData = Len(lpData)
If RegQueryValueEx(hKey, anahtar, 0&, 0&, lpData, nSizeData) = 0 Then
If lpData <> 0 Then
MsgBox ("İnternet bağlantısı aktif")
Else
MsgBox ("İnternet bağlantısı aktif değil")
End If
End If
RegCloseKey (hKey)
End If
End Sub

<t>İhsan Karagülle

Benzer Konular
Konu	Konu Açanlar	Forum	Cevaplar	Güncel Mesajlar
İnternet Terimleri(İnternet Glossary)	ßyAtess	Webmaster Sözlügü	0	29-07-2008 04:31
Link İnşa Etme	kardesbune	SEO Arama Motoru Optimizasyonu	0	17-04-2008 09:45
Bİr İnternet Adresİnİn UlaŞabİlİrlİĞİnİ Kontrol Etmek	Celebrian	Delphi	0	24-12-2007 01:39
Bilgisayarin ses kartini kontrol etme	Celebrian	Visual Basic & Action script	0	24-12-2007 11:24
Kullanışlı Webmaster(Google) Programları(Çoklu Pagerank Kontrol,Backlink Kontrol...)	Ra_eM	SEO Arama Motoru Optimizasyonu	1	03-11-2007 07:02

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder