Test ping

Signaler
Messages postés
7
Date d'inscription
vendredi 28 janvier 2011
Statut
Membre
Dernière intervention
22 septembre 2011
-
Messages postés
14828
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
18 novembre 2021
-
Bonjour, je voudrais corriger mon code svp et savoir si mon idée est bonne je voudrais afficher avec les adresse ip qui ont reussie le ping le timeout dans la listebox et je sais pas comment ou non merci d'avance



Public Class Form1
    Public Shared Function GetPingMs(ByRef hostNameOrAddress As String)
        Dim ping As New System.Net.NetworkInformation.Ping
        Return ping.Send(hostNameOrAddress).RoundtripTime
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim x As String
        Dim i As Integer
        Dim Pinged As Boolean = False
        For i = CType((txtd.Text), Integer) To CType((txta.Text), Integer) ' txta et txt d pour indiquer l'adresse ip de debut et de fin sachant que je travail avec classe C des ip
            x = "192.168.1." & i
            If GetPingMs(x) Then
                ListBox1.Items.Add(x & "Resultat ok")
                While Not Pinged
                    Try
                        Pinged = My.Computer.Network.Ping(x)
                    Catch ex As Exception

                    End Try
                    If Not Pinged Then
                        System.Threading.Thread.Sleep(0.1)

                    End If
                End While
            End If
        Next
    End Sub

End Class

1 réponse

Messages postés
14828
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
18 novembre 2021
157
Bonjour,

Déjà actives Option Strict et Option Explicit et corriges les erreurs.

Ensuite à la place de :
CType((txta.Text), Integer)
Préfère utiliser Integer.Parse ou Integer.TryParse.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site