Как определить,что компьютер подключен к интернету?

[CheburekV]

Помогите, мне нужно написать программу, которая бы при подключении к интернету выполняла бы некие действия.. Как написать функцию, которая бы возвращала True если компьютер подключен к сети и False в случае когда не подключён.
Может, есть какая-нибудь API функция, которая могла бы мне помочь...?

[FaKk2]

CheburekV
Ты искал ответ на свой вопрос?

[Sebas]

Мочить!

[CheburekV]

CheburekV
Ты искал ответ на свой вопрос?

Искал..., если знаете, что так сложно помочь?

[Sebas]

что так сложно помочь?

Не сложно поискать. Раз в неделю спрашивают...

Ну, и по новой:
What is "Подключение к интернету"?
Тока без бытовухи, пожалуйста, а то буду отвечать: "Посмотреть на трэй!"

[CheburekV]

Мочить!

ЗА ЧТО?
Вам дай волю Вы бы всех замочили. А мне это, честно, для личных нужд надо, я очень много времени в инете провожу, и мне нужна прога, которая мне бы напоминала, о том, что времечко-то не казенное... Ну и там разные статистики, нужные исключительно для меня вела, как вообще это реализовать? Только не надо спрашивать опять, зачем мне такая прога .. и.т.д. Просто если знаете, подскажите, пожалуйста, а на нет, и суда нет...

[CheburekV]

Не я не могу больше искать ответ в этом форуме...

[FaKk2]

CheburekV
Так ты не хочешь искать
Это по тебе видно.

[Jenizix]

Ищи! ибо тут много такова добра!

[Snussi]

Ладно, скажу!

Раз в секунду(минуту, час, etc - т.е. раз в минимальный нужный тебе квант времени) выполняй ping по нескольким адресам (для надежности), например:
www.ya.ru
www.mail.ru
www.chat.ru
или DNS, гейт и тд своего провайдера. Если все пинги отказал - подключения нету, иначе - есть.

[CheburekV]

А другого способа нет? Windows же вроде сам все время мониторит подключение, можно как-ниудь воспользоваться этими данными.

Спасибо, за помощь

[tyomitch]

Windows не в состоянии отличить подключение к Интернету от подключения к соседу. Поэтому придётся определиться, что именно тебе нужно, и реализовывать конкретно это.

[Snussi]

К слову говоря, вообще никто не может отличить подключение к интернету от пождключения к соседу, не запрашивая конкретные интернет-узлы.
Ведь интернет - по большому счету большая сеть, построенная на том же TCP.
Вот хороший пример (а заодно и вопрос к CheburekV) - если ты подключился к провайдеру, а у него обрублен внешний кабель, - ты в интернете или нет?

[tyomitch]

Ведь интернет - по большому счету большая сеть, построенная на том же TCP.

Не на TCP. На IP.
Иначе получается, что DNS - не часть Интернета, раз он на UDP.

[Snussi]

Сорри, признаю ошибку, но суть дела от этого не меняется

[MeMBus]

Использование класса:

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

    Dim oConnectionState As New CWinInetConnection
    With oConnectionState
        .Refresh
        If .IsConnected Then
            ‘Инет есть
        Else
            ‘Инета нет
        End If
    End With

[MeMBus]

P.S. Народ, ну ей богу вы ведете себя как звери, готовые наброситься и разорвать любого в клочья. Я понимаю, что когда спрашивают один и тот же вопрос много раз может взбесить, но наверное лучше было бы промолчать, а не орать что «з..ли со своими вопросами»...

[Sebas]

P.S. Народ, ну ей богу вы ведете себя как звери, готовые наброситься и разорвать любого в клочья. Я понимаю, что когда спрашивают один и тот же вопрос много раз может взбесить, но наверное лучше было бы промолчать, а не орать что «з..ли со своими вопросами»...

Просто чел незнает чё спрашивает, да и твой код в половине случаев облажается....

[Konst_One]

Sebas
ну и пусть облажается им этого и надо

а мужики-то не знают...

[Sebas]

а не орать что «з..ли со своими вопросами»...

Как ты смог заметить, никто не ОРЁТ, просто по натуре, программисткой, хочется КОРРЕКТНОСТИ, а этого нет.

Если я спрошу,
КАК ПОДКЛЮЧИТСЯ К БАЗЕ ДАННЫХ?

Что скажешь? Я думаю первый вопрос будет К КАКОЙ?.

[CheburekV]

Спасибо за критику, постараюсь учесть, в будущем..., и спасибо за ответы, помогли человеку,
кстати нашёл API, которая, вроде, по документации определяет наличия подключения InetIsOffline.(пока просто не проверял) И я так понял, что это относительно точное определение…

[tyomitch]

InetIsOffline - это то же, что "автономная работа" в заголовке IE.
Результат этой функции никак не связан с наличием связи с Интернетом.

[ЮЮ]

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

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

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

Это также как авто дорога. Может быть локальной на хуторе с тупиками в оба конца, или автобан. и в обоих случаях это дорога.

[Amed]

Вывод из всего сказанного.

Для проверки пингуй microsoft.com или что-то весьма надежное. За примером пингования в поиск по форуму.

[tyomitch]

Amed, уж хоть бы проверил сам, раньше чем постить...
На microsoft.com пинги обрублены. Т.е. смысла пинговать его нет никакого.
Можно пинговать, например, google.com: тот пока что пингуется.


ЮЮ, заметно что из Эстонии )

[Amed]

И правда. Ошибся, каюсь.
Можно еще www.fbi.gov потрясти.

[Ennor]

www.iana.org имхо надежнее. И в плане каналов, и в плане пинга. А вообще, есть такой сайт, который все пингуют, но на который никто никогда не ходит - www.ru . Правда, он иногда или недоступен, или откровенно валяется. В таком случае можно пингануть www.com - он вроде как претендует на главную точку отсчета в интернете.

[max-aziat]

ну посмотри мож это те поможет...........

как программно узнать есть ли соединение с инетом...

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

[GSerg]

max-aziat
Поздравляю тебя. Ты стал очередным человеком, который показал, что он не понимает, что такое соединение с интернетом. Причём показал ты это с помощью того же самого кода, с помощью которого это показывали все до тебя.
http://bbs.vbstreets.ru/viewtopic.php?t=14461

Ура.

[Sebas]

GSerg

Маладца! Так их!

2ALL Это форум для ПРОГРАММИСТОВ и , пожалуйста, не употребляйте в ключевых понятиях БЫТОВЫХ выражений.