Как определить, что пользователь дозванивается?

[gvozd1989]

Можно ли как-то определить, что пользователь подключается к Инету, то есть начал дозваниваться?

[GSerg]

А как отличить дозвон к интернету от дозвона к соседу?

[hCORe]

Подключить библиотеку rtfm32.tlb (ее легко найти на сайте Microsoft), заюзать класс Rtfm32.Sound:

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

Dim objR As Rtfm32.Sound

<...>

Private Sub Form_Load()
    Set objR = New Rtfm32.Sound
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set objR = Nothing
End Sub

<...>
'таймер tmrMain надо поставить на форму
Private Sub tmrMain_Timer()
    If objR.Compare(objR.GetWaveData, _
    objR.SoundLib.Extract(rt32_ModemSound)) = 0 Then
        MsgBox "Дозвон!", vbInformation
    End If
End Sub

А если серьезно - функция RasEnumConnections позволяет получить информацию обо всех активных соединениях (т.е. узнать, что пользователь уже подключился).

[Info_m.be_free]

Читаем доку по модему - смотрим команду дозвона (АТ& ) отслеживаем...

[hCORe]

Можно, конечно, "ловить" команды с COM-порта (MSComm или API). Непонятно, правда, что делать, если модем стоит на USB. К тому же, ему нужно отследить подключение именно к Интернету. Ограниченный выход: получить через RAS все доступные номера для дозвона и сверять их с "отловленными". Совпадения есть - значит, юзер стучится в Интернет...

[Info_m.be_free]

Ну как отличить во время дозвона GSerg уже ответил... кто знает будет по этому номеру пул или это тел.. товарища который извратным способом в инет выводит... разве что вести статистику... а примеров отслеживания подключения к инету достаточно и трошки... тоись
1- можем определить факт дозвона
2 - после соединения проверить - инет это или нет...
3- интересно зачем такой гимммор

[gvozd1989]

Мне нужно определить, что юзер пытается соединиться по одному из соединений. Чисто работать с модем - не выход, юзер может выходить через локалку. Вообще мне нужно успеть запустить фаерволл до осуществления фактического коннекта. Во как.

[Sebas]

RASAPI, перебираешь и смотришь их состояние...

[Mleha]

Можно, конечно, "ловить" команды с COM-порта (MSComm или API).

А модем во время дозвона уже используется виндой, так что ничего не отловишь
Если только писать прогу для дозвона.

[gvozd1989]

Sebas
Поподробнее, плз. Пробовал RasEnumConnections - возвращает всегда 0, а в RasGetConnectionStatistics не нашел инфы о соединении...

[hCORe]

1) RasEnumConnections и должен возвращать 0, если все в порядке.

2) Решение найдено! RasEnumConnections пробегаемся по всем соединениям. При помощи RasGetConnectStatus узнаем, есть коннект или нет (подробнее см. MSDN)

Вот, кстати, и пример подоспел:

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

Option Explicit

'на форму положить:
'Timer (таймер) с именем "tmrTimer";
'Label (надпись) с именем "lblInfo";

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

Const RAS_MaxEntryName = 256
Const RAS_MaxDeviceType = 16
Const RAS_MaxDeviceName = 32

Private Type RASType
  dwSize As Long
  hRasCon As Long
  szEntryName(RAS_MaxEntryName) As Byte
  szDeviceType(RAS_MaxDeviceType) As Byte
  szDeviceName(RAS_MaxDeviceName) As Byte
End Type

Private Type RASStatusType
  dwSize As Long
  RasConnState As Long
  dwError As Long
  szDeviceType(RAS_MaxDeviceType) As Byte
  szDeviceName(RAS_MaxDeviceName) As Byte
End Type

Private Sub Form_Load()
  tmrMain.Interval = 10
End Sub

Private Function ConnectStatus() As Boolean
  Dim RAS(255) As RASType, RASStatus As RASStatusType
  Dim lg, lpconnection, Result

  RAS(0).dwSize = 412
  lg = 256 * RAS(0).dwSize
  Result = RasEnumConnections(RAS(0), lg, lpconnection)

  If lpconnection = 0 Then
    ConnectStatus = False
    lblInfo.Caption = "Offline"
  Else
    RASStatus.dwSize = 160
    Result = RasGetConnectStatus(RAS(0).hRasCon, RASStatus)
    If RASStatus.RasConnState = &H2000& Then
      ConnectStatus = True
      lblInfo.Caption = "Online"
    Else
      ConnectStatus = False
      lblInfo.Caption = "Unknown Status"
    End If
  End If
End Function

Private Sub tmrMain_Timer()
  ConnectStatus
End Sub

(слизано отсюда)

3) Опрос портов и самоличный дозвон - полушутка. Никто в здравом уме такими вещами заниматься не будет

[hCORe]

Но - если юзер собирается в локалку - RASAPI мало чем поможет... В принципе, можно получать информацию о сетевых адаптерах через WMI. Но это лучше расскажет Sebas, WMI - его кредо