منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
شاشة مراقبة اجهزة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : شاشة مراقبة اجهزة (/showthread.php?tid=10036)

الصفحات: 1 2 3 4 5 6

شاشة مراقبة اجهزة - barakascap - 17-08-13

PHP كود :
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 


شاشة مراقبة اجهزة - atefkhalf2004 - 17-08-13

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

شاشة مراقبة اجهزة - barakascap - 17-08-13

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

شاشة مراقبة اجهزة - atefkhalf2004 - 17-08-13

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

انا عملت زر 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

شاشة مراقبة اجهزة - atefkhalf2004 - 17-08-13

الاساتذة الافاضل
توصلت الي حل يحناج الي التكملة
بفرض ان اسماء الاجهزة يضيفها العميل الي لستة ويتم اخنبار الاسماء الموجودة قي اللستة
يتبقي كيف اضيف العناصر الي المصفوفة 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()

ثم نجعل الاخنبار يكون علي العناصر الموجودة في اللستة

شاشة مراقبة اجهزة - barakascap - 17-08-13

اعمل برنامج صغير حته في جهاز العميل
كل مهمته انه لما يكون شايف السيرفر
يبعت سطر في التكست بوكس زى ماقولتلك فوق

شاشة مراقبة اجهزة - atefkhalf2004 - 17-08-13

ليه حضرتك مش مصدق اني لا اعرف سرفر والمقصزد به هنا
انا عايز اجعل pcs تساوي العناصر التي باللستة بزكس
زالباقي سهل

شاشة مراقبة اجهزة - kslawy - 17-08-13

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

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

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

شاشة مراقبة اجهزة - atefkhalf2004 - 18-08-13

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

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

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

شاشة مراقبة اجهزة - atefkhalf2004 - 18-08-13

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

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

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