Кто юзал On/Off Line?

[Tramp]

Кто юзал On/Off Line, помогите с инфой. Как пользоваться этом OCXом .

[MEMBER]

Что за контрол-то? Ссылку дал бы...

[Tramp]

Вот ссылка http://www.vbstreets.ru/download.asp?id=150

[ASD]

Это старье

Код: Выделить всё

Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'InetIsOffline returns 0 if you're connected
    MsgBox "Are you connected to the internet? " + CStr(CBool(Not (InetIsOffline(0)))), vbInformation
End Sub

Это из APIGuide

[MEMBER]

Connected, disconnected... Only true in messagebox...
Use it:

Код: Выделить всё

'Проверка соединения с провайдером
Private Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" _
                                            (lpRasCon As Any, lpcb As Long, _
                                            lpcConnections As Long) As Long
                                           
Private Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" _
                                                 (ByVal hRasCon As Long, _
                                                 lpStatus As Any) As Long
                                                 
Private Const RAS95_MaxEntryName = 256
Private Const RAS95_MaxDeviceType = 16
Private Const RAS95_MaxDeviceName = 32

'Объявляем RASCONN95
Private 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

'Объявляем RASCONNSTATUS95
Private 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 IsConnected() 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)
Tstatus.dwSize = 160
retval = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
If Tstatus.RasConnState = &H2000 Then
IsConnected = True
Else
IsConnected = False
End If
End Function


Call IsConnected