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

Visual Basic 6 ile internet bağlantısını kontrol etmek


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

İ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

İ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. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: