Отслеживание подключений к инету

[dorido]

Если кто знает, напишите код, который бы отслеживал подключен комп или нет(тоесть, когда я выходил в инет, прога начинала чёнить творить), а то уже все мозги продумал

[alibek]

А ты опиши словами, как ты определяешь, вышел комп в инет или нет.

[dorido]

всмысле

[Sebas]

НУ, тебя спрашивают: Этот комп в Инете?

По каким признакам ты ответишь - "Да!" ?

ЗЫ: Тока без бытовухи пожалуйста....

[dorido]

НУ незнаю, например если в systemTray есть иконка

[Sebas]

НУ незнаю, например если в systemTray есть иконка

Молодой человек! Вас же просили!

БЕЗ БЫТОВУХИ!!!!!!

[alibek]

Повторяюсь за GSerg'ом, но это рулез.

'Would you tell me, please, which way I ought to go from here?'
'That depends a good deal on where you want to get to,' said the Cat.
'I don't much care where--' said Alice.
'Then it doesn't matter which way you go,' said the Cat.

[dorido]

Ну тогда не знаю

[dorido]

И напишете кнонить код (только без вопросов)

[dorido]

спасибо всем кто пытался помочь, я уже сам допёр

[alibek]

Если кто знает, напишите код, который бы сделал то, что мне надо. А то никак не пойму, что мне надо.

[dorido]

На всякий случай, для особо одарённых, мне был нужен код, определяющий в инете я или нет

[Sebas]

Скажи мне , пожалуйста, как это определить?

[alibek]

Если ты сам не знаешь, когда ты в интернете, а когда нет, то о каком коде может идти речь?

[dorido]

Для особо одарённых показываю:


Данный пример покажет, есть ли в данное время активное соединение с Интернетом
--------------------------------------------------------------------------------
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
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
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

Private Sub Form_Load()
'если есть соединение, то IsConnected() = True, иначе False
MsgBox IsConnected()
End Sub

[alibek]

Ты только подтвердил, что ничего не понял.
Этот код показывает не подключение к интернету, а факт установки удаленного подключения.

[dorido]

Можно подумать существует код определяющий наличие соеденения модема с телефонной линией(кабеля)

[GSerg]

А как же.
Командами AT спрашиваешь у модема, если ли сигнал в линии - необходимый и достаточный признак подключенности к оной.


Но всё-таки, как ты собираешься отличать удалёнку от интернета? У меня вон знаешь сколько удалённых соединений? Половина из них - прямые телефонные, на модемы всяких знакомых

[Sebas]

нУ, вообщем, всё ясно.... как обычно)

[Snussi]

Не уверен, но предложил бы каждые N минут делать Ping на (например) www.ya.ru или вообще на мастеровые DNS. Если пинга есть - то комп в нете, имхо.