İnternet bağlantı kontrolü.....

Katılım
29 Haziran 2005
Mesajlar
62
Ýnternet bağlantı kontrolü.....

form açıldığında eger bilgisayarda internet bağlatısı varsa form içindeki ilgili denetim açılacak bağlantı yoksa açılmayacak kısaca anlatmak istediğim bilgisayardaki internet bağlantısını kontol edecek bir kod varsa var diycek yoksa yok diycek gibi böyle bir kod mevcutmu yada yazılabilirmi....
 
Katılım
5 Ocak 2005
Mesajlar
890
Böyle bir şeyler sizce makbulmü

Bağlantı dosyalarını kullanma hakkında


Bağlantı dosyasında, bir veri kaynağı (OLE DB veri kaynağı gibi) bağlantısıyla ilgili bilgiler ve bağlantıyla ilişkili veriler depolanır. Microsoft Access'te, bir veya birden çok veri erişimi sayfasını (veri erişim sayfası: Access'ten yayımlanan, bir veritabanına bağlantısı olan Web sayfası. Bir veri erişim sayfasında, veritabanında depolanan verileri görüntüleyebilir, verilere ekleme yapabilir, onları düzenleyebilir ve işleyebilirsiniz. Sayfa aynı zamanda Excel gibi başka kaynaklardan gelen verileri de kapsayabilir.) bir veri kaynağına bağlamak için bağlantı dosyası kullanabilirsiniz. Sayfayı açtığınızda, Access sayfaya bağlı bağlantı dosyasını okur ve bağlantı dosyasının içeriğini temel alarak, sayfayı uygun veri kaynağına bağlar.

Güvenlik Notu Bazı durumlarda kullanıcılar dış veri kaynağına bağlanmak için kullanılan bilgileri görebilir. Bu durum bir güvenlik riski oluşturur. Daha fazla bilgi için, bkz: Dış veri kaynaklarına güvenli bağlantılar oluşturma hakkında.

Dış veri kaynaklarına bağlantıları daha güvenli kılma hakkında

Bir Web sayfasında Ã?zet Tablo listesi için, veri erişim sayfası gibi bir dış veri kaynağına bağlantı tanımladığınızda, yazma ortamı bu bilgileri HTML sayfasında şifrelenmemiş (düz metin) bağlantı dizesi olarak depolar. Bunun sonucunda, sayfayı bir tarayıcıda açan kullanıcı, sayfanın HTML kaynağını görüntüleyebilir, kullanıcı adı ve parola içerme olasılığı bulunan bağlantı dizesini okuyabilir.

Bağlantı dizesindeki bilgiler kullanılarak gerçekleştirilebilecek yetkisiz erişimleri önlemek için, veri kaynağı bu kimlik doğrulama modunu destekliyorsa, Windows Kimlik Doğrulamasını (Güvenilir Bağlantı ve Tümleşik Güvenlik de denir) kullanın; bu kimlik doğrulaması, dış veri kaynağına bağlanmak için geçerli kullanıcının Microsoft Windows® hesabını kullanır. Dış veri kaynağına bağlanırken Windows Kimlik Doğrulaması şu yararları sağlar:

Sayfa tasarımcısının veri kaynağına bağlanmak için kullanıcı adı veya parola girmesi gerekmez ve böylece bilgiler sayfanın HTML kaynağında görünmez.
Sayfanın kullanıcısının veri kaynağına bağlanmak için kullanıcı adı veya parola girmesi gerekmez ve böylece bu bilgiler sunucuya gönderilirken tehlikeye atılmaz.
Yalnızca, güvenlik sisteminde veri kaynağı için yapılandırılmış olan bir Windows kullanıcı hesabının veri kaynağına bağlanmasına izin verilir.
Ã?rneğin, Microsoft SQL Server'a Windows Kimlik Doğrulaması kullanarak bağlanmak için, bağlantı tanımlarken aşağıdaki yordamı kullanın.

Important Microsoft SQL Server veritabanına bağlanmak için Windows Kimlik Doğrulaması kullanmak için önce bir sunucu yöneticisinin sunucuyu bu kimlik doğrulama modunu kullanacak şekilde yapılandırması ve Windows kullanıcı hesabınıza (veya kullanıcı hesabınızın üye olduğu bir gruba) oturum açma erişimi vermesi gerekir. Ayrıca sunucu yöneticisinin, hesabınıza Ã?zet Tablo listeniz için gereken en az düzeyde izinleri vermesi gerekir.

Veri erişim sayfasının Tasarım görünümünde (Tasarım görünümü: Þu veritabanı nesnelerinin tasarımını gösteren bir pencere: tablolar, sorgular, formlar, raporlar, makrolar ve veri erişim sayfaları. Tasarım görünümünde yeni veritabanı nesneleri oluşturabilir veya varolanların tasarımını değiştirebilirsiniz.) araç çubuğu üzerindeki Araç Kutusu simgesini tıklatın.
Araç kutusunda (araç kutusu: Tasarım görünümünde, form, rapor veya veri erişim sayfasına denetimler eklemek için kullanılabilen araçlar kümesi. Sayfa Tasarım görünümünde kullanılabilen araç kümesi, form ve Tasarım görünümlerinde kullanılan araç kümesinden farklıdır.) Office Ã?zet Tablosu aracını tıklatın.
Etkinleştirmek için Ã?zet Tablo listesinin içini tıklatın.
Araç çubuğunda Komutlar ve Seçenekler'i ve ardından Veri Kaynağı sekmesini tıklatın.
Düzenle'yi tıklatın.
Veri Bağlantısı Ã?zellikleri iletişim kutusunda, Sağlayıcı sekmesinde Microsoft OLE DB Provider for SQL Server seçeneğini çift tıklatın.
Bağlantı sekmesinde, sunucunun adını belirtin.
Windows Tümleşik güvenliğini kullan'ı seçin.
Bir veritabanı seçin ve Tamam'ı tıklatın.
Bağlanmak istediğiniz veri kaynağı için Windows Kimlik Doğrulaması kullanılamıyorsa, veri kaynağına bağlanmak için bir kullanıcı adı ve parola girmeniz gerekir. Ã?zet Tablo listesi bir Web sayfasındayken kullanıcı adı ver parola görüntülenebileceği için, bir Web sayfasında Ã?zet Tablo listesinin hassas verilerine bağlanmak için bu kimlik doğrulama modunu kullanmayın. Verilerinizin yetkisiz kullanıcılar tarafından görüntülenmesi konusunda kuşkunuz olmasa da, veri kaynağı üzerinde yalnızca sınırlı izinleri bir kullanıcı hesabıyla bağlanmanız gerekir. Ã?rneğin, bir SQL Server veritabanına kullanıcı adı ve parola kullanarak bağlanırken, yüksek izinler içeren SA hesabı veya başka hesapları kullanmayın; yetkisi olmayan kullanıcılar bu hesapları ve parolaları kullanarak sunucudaki diğer verilere erişebilirler.

Not Bir dış veri kaynağına bağlanmak için Data Retrieval Service for Microsoft SQL Server (veya bu veri alma hizmetini kullanacak şekilde tanımlanmış bir Data Retrieval Service Connections (.udc) dosyasını) kullanır ve Windows Kimlik Doğrulaması kullanmazsanız, veri kaynağına bağlanmak için kullanılan kullanıcı adı ve parola Web sayfasına kaydedilmez. Dış veri kaynağına bağlanmak için bu yöntemi kullandığınızda, Ã?zet Tablo listenizin bulunduğu Web sayfasının kullanıcılarından oturum açma bilgilerini girmeleri istenir.





Bağlantı dosyasında aşağıdaki dosya biçimlerinden birisi kullanılır:

Office Veri Bağlantısı (.odc)

Bağlantı bilgilerini depolamak için HTML ve XML kullanan bir dosya biçimi. Dosyanın içeriğini herhangi bir metin düzenleyicisinde görüntüleyebilir veya düzenleyebilirsiniz.

Evrensel Veri Bağlantısı (.udl)

Dosyada kalıcı OLE DB veri kaynağı nesnesi tanımları oluşturmak için Microsoft Data Links tarafından sağlanan standart bir dosya biçimi.

Bağlantı dosyası kullanmanın yararları

Bağlantı dosyası kullanma, ilgili veri erişim sayfalarının dağıtılması görevini kolaylaştırır. Ortak bir veri kaynağına bağlanan sayfalar tek bir bağlantı dosyasını paylaşabilir. Her bağımlı sayfanın ConnectionString özelliğini güncelleştirmek yerine, veri kaynağını taşır veya kopyalarsanız, sayfaların doğru yeri veya veritabanını göstermesini sağlamak için yalnızca bağlantı dosyasındaki bağlantı bilgilerini düzenlemeniz gerekir.

Sayfayı bağlantı dosyasına bağlama

Bir veri erişim sayfası oluştururken, sayfanın bağlantı dosyasına bağlanması veya bağ oluşturulmadan yalnızca bağlantı dosyası kullanılması arasında seçim yapabilirsiniz. Ayrıca, varolan bir bağlantı dosyasını kullanma veya yeni bir dosya oluşturma arasında da seçim yapabilirsiniz.

Bağlantı dosyasına bağlama

Bağlantı dosyası ile sayfa arasında bir bağlantı oluşturduğunuzda, sayfanın ConnectionFile özelliği dosya adına ayarlanır. Sayfayı her açtığınızda, Access bağlantı dosyasını okur, bağlantı bilgilerini ayıklar ve sayfanın ConnectionString özelliğini ayarlar.

Bağlantı oluşturmadan bağlantı dosyası kullanma

Sayfa oluşturulurken, sayfanın ConnectionString özelliğini ayarlamak için bir bağlantı dosyasının içeriğini kullanabilir, ancak sayfa ve bağlantı dosyası arasında bir bağlantı oluşturmamayı seçebilirsiniz.

Sayfanın bağlantı bilgilerini değiştirme

Bağlantı dosyası kullanıldığında Başka bir bağlantı dosyasını göstermek için sayfanın ConnectionFile özelliğini değiştirin veya bağlantı dosyasını bir metin düzenleyicisinde düzenleyin. Bağlantı dosyasını düzenlemeyi seçerseniz, bağlantı dosyasını kullanan diğer tüm sayfaların da yaptığınız değişikliklerden etkileneceğini unutmayın. Bağlantı dosyasına bağlı bir sayfanın ConnectionString özelliğini düzenlerseniz, bağlantı bozulur ve ConnectionFile özelliği boş olarak ayarlanır.

Bağlantı dosyası kullanılmadığında ConnectionFile özelliğini ayarlayarak sayfa ile bağlantı dosyası arasında bir bağlantı oluşturun veya ConnectionString özelliğini düzenleyin. Bağlantı oluşturduğunuzda, Access bağlantı dosyasının içeriğini temel alarak ConnectionString özelliğini otomatik olarak ayarlar.
 
Katılım
29 Haziran 2005
Mesajlar
62
cevabınız için çok teşekkür ediyrum ama ne bunları anlayacak kadar bilgim var nede yapacak kadar benim tek istedigim halihazırda bilgisayarda internet baglantısının olup olmadığını anlamak bunun için bir örnek yada kod mevcutmu
 

Mahmut Bayram

Özel Üye
Katılım
25 Haziran 2005
Mesajlar
1,778
Excel Vers. ve Dili
2016 Excel Tr
İstediğiniz yerde istediğiniz şekilde kullanabileceğiniz bir internet algılayıcı API.
Modeminizin o anki durumunu denetleyen API eğer internete bağlıysanız bunu size bildiriyor.
'bir Modül İçine Ekleyiniz..

Option Explicit

Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long

' Bağlantı Değişkenleri
Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32

' Bağlantı Bilgileri
Public Type RASCONN95
dwSize As Long
hRasCon As Long
szEntryName(RAS95_MaxEntryName) As Byte
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

' Bağlantı Durumları
Public Type RASCONNSTATUS95
dwSize As Long
RasConnState As Long
dwError As Long
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type


Public Function InternetDurumu() As Boolean
Dim TRasCon(255) As RASCONN95
Dim lg As Long
Dim lpcon As Long
Dim RetVal As Long
Dim Tstatus As RASCONNSTATUS95

'
TRasCon(0).dwSize = 412
lg = 256 * TRasCon(0).dwSize

'
RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
If RetVal <> 0 Then
MsgBox "Çevirmeli Ağda bir problem var !"
Exit Function
End If

'
Tstatus.dwSize = 160
RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
If Tstatus.RasConnState = &H2000 Then
InternetDurumu = True
Else
InternetDurumu = False
End If

End Function
 
Katılım
23 Kasım 2007
Mesajlar
245
Excel Vers. ve Dili
2003
Sn Mahmutt Arkada&#351;&#305;m&#305;z&#305;n verdi&#287;i Kodlar san&#305;r&#305;m &#199;evirmeli a&#287;&#305; kontrol ediyor

&#304;nternet ba&#287;lant&#305;s&#305;n&#305; nas&#305;l kontrol edebiliriz..

te&#351;ekk&#252;rler
 
Katılım
15 Kasım 2006
Mesajlar
583
Excel Vers. ve Dili
Ms Office 2003 Türkçe
Yine forumdaki &#246;rneklerin birinde g&#246;rm&#252;&#351; kenara not etmi&#351;tim.
Kimden ald&#305;&#287;&#305;m&#305; hat&#305;rlam&#305;yorum. Yazan ya da ekleyenin eline sa&#287;l&#305;k diyelim.
Burada herhangi bir sayfay&#305; kontrol ediyor. cevap alamzsa ba&#287;lant&#305; yok diyor.
Ben google &#305; yazm&#305;&#351;&#305;m o zaman.
Eee google da a&#231;&#305;lm&#305;yorsa vars&#305;n internet ba&#287;lant&#305;s&#305; yok says&#305;n demi&#351;im demek ki :)

Kod:
Declare Function InternetCheckConnection Lib "wininet.dll" _
        Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, _
        ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Public Function TestInternetConnection() As Boolean
    If (InternetCheckConnection("http://www.google.com.tr/", &H1, 0&) = 0) Then
        TestInternetConnection = False
    Else
        TestInternetConnection = True
    End If
End Function
 

beab05

Özel Üye
Katılım
19 Mart 2007
Mesajlar
1,418
Excel Vers. ve Dili
Office 2013
Merhaba;

G&#246;z&#252;me ili&#351;ti internet ba&#287;lant&#305;s&#305; i&#231;in kod,

Kod:
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long

Dim sConnType As String * 255

Public Function TestIt() As String
    Dim Ret As Long
    Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
    If Ret = 1 Then
        TestIt = "You are connected to Internet via a " & sConnType
    Else
        TestIt = "No Internet Connection"
    End If
End Function
Formda g&#246;rmek istedi&#287;iniz metin kutusunun denetim kayna&#287;&#305;na;

Kod:
=TestIt()
yazman&#305;z halinde ba&#287;lant&#305; olup olmad&#305;&#287;&#305;n&#305; g&#246;rebilirsiniz..
 
Üst