İ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" As Long Private Declare Function RegOpenKey Lib "advapi32. dll" Alias "RegOpenKeyA" As Long Private Declare Function RegQueryValueEx Lib "advapi32. dll" Alias "RegQueryValueExA" 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 = 0 Then lpData = 0& nSizeData = Len If RegQueryValueEx(hKey, anahtar, 0&, 0&, lpData, nSizeData) = 0 Then If lpData <> 0 Then MsgBox Else MsgBox End If End If RegCloseKey End If End Sub <t>İhsan Karagülle