Başlangıç > Kodlar > Visual Basic 6 ile internet bağlantısı kontrolü

Visual Basic 6 ile internet bağlantısı kontrolü


İnternet Bağlantısı Kontrol

<baslik>İnternet Bağlantısını Kontrol Etme -</baslik>

İ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


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: