Конференция VBStreets

**Rostik Ultra (2)** » 10.05.2005 (Вт) 4:36

Как узнать подключён ли юзер к нету ( ВАЖНО : должно работать в Win 95 ---> & Win NT 4.0 --->) В апи гайде есть функция но на виндах 9х не идёт...

**badDRAGON** » 10.05.2005 (Вт) 9:24

Интернет: онлайн или офлайн
Данный пример покажет, есть ли в данное время активное соединение с Интернетом

Код: Выделить всё: 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** » 10.05.2005 (Вт) 12:12

Этот пример покажет, установлено ли удалённое соединение. Причём неизвестно, с кем это соединение. Может, с соседом.

**Amed** » 10.05.2005 (Вт) 13:21

У меня ещё предложение. Пропинговать Яндекс с запросом "Проверка подключения к интернет VB". Найдёт что-то по запросу - значит, подключен.

**badDRAGON** » 10.05.2005 (Вт) 13:39

GSerg писал(а):Этот пример покажет, установлено ли удалённое соединение. Причём неизвестно, с кем это соединение. Может, с соседом.

лучше чем ничего...

**kirrun** » 10.05.2005 (Вт) 17:54

да просто yandex пингануть и все.

**Rostik Ultra (2)** » 11.05.2005 (Ср) 1:51

Amed писал(а):У меня ещё предложение. Пропинговать Яндекс с запросом "Проверка подключения к интернет VB". Найдёт что-то по запросу - значит, подключен.

Кинь плз исходник

:!:

Только не забудь что пример должен работать в виндах 95 ---> и NT 4.0 --->

**kirrun** » 11.05.2005 (Ср) 14:13

1) Есть апи для пинга
2) ну на совсем уж на крайняк - по 80-му порту к яндексу законектицца винсоком...

**Sebas** » 11.05.2005 (Ср) 14:25

Тухлая тема, её надо решать после вопроса "ДЛЯ ЧЕГО?"

**Rostik Ultra (2)** » 12.05.2005 (Чт) 1:35

Sebas писал(а):Тухлая тема, её надо решать после вопроса "ДЛЯ ЧЕГО?"

А тебе блин чё не пофиг для чего ?

Если нет ответа то не флуди, и тем более не называй тему тухлой...

**|kerish|** » 12.05.2005 (Чт) 1:46

Насчет пинга Яндекса, это подойдет только, если прога не торопится узнать в инете ли юзер...

**Rostik Ultra (2)** » 12.05.2005 (Чт) 2:22

Кстати InternetCheckConnection подойдёт ?

**|kerish|** » 12.05.2005 (Чт) 3:07

Согласен с Rostik Ultra (2).
InternetCheckConnection - лучший вариант.

**alibek** » 12.05.2005 (Чт) 9:10

Rostik Ultra (2) писал(а):А тебе блин чё не пофиг для чего ?

На рекорд идешь? Второй бан за год?

**Sebas** » 12.05.2005 (Чт) 11:40

alibek писал(а):
Rostik Ultra (2) писал(а):А тебе блин чё не пофиг для чего ?

На рекорд идешь? Второй бан за год?

2alibek
да забей, мне то как раз пофиг, я то понимаю, о чём говорю...

**Amed** » 12.05.2005 (Чт) 14:07

Предлагаю развить тему. И дать человеку выслужиться. До третьего бана за год.

**Sebas** » 12.05.2005 (Чт) 14:55

Наарод, Вы определитесь, что стоит за словами ИНТЕРНЕТ? тоесть. что ВЫ хотите делать дальше? 99% вопросов отпадёт самим собой!

**Rostik Ultra (2)** » 13.05.2005 (Пт) 2:46

alibek писал(а):
Rostik Ultra (2) писал(а):А тебе блин чё не пофиг для чего ?

На рекорд идешь? Второй бан за год?

Ага типа много звёздочек , так можно тему называть тухлой вместо того чтобы просто помочь ( или не забивать тему пустыми постами если нет ответа )
И главное " всё в рамках правил " :cry:

Ну чё InternetCheckConnection подойдёт или нет ?

Sebas под интернетом понимаю WWW

**Rostik Ultra (2)** » 13.05.2005 (Пт) 7:29

1) Есть апи для пинга

А как называется ?

2) ну на совсем уж на крайняк - по 80-му порту к яндексу законектицца винсокомю...

Кинь плз исходник

**FaKk2** » 13.05.2005 (Пт) 8:01

Rostik Ultra (2)

Сходи по ссылке в моей подписи - ознакомься.

**alibek** » 13.05.2005 (Пт) 8:14

Rostik Ultra (2) писал(а):Sebas под интернетом понимаю WWW

Ты знаешь, что такое WWW? Это вовсе не интернет.

**Sebas** » 13.05.2005 (Пт) 8:35

Rostik Ultra (2) писал(а):Sebas под интернетом понимаю WWW

Абассаться! Я в дискуссии боле не учавствую....)))))))))))))))))))))))))))))

**alibek** » 13.05.2005 (Пт) 8:38

Sebas

О, грибочек!

**killerb** » 13.05.2005 (Пт) 18:36

WWW - World Wide Web - организация такая ...

**FaKk2** » 13.05.2005 (Пт) 18:45

killerb
Да ну!?

Прям К-К-К какой то

**KDima** » 13.05.2005 (Пт) 18:55

А вы wwwf?
World Wide Web Flooders

**Amed** » 13.05.2005 (Пт) 19:37

killerb писал(а):WWW - World Wide Web - организация такая ...

"Абассаться! Я в дискуссии боле не учавствую....)))))))))))))))))))))))))))))" (с) Sebas

**Rostik Ultra (2)** » 14.05.2005 (Сб) 1:51

alibek писал(а):
Rostik Ultra (2) писал(а):Sebas под интернетом понимаю WWW

Ты знаешь, что такое WWW? Это вовсе не интернет.

World Wide Web - дословно Всемирная Широкая Сеть - объединение информационных сетей.... э.. чё там ещё ну там провайдеры всякие , DNS , протололы... ну .. э .ээ

**Rostik Ultra (2)** » 14.05.2005 (Сб) 1:53

Sebas писал(а):
Rostik Ultra (2) писал(а):Sebas под интернетом понимаю WWW

Абассаться! Я в дискуссии боле не учавствую....)))))))))))))))))))))))))))))

Ага всего наилучшего , (почитай что нтбудь полезное ...)

**Rostik Ultra (2)** » 14.05.2005 (Сб) 1:55

killerb писал(а):WWW - World Wide Web - организация такая ...

И кто стоит во главе ? :lol:

ЗЫ : почитай на досуге английский словарь

Конференция VBStreets

Как узнать подключён ли юзер к нету

Как узнать подключён ли юзер к нету

Кто сейчас на конференции