If TextBox1.Lines.Length > 0 Then Me.ListView1.Items.Clear() For Each line As String In TextBox1.Lines Dim whole As String = line Dim firstpart As String = whole.Substring(0, whole.LastIndexOf(",")) Dim lastpart As String = whole.Substring(whole.LastIndexOf(",") + 1)
Try Application.DoEvents() If lastpart = "0" Then Dim LVI As New ListViewItem("PC " & firstpart) LVI.ToolTipText = "Status : Opened" LVI.ImageKey = "ScreenOpend" Me.ListView1.Items.Add(LVI) Else Dim LVI As New ListViewItem("PC " & firstpart) LVI.ToolTipText = "Status : Closed" LVI.ImageKey = "ScreenClosed" Me.ListView1.Items.Add(LVI) End If Catch ex As Exception Dim LVI As New ListViewItem("PC " & ex.Message) LVI.ToolTipText = "Status : Closed" LVI.ImageKey = "ScreenClosed" Me.ListView1.Items.Add(LVI) End Try Application.DoEvents() Next End If End Sub
انا عملت زر button جديد ووضعت به الكود
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ToolStripTextBox1.Lines.Length > 0 Then
Me.ListView1.Items.Clear()
For Each line As String In ToolStripTextBox1.Lines
Dim whole As String = line
Dim firstpart As String = whole.Substring(0, whole.LastIndexOf(","))
Dim lastpart As String = whole.Substring(whole.LastIndexOf(",") + 1)
Try
Application.DoEvents()
If lastpart = "0" Then
Dim LVI As New ListViewItem("PC " & firstpart)
LVI.ToolTipText = "Status : Opened"
LVI.ImageKey = "ScreenOpend"
Me.ListView1.Items.Add(LVI)
Else
Dim LVI As New ListViewItem("PC " & firstpart)
LVI.ToolTipText = "Status : Closed"
LVI.ImageKey = "ScreenClosed"
Me.ListView1.Items.Add(LVI)
End If
Catch ex As Exception
Dim LVI As New ListViewItem("PC " & ex.Message)
LVI.ToolTipText = "Status : Closed"
LVI.ImageKey = "ScreenClosed"
Me.ListView1.Items.Add(LVI)
End Try
Application.DoEvents()
Next
End If
End Sub
ولا يتم شيء لسبب ان مربع النص لا توجد به اي بيانات لكي ينفذ
البرامج التي تراقب الاجهزة بمجرد ما يدخل الجهاز في الشبكة يظهر في الشاشة
لا دومين ولا عيره ولا ملف نصي ولا غيره
انا عايز التعديل علي برتلمج الاستاذ kaswaly
الاساتذة الافاضل
توصلت الي حل يحناج الي التكملة
بفرض ان اسماء الاجهزة يضيفها العميل الي لستة ويتم اخنبار الاسماء الموجودة قي اللستة
يتبقي كيف اضيف العناصر الي المصفوفة pcs
اي اجعل
Dim PCs As String() = {"atef-PC", "192.168.1.69", "192.168.1.75", "192.168.1.68", "192.168.1.70"}
هي العناصر الموجودة في اللستة
اي نشيف عناصر في اللستة بالكود التالي
Dim aa As String = InputBox("", , "")
ListBox1.Items.Add(aa)
ListBox1.Refresh()
ثم نجعل الاخنبار يكون علي العناصر الموجودة في اللستة
اي اجعل pcs تساوي القيم التي مثلا في اللستة
Dim PCs As String() = {"العنصر رقم 0 في اللستة", "العنصر رقم 1 في اللستة", "العنصر رقم 2في اللستة" }
هي العناصر الموجودة في اللستة
حاولت فيها وبحثت في النت فلم اجد هل هذا ممكن
اي اجعل pcs تساوي القيم التي مثلا في اللستة
Dim PCs As String() = {"العنصر رقم 0 في اللستة", "العنصر رقم 1 في اللستة", "العنصر رقم 2في اللستة" }
هي العناصر الموجودة في اللستة
حاولت فيها وبحثت في النت فلم اجد هل هذا ممكن