|
internet bağlantısı
Aug 13,2008 00:00
by
RubeNiS
Internete Bağlımısınız ? İşte sizlere mükemmel bir temel ! İ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.Bu sistemin aynısını ICQ Netdedect Programı da kullanıyor. Siz de buna benzer uygulamalar hazırlayabilirsiniz. '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 |