Hallo ich habe ne listview erstellt und nun möchte ich wissen wie ich
z.b die "column IP" zb. in eine Abfrage reinschreiben kann so das nur die erste spalte reingelsen wird.
also nochmal einfach die column1 (wo mehrere ipadressen untereinander geschreiben sind)
einzein linie für line abfragen......
den ip befehl hab ich schon fast.
fals jemand was bessserers weiß dnan soll er mirs bitte mitteilen und evtl. erklären.
gruß Mafu
z.b die "column IP" zb. in eine Abfrage reinschreiben kann so das nur die erste spalte reingelsen wird.
also nochmal einfach die column1 (wo mehrere ipadressen untereinander geschreiben sind)
einzein linie für line abfragen......
den ip befehl hab ich schon fast.
Code:
Private Sub BT_Einzelprüfung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Einzelprüfung.Click
Dim Pg As New Ping()
Dim HostAdr As String
HostAdr = LV_IP.CompanyName("IP-Adresse")
If bRunMode = False Then
bRunMode = True
BT_Einzelprüfung.Text = "&Einzelprüfung Stop"
bnXMLReport.Enabled = False
For i As Byte = IPNr To 254
If bRunMode = False Then
IPNr = i
End If
HostAdr = RemoteIPBase & "." & CType(i, String)
LB_Status.Items.Add("Gescannt wird " & HostAdr)
LB_Status.SelectedIndex = LB_Status.Items.Count - 1
Application.DoEvents()
Dim lv As ListViewItem = lvHosts.Items.Add(HostAdr)
Dim Pr As PingReply = Pg.Send(HostAdr)
lv.SubItems.Add(Pr.Status.ToString)
If Pr.Status = IPStatus.Success Then
lv.SubItems.Add(Pr.RoundtripTime)
Else
lv.SubItems.Add("0")
End If
lv.EnsureVisible()
Next
LB_Status.Items.Add("Scan-Vorgang beendet")
Else
bRunMode = False
BT_Einzelprüfung.Text = "Einzelprüfung Start"
bnXMLReport.Enabled = True
LB_Status.Items.Add("Scan-Vorgang wurde unterbrochen")
LB_Status.SelectedIndex = LB_Status.Items.Count - 1
End If
bnXMLReport.Enabled = True
fals jemand was bessserers weiß dnan soll er mirs bitte mitteilen und evtl. erklären.
gruß Mafu