Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Devel
89 / 44 / 2
Регистрация: 02.11.2010
Сообщений: 261
1

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

08.08.2011, 06:00. Просмотров 1063. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.08.2011, 06:00
Ответы с готовыми решениями:

проблема с Google
не давно заметил что поисковик Google перестал отображать ссылки по которым я...

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

Проблема с Google Chrome
Здравствуйте, совсем недавно наткнулся на проблему изрядно надоевшую мне....

проблема с google chrome
после обновления до 18 версии браузер стал иногда зависать, и это "иногда"...

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

8
gitarillo
728 / 528 / 45
Регистрация: 17.06.2010
Сообщений: 1,027
Записей в блоге: 1
08.08.2011, 13:30 2
InstallGame, первый код проверил. он работает.
0
Памирыч
Почетный модератор
20878 / 8762 / 1080
Регистрация: 11.04.2010
Сообщений: 11,013
08.08.2011, 14:59 3
InstallGame, интервал таймера не должен быть слишком маленьким. Секунда или парочку - самое то, и то при условии наличия хорошей скорости Интернета
0
Devel
89 / 44 / 2
Регистрация: 02.11.2010
Сообщений: 261
08.08.2011, 15:47  [ТС] 4
Памирыч, я поставил 5000мс. Результат тот же: Интернет соединение с сервером не установлено. Проверка невозможна. IP сменил на www.google.com. А что после IP число означает?
0
Памирыч
Почетный модератор
20878 / 8762 / 1080
Регистрация: 11.04.2010
Сообщений: 11,013
08.08.2011, 15:49 5
Цитата Сообщение от InstallGame Посмотреть сообщение
А что после IP число означает?
Таймаут
Увеличь.
0
Devel
89 / 44 / 2
Регистрация: 02.11.2010
Сообщений: 261
08.08.2011, 16:01  [ТС] 6
Увеличил. Он вообще ничего не пишет. У меня было в 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
Памирыч
Почетный модератор
20878 / 8762 / 1080
Регистрация: 11.04.2010
Сообщений: 11,013
08.08.2011, 16:09 7
InstallGame, таймаут в 500 или больше
Зависает - непонятно, вроде ничего такого там нет
0
Devel
89 / 44 / 2
Регистрация: 02.11.2010
Сообщений: 261
08.08.2011, 16:21  [ТС] 8
Совсем ничего:
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
Памирыч
Почетный модератор
20878 / 8762 / 1080
Регистрация: 11.04.2010
Сообщений: 11,013
08.08.2011, 18:10 9
InstallGame, я бы посоветовал в таких случаях создавать новый проект, и отдельно взятую процедуру обкатывать в нем.
А то в коде столько наворочено, что терпения не хватает дочитать до сути, ИМХО.

Да и потом, код тот работает великолепно даже на моем модеме со скоростью всего в 128 Кбит/с.
1
08.08.2011, 18:10
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.08.2011, 18:10

Проблема с денвером, перестал работать google.com
Возможно не туда написал, если, что то переместите Большая проблема с...

При запуске Google Chrome каждые 2 мин открывается окошко Google
Здравствуйте. При запуске браузера Google Chrome каждые 2 мин. на примерно...

Скачивание через Google Api содержимого расшаренной папки Google Disk
Собственно, интересует, как скачать именно через гугл апи без авторизации....


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

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru