Ping ips from txt problem

[extream87]

Hello all, Im reading an ips list from .txt and ping each one but with my code im allways pinging the same ip... Cant figure out why.


Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
For ip = 0 To ListBox1.Items.Count - 1
Dim delimited() As String = ListBox1.Items(ip).Split("-")
If My.Computer.Network.Ping(delimited(ip)) Then
MsgBox(delimited(ip))
Label3.Text = delimited(ip) & " OK!"
Else
ListBox2.Items.Add(delimited(ip) & "-" & delimited(1))
bads = bads + 1
Label2.Text = "Not Working: " & bads
End If
Next ip
End Sub

Continue reading...