منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مع وافر الشكر وجاري التجربة
شكرا مرة اخري

متنساش وانت بتكتب في الملف النصى على السيرفر
انك تحدث حالة العميل

حضرتك انا مش غاهم او مش قادر اوصل طلبي

انا عملت زر 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 تساوي العناصر التي باللستة بزكس
زالباقي سهل

السلام عليكم ورحمة الله وبركاته

تم تعديل البرنامج

يمكنك الآن (إضافة - تعديل - حذف) عناوين الأجهزة بقاعدة بيانات آكسس والتعامل معها علي ذلك الأساس .

حل ممتاز
سلمت الايادي

وزيادة في التعلم
كيف اجعل

اي اجعل pcs تساوي القيم التي مثلا في اللستة
Dim PCs As String() = {"العنصر رقم 0 في اللستة", "العنصر رقم 1 في اللستة", "العنصر رقم 2في اللستة" }
هي العناصر الموجودة في اللستة
حاولت فيها وبحثت في النت فلم اجد هل هذا ممكن

حل ممتاز
سلمت الايادي

وزيادة في التعلم
كيف اجعل

اي اجعل pcs تساوي القيم التي مثلا في اللستة
Dim PCs As String() = {"العنصر رقم 0 في اللستة", "العنصر رقم 1 في اللستة", "العنصر رقم 2في اللستة" }
هي العناصر الموجودة في اللستة
حاولت فيها وبحثت في النت فلم اجد هل هذا ممكن