.NET (Core and Framework)

John Simmons / outlaw programmer wrote:

property that contains about 60 lines of code...

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim posicaoatual As String
       Dim itemselecionado As String
       Dim t As Thread
       For Each items As ListViewItem In lstrefresh.Items
           items.Selected = True
           For Each selecionado As ListViewItem In lstrefresh.SelectedItems
               Main.PosicaoEstacaoNoList = selecionado.Index
               Main.estacaoSelected = selecionado.SubItems.Item(2).Text
               Control.Ping_to_host()

               't = New Thread(AddressOf processo.Ping_to_host)
               ' MessageBox.Show(Main.estacaoSelected & vbCrLf & Main.PosicaoEstacaoNoList)
               't.Start()

           Next

       Next

   End Sub

Public Sub Ping_to_host()

       Main.RichTextBox1.Clear()
       Dim vez As String = 3

       'Dim host As String = Main.estacaoSelected
       Dim ip As String = Main.estacaoSelected
       Dim ans, ans2
       Dim i As Integer
       'ans = InputBox("Digite o Endereço desejado", "Host", "www.google.com.br")
       ans = ip
       If ans = "" Then

           Exit Sub
       Else
           host = ans.ToString
           'ans2 = InputBox("Pro favor digite a quantidade de vezes para pingar", "Ping count", "1")
           ans2 = vez
           If ans2 = "" Then
               Exit Sub
           Else
               vezes = ans2.ToString
               ' For i = 0 To System.Convert.ToInt32(vezes.Text)
               ' For i = 1 To System.Convert.ToInt32(vezes.Text)
               Me.Timer3.Enabled = True


               'Me.Timer3.Start()
               'Next

           End If

       End If


   End Sub

   Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
       Dim lstText As String
       Dim i As Integer


       'Me.Timer3.Enabled = True
       'Me.Timer3.Start()
       For i = 1 To System.Convert.ToInt16(vezes)


           Try
               If My.Computer.Network.Ping(Me.host) Then
                   'MsgBox("Ping successfull", MsgBoxStyle.Information, "Successfull")
                   lstText = Now() & "  ---  " & host & " -- " & "Ping OK" & vbCrLf
                   ' MsgBox("oi")
                   Main.RichTextBox1.Text = LTrim(Main.RichTextBox1.Text) & lstText
                   'If RefreshPC.refreshPC_tipo = "RefreshAll" Then
                   '    RefreshPC.status_ping = "ON"
                   'End If
                   stat = "on"
               Else
                   'MsgBox("Ping unsuccessfull", MsgBoxStyle.Critical, "Unsuccessfull")

                   lstText = Now() & "  ---  " & host & " -- " & "Ping error" & vbCrLf
                   Main.lstestacoes.Items.Item(Main.PosicaoEstacaoNoList).ImageIndex = 1

                   Main.RichTextBox1.Text = LTrim(Main.RichTextBox1.Text) & lstText

               End If
           Catch ex As Exception

               lstText = Now() & " " & host & " -- " & "Ping error" & vbCrLf
               Main.RichTextBox1.Text = LTrim(Main.RichTextBox1.Text) & lstText
               Main.lstestacoes.Items.Item(Main.PosicaoEstacaoNoList).ImageIndex = 1

           End Try
       Next
       Main.RichTextBox1.Text = LTrim(Main.RichTextBox1.Text) & "Done..."
       Me.Timer3.Enabled = False

       RaiseEvent ThreadCompleta(stat)
       'Me.Timer3.Stop()

   End Sub

Applications | Microsoft Visual Studio 2010 | Visual Studio Tools | Visual Studio Command Prompt (2010)<br />

%comspec% /k ""C:\Program Files\Microsoft Visual Studio 10.0\VC\vcvarsall.bat"" x86<br />

protected void OnFocus(...) {
    checkBox1.Focus();
}