Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сoeдинeниe с интeрнeтoм. 
V
    Опции темы
Zhenek
Дата 7.7.2007, 15:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 168
Регистрация: 31.5.2007

Репутация: 1
Всего: 1
А как 3аставить прoграмму прoвeрять устанoвлeнo сoeдиниe с интeрнeтoм или нeт нужнo для oбнoвлeний.
--------------------
<удалено администрацией>
PM MAIL   Вверх
Kirill89
Дата 9.7.2007, 03:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 501
Регистрация: 17.10.2006
Где: Питер

Репутация: нет
Всего: 4
Код

        Dim tester As System.Net.WebClient = New System.Net.WebClient
        Dim itog As String
        itog = tester.DownloadString("http://www.ya.ru")
        If itog <> "" Then
            MsgBox("Соединение установлено")
        Else
            MsgBox("Соединение не установлено")
        End If

Вместо ya.ru можно ввести любой сайт который весит как можно меньше, или создать страничку на своём сайте, на которой будет скажем дата последненго обновления...

Это сообщение отредактировал(а) Kirill89 - 9.7.2007, 03:34


--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
Zhenek
  Дата 10.7.2007, 08:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 168
Регистрация: 31.5.2007

Репутация: 1
Всего: 1
Ты меня не понял. Я хочу чтобы при нажатии на кнопку обновить у меня появлялась не ошибка с двумя вариантами 
надписью ( The remote name could not be resolet: 'site.ru' )  а сказала "У вас не установлено соединение с интернетом."
--------------------
<удалено администрацией>
PM MAIL   Вверх
Kirill89
Дата 10.7.2007, 13:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 501
Регистрация: 17.10.2006
Где: Питер

Репутация: нет
Всего: 4
Zhenek, делай через try и перехватывай эту ошибку, но мой вариант работает - я проверял. 
Код

        Dim tester As System.Net.WebClient = New System.Net.WebClient
        Dim itog As String
try
itog = tester.DownloadString("http://www.ya.ru")
catch
MsgBox("Соединение не установлено")
end try



--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0856 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.