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

@Devel · Регистрация: 02.11.2010

Студворк — интернет-сервис помощи студентам

Что я написал неправильно?
Код 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

@gitarillo · 08.08.2011, 13:30

InstallGame, первый код проверил. он работает.

Памирыч · 08.08.2011, 14:59

InstallGame, интервал таймера не должен быть слишком маленьким. Секунда или парочку - самое то, и то при условии наличия хорошей скорости Интернета

@Devel · 08.08.2011, 15:47 **[ТС]**

Памирыч, я поставил 5000мс. Результат тот же: Интернет соединение с сервером не установлено. Проверка невозможна. IP сменил на www.google.com. А что после IP число означает?

Памирыч · 08.08.2011, 15:49

Сообщение от InstallGame

А что после IP число означает?

Таймаут
Увеличь.

@Devel · 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 минуты
А форма то зависает при открытии... Только что заметил

Памирыч · 08.08.2011, 16:09

InstallGame, таймаут в 500 или больше
Зависает - непонятно, вроде ничего такого там нет

@Devel · 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

Памирыч · 08.08.2011, 18:10

InstallGame, я бы посоветовал в таких случаях создавать новый проект, и отдельно взятую процедуру обкатывать в нем.
А то в коде столько наворочено, что терпения не хватает дочитать до сути, ИМХО.

Да и потом, код тот работает великолепно даже на моем модеме со скоростью всего в 128 Кбит/с.

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого 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 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@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, 16:09
	InstallGame, таймаут в 500 или больше Зависает - непонятно, вроде ничего такого там нет 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	08.08.2011, 18:10
	InstallGame, я бы посоветовал в таких случаях создавать новый проект, и отдельно взятую процедуру обкатывать в нем. А то в коде столько наворочено, что терпения не хватает дочитать до сути, ИМХО. Да и потом, код тот работает великолепно даже на моем модеме со скоростью всего в 128 Кбит/с. 1