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

[tyomitch]

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

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

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

Знатоки, млин... Всемирная Широкая Сеть была бы World Wide Wide Net. А WWW - таки, всемирная паутина. И это не объединение информационных сетей.

[FaKk2]

Просвящайтесь

[KDima]

Гугл рулит!

[tyomitch]

А ведь там и по-русски есть: http://www.google.com/search?q=define:W ... r=&defl=ru

[FaKk2]

Всемирная Паутина. Она отличается от Internet, хотя большинство людей считают эти термины взаимозаменяемыми. Web обеспечивает только взаимосвязь между страничками информации, доступ к которым осуществляется через браузеры, но не другие услуги, такие, как e-mail или newsgroups. Вот почему многие web-адреса начинаются с www, т.е. они относятся к web-части, а не к e-mail или другим частям.

[Rostik Ultra (2)]

Програмеры , ну всё-таки кинет кто нить код или нет

Нужно чтобы работал на виндах nt 5.0 ---> и 98 -->

[GSerg]

Понимаешь, когда человек не имеет ни малейшего понятия, что именно он хочет получить, то сложно дать ему код для этого.
Тебе несколько знающих людей пытались объяснить, но ты определённо не понимаешь.

[Rostik Ultra (2)]

Понимаешь, когда человек не имеет ни малейшего понятия, что именно он хочет получить, то сложно дать ему код для этого.

Я хочу знать может ли юзер в данный момент врнмени посетить веб сайт и может ли он послать электроннннное письмо

[GSerg]

Уже лучше.

Но неужели ты сам не можешь догадаться, что в твоём конкретном случае "Интернет есть" - это отсутствие ошибки при попытке посетить веб-сайт и послать электроннннное письмо?

[Rostik Ultra (2)]

Уже лучше.

Но неужели ты сам не можешь догадаться, что в твоём конкретном случае "Интернет есть" - это отсутствие ошибки при попытке посетить веб-сайт и послать электроннннное письмо?

Я "догадался" давно , поэтому и сформулировал вопрос "как узнать подключён ли..." - т.е. как будет выглядеть СООТВЕТСТВУЮЩИЙ КОД - так чтобы он работал в виндах nt 5.0 ---> & 98 --->

[GSerg]

Нет слов

[GRS]

Блин, да вы садисты )))

Попробуй такой пример, может пригодится...

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

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" Alias "InternetGetConnectedStateExA" (lpdwFlags As Long, lpszConnectionName As Long, dwNameLen As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()
Dim strConnectionName As String
Dim lNameLen As Long
Dim lRetVal As Long
Dim lConnectionFlags As Long
Dim lPtr As Long
Dim lNameLenPtr As Long

strConnectionName = Space(256)
lNameLen = 256
lPtr = StrPtr(strConnectionName)
lNameLenPtr = VarPtr(lNameLen)

lRetVal = InternetGetConnectedStateEx(lConnectionFlags, ByVal lPtr, ByVal lNameLen, 0&)

If lRetVal <> 0 Then
MsgBox("Подключено к сети")
Else
MsgBox("Отключено от сети")
End If
End Sub


Хотя,это наверное только для хр.

[FaKk2]

GRS
Ты понимаешь,что автору ты ничем не помог. Наоборот, навредил. Ведь теперь он не научится искать, потому что ему не надо.

Чтобы не быть многословным, автор может сходить сюда.
Прошу так же заметить, что эта ссылка была найдена в Гугле по ключевым словам:

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

check internet connection visual basic

Шестая ссылка сверху.

[Rostik Ultra (2)]

Блин, да вы садисты )))

Попробуй такой пример, может пригодится...

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

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" Alias "InternetGetConnectedStateExA" (lpdwFlags As Long, lpszConnectionName As Long, dwNameLen As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()
Dim strConnectionName As String
Dim lNameLen As Long
Dim lRetVal As Long
Dim lConnectionFlags As Long
Dim lPtr As Long
Dim lNameLenPtr As Long

strConnectionName = Space(256)
lNameLen = 256
lPtr = StrPtr(strConnectionName)
lNameLenPtr = VarPtr(lNameLen)

lRetVal = InternetGetConnectedStateEx(lConnectionFlags, ByVal lPtr, ByVal lNameLen, 0&)

If lRetVal <> 0 Then
MsgBox("Подключено к сети")
Else
MsgBox("Отключено от сети")
End If
End Sub


Хотя,это наверное только для хр.

В апи гайде есть фкнкция - InternetGetConnectedStateEx (требует ie 5 ) так что пасиба...

FAKK2 этот пост тебя особо касается ..

[FaKk2]

Rostik Ultra (2)

В каком месте меня касается?

[Rostik Ultra (2)]

Rostik Ultra (2)

В каком месте меня касается?

Ты указал ссылку в сети хотя мог просто подсказать функцию которая есть в апи гайде ( InternetGetConnectedStateEx ) ( хотя спасибо что потрудился )

ВОПРОС РЕШЁН , можем теперь поговорить за жизнь...

[FaKk2]

Rostik Ultra (2)

Если бы ты сходил таки по ссылке и прочитал, то там описаны ТРИ метода, решения твоей проблемы. Но ты же явно не читал...

[Rostik Ultra (2)]

Rostik Ultra (2)

Если бы ты сходил таки по ссылке и прочитал, то там описаны ТРИ метода, решения твоей проблемы. Но ты же явно не читал...

Будешь удивлён но я ходил и читал...

[GRS]

GRS
Ты понимаешь,что автору ты ничем не помог. Наоборот, навредил.

...ну, блин, извините. Я как раз это и искал, нашел и еще через 30 минут прочитал этот топик. И че, сидеть и таращиться изредка подкидывая сообщения о том, что дескать "я знаю, где ответ, я знаю где ответ"? Ты не путай Божий дар с яичницей, FAKK2.

[GSerg]

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

[Konst_One]

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

[alibek]

Удочка еще ладно, а вот иногда тут неводы забрасывают в каждом форуме

[GSerg]

Дык, рыбнадзор не дремлет