Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
 Аватар для Devel
91 / 46 / 2
Регистрация: 02.11.2010
Сообщений: 261

Проблема с ping'ом Google

08.08.2011, 06:00. Показов 1310. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Что я написал неправильно?
Код vb.net
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
     Private ts As TimeSpan   
     Private Sub FormUpdate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
          InitializeComponent()         
          ts = New TimeSpan         
          Timer1.Interval = 100000         
          Timer1.Enabled = True     
     End Sub   
 
     Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick         
          Dim net As New Net.NetworkInformation.Ping         
          If net.Send("209.85.148.103", 20).Status = System.Net.NetworkInformation.IPStatus.Success Then             
               Me.Label_FormUpdate.Text = ("Интернет соединение с сервером успешно установлено." & vbNewLine _                                         
                                                        & "Нажмите Проверить обновления для проверки существующих обновлений")         
          Else             
               Me.Label_FormUpdate.Text = ("Интернет соединение с сервером не установлено. Проверка невозможна")         
          End If     
     End Sub
Все равно пишет "Интернет соединение с сервером не установлено. Проверка невозможна" хотя к интернету подключен
P.S. Без таймера все нормально:
VB.NET
1
2
3
4
5
6
7
8
9
     Private Sub FormUpdate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
          Dim net As New Net.NetworkInformation.Ping         
          If net.Send("209.85.148.103", 20).Status = System.Net.NetworkInformation.IPStatus.Success Then             
               Me.Label_FormUpdate.Text = ("Интернет соединение с сервером успешно установлено." & vbNewLine _                                         
                                                        & "Нажмите Проверить обновления для проверки существующих обновлений")         
          Else             
               Me.Label_FormUpdate.Text = ("Интернет соединение с сервером не установлено. Проверка невозможна")         
          End If        
     End Sub
1
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
08.08.2011, 06:00
Ответы с готовыми решениями:

Поисковик Google перестал отображать ссылки по которым я прохожу
не давно заметил что поисковик Google перестал отображать ссылки по которым я прохожу (ну то есть окрашивать их в фиолетовый или сиреневый)...

Проблема с индексацией Google
Проблема в том что Гугл индексирует некий сайт, но не так как того бы хотелось… А именно выводит результаты не по основному домену...

Проблема с google translate
Добрый день! Подскажите как правильно встроить google translate на сайт в header что бы выпадал список с флагами и двузначным кодом...

8
 Аватар для gitarillo
755 / 554 / 48
Регистрация: 17.06.2010
Сообщений: 1,041
Записей в блоге: 1
08.08.2011, 13:30
InstallGame, первый код проверил. он работает.
0
Почетный модератор
 Аватар для Памирыч
23251 / 9163 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
08.08.2011, 14:59
InstallGame, интервал таймера не должен быть слишком маленьким. Секунда или парочку - самое то, и то при условии наличия хорошей скорости Интернета
0
 Аватар для Devel
91 / 46 / 2
Регистрация: 02.11.2010
Сообщений: 261
08.08.2011, 15:47  [ТС]
Памирыч, я поставил 5000мс. Результат тот же: Интернет соединение с сервером не установлено. Проверка невозможна. IP сменил на www.google.com. А что после IP число означает?
0
Почетный модератор
 Аватар для Памирыч
23251 / 9163 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
08.08.2011, 15:49
Цитата Сообщение от InstallGame Посмотреть сообщение
А что после IP число означает?
Таймаут
Увеличь.
0
 Аватар для Devel
91 / 46 / 2
Регистрация: 02.11.2010
Сообщений: 261
08.08.2011, 16:01  [ТС]
Увеличил. Он вообще ничего не пишет. У меня было в label установлен текст, он его и показывал. А сейчас текста нету, и ничего не показывает:
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
     Private ts As TimeSpan
     Private Sub FormUpdate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          InitializeComponent()
          ts = New TimeSpan
          Timer1.Interval = 5000
          Timer1.Enabled = True
     End Sub
 
     Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
          Dim net As New Net.NetworkInformation.Ping
          If net.Send("74.125.77.147", 40).Status = System.Net.NetworkInformation.IPStatus.Success Then
               Me.Label_FormUpdate.Text = ("Интернет соединение с сервером успешно установлено." & vbNewLine _
                                                     & "Нажмите Проверить обновления для проверки существующих обновлений")
          Else
               Me.Label_FormUpdate.Text = ("Интернет соединение с сервером не установлено. Проверка невозможна")
          End If
     End Sub
Добавлено через 3 минуты
А форма то зависает при открытии... Только что заметил
0
Почетный модератор
 Аватар для Памирыч
23251 / 9163 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
08.08.2011, 16:09
InstallGame, таймаут в 500 или больше
Зависает - непонятно, вроде ничего такого там нет
0
 Аватар для Devel
91 / 46 / 2
Регистрация: 02.11.2010
Сообщений: 261
08.08.2011, 16:21  [ТС]
Совсем ничего:
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Public Class FormUpdate
    Private _CurPos As Point
    Friend flag As Boolean = False
    Private ts As TimeSpan
 
    Private Sub FormUpdate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Blue
        TransparencyKey = Me.BackColor
        Me.PictureBox_FormUpdate_layer.Load("Images\desktop\secm\update\layer.png")
        Me.PictureBox_FormUpdate_exit_d.Load("Images\desktop\secm\update\btn\exit_d.png")
        Me.PictureBox_FormUpdate_exit_a.Load("Images\desktop\secm\update\btn\exit_a.png")
        Me.PictureBox_FormUpdate_start_d.Load("Images\desktop\secm\update\btn\start_d.png")
        Me.PictureBox_FormUpdate_start_a.Load("Images\desktop\secm\update\btn\start_a.png")
        PictureBox_FormUpdate_exit_d.Parent = PictureBox_FormUpdate_layer
        PictureBox_FormUpdate_exit_a.Parent = PictureBox_FormUpdate_layer
        Label_FormUpdate_NowVersion.Parent = PictureBox_FormUpdate_layer
        Label_FormUpdate_LastVersion.Parent = PictureBox_FormUpdate_layer
        Label_FormUpdate.Parent = PictureBox_FormUpdate_layer
        PictureBox_FormUpdate_start_d.Parent = PictureBox_FormUpdate_layer
        PictureBox_FormUpdate_start_a.Parent = PictureBox_FormUpdate_layer
        Label_FormUpdate.Parent = PictureBox_FormUpdate_layer
        PictureBox_Panel.Parent = PictureBox_FormUpdate_layer
        InitializeComponent()
        ts = New TimeSpan
        Timer1.Interval = 5000
        Timer1.Enabled = True
    End Sub
 
    Private Sub FormProfile_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Deactivate
        If flag = False Then
            Me.Close()
        End If
    End Sub
 
    Private Sub PictureBox_FormUpdate_exit_d_MouseMove() Handles PictureBox_FormUpdate_exit_d.MouseMove
        PictureBox_FormUpdate_exit_a.Visible = True
        PictureBox_FormUpdate_exit_d.Visible = False
    End Sub
 
    Private Sub PictureBox_FormUpdate_exit_a_MouseLeave() Handles PictureBox_FormUpdate_exit_a.MouseLeave
        PictureBox_FormUpdate_exit_d.Visible = True
        PictureBox_FormUpdate_exit_a.Visible = False
    End Sub
 
    Private Sub PictureBox_FormUpdate_Start_d_MouseMove() Handles PictureBox_FormUpdate_start_d.MouseMove
        PictureBox_FormUpdate_start_a.Visible = True
        PictureBox_FormUpdate_start_d.Visible = False
    End Sub
 
    Private Sub PictureBox_FormUpdate_Start_a_MouseLeave() Handles PictureBox_FormUpdate_start_a.MouseLeave
        PictureBox_FormUpdate_start_d.Visible = True
        PictureBox_FormUpdate_start_a.Visible = False
    End Sub
 
    Private Sub PictureBox_FormUpdate_exit_a_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox_FormUpdate_exit_a.Click
        Me.Close()
    End Sub
 
    Private Sub PictureBox_FormUpdate_start_a_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox_FormUpdate_start_a.Click
        'Загрузка версии
        Dim Client As New Net.WebClient
        Dim Tmp As String = Client.DownloadString("http://installgame.getbb.ru/index.php?page=1")
        TextBox_FormUpadte_LastVersion.Text = Tmp.Split(Chr(10))(0)
        'Проверка версии
        Dim A As String = (TextBox_FormUpadte_NowVersion.Text)
        Dim B As String = (TextBox_FormUpadte_LastVersion.Text)
        If A = B Then
            Dim nfnt As Font = New Font(Me.Label_FormUpdate.Font, FontStyle.Bold)
            Me.Label_FormUpdate.Font = nfnt
            Label_FormUpdate.Text = ("Вы используете последнюю версию игры")
        Else
            Dim nfnt As Font = New Font(Me.Label_FormUpdate.Font, FontStyle.Bold)
            Me.Label_FormUpdate.Font = nfnt
            Label_FormUpdate.Text = ("Доступна новая версия игры")
        End If
    End Sub
 
    Private Sub PictureBox_Panel_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox_Panel.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then _CurPos = e.Location
    End Sub
 
    Private Sub PictureBox_Panel_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox_Panel.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Location += e.Location - _CurPos
        End If
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim net As New Net.NetworkInformation.Ping
        If net.Send("74.125.77.147", 40).Status = System.Net.NetworkInformation.IPStatus.Success Then
            Me.Label_FormUpdate.Text = ("Интернет соединение с сервером успешно установлено." & vbNewLine _
                                                     & "Нажмите Проверить обновления для проверки существующих обновлений")
        Else
            Me.Label_FormUpdate.Text = ("Интернет соединение с сервером не установлено. Проверка невозможна")
        End If
    End Sub
End Class
0
Почетный модератор
 Аватар для Памирыч
23251 / 9163 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
08.08.2011, 18:10
InstallGame, я бы посоветовал в таких случаях создавать новый проект, и отдельно взятую процедуру обкатывать в нем.
А то в коде столько наворочено, что терпения не хватает дочитать до сути, ИМХО.

Да и потом, код тот работает великолепно даже на моем модеме со скоростью всего в 128 Кбит/с.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
08.08.2011, 18:10
Помогаю со студенческими работами здесь

Проблема с Google chrome.
Добрый вечер.Надеюсь пишу в нужную тему. Ребят,уже последние две недели появляется вот такая хрень когда сижу на каком нибудь сайте....

Проблема с Google Chrome
Здравствуйте, совсем недавно наткнулся на проблему изрядно надоевшую мне. Короче скачал с инета прогу (какую уже забыл:rofl:), а потом...

Проблема с Google Chrome
Всем привет! Недавно скачал и установил Google Chrome (у меня openSUSE 11.3). Браузер установился нормально, но запускаться не...

Проблема с Google Analytics
Здравствуйте, коллеги Мастера! Огромная просьба, помогите начинающему но возможно перспективному сайтостроителю :) Недавно сделал сайт....

Зависает браузер Google Chrome
после обновления до 18 версии браузер стал иногда зависать, и это "иногда" повторяется довольно часто. переустанавливать пробовал. не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 15.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru