تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
شاشة مراقبة اجهزة
#41
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(0whole.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 
الرد }}}
تم الشكر بواسطة:
#42
مع وافر الشكر وجاري التجربة
شكرا مرة اخري
الرد }}}
تم الشكر بواسطة:
#43
متنساش وانت بتكتب في الملف النصى على السيرفر
انك تحدث حالة العميل
الرد }}}
تم الشكر بواسطة:
#44
حضرتك انا مش غاهم او مش قادر اوصل طلبي

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

ثم نجعل الاخنبار يكون علي العناصر الموجودة في اللستة
الرد }}}
تم الشكر بواسطة:
#46
اعمل برنامج صغير حته في جهاز العميل
كل مهمته انه لما يكون شايف السيرفر
يبعت سطر في التكست بوكس زى ماقولتلك فوق
الرد }}}
تم الشكر بواسطة:
#47
ليه حضرتك مش مصدق اني لا اعرف سرفر والمقصزد به هنا
انا عايز اجعل pcs تساوي العناصر التي باللستة بزكس
زالباقي سهل
الرد }}}
تم الشكر بواسطة:
#48
السلام عليكم ورحمة الله وبركاته

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

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


الملفات المرفقة
.rar   PCs Management.rar (الحجم : 90.21 ك ب / التحميلات : 48)
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}
تم الشكر بواسطة:
#49
حل ممتاز
سلمت الايادي

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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 577 09-01-24, 08:41 PM
آخر رد: new_programer
  تنصيب البرنامج على اجهزة العملاء um_noor20 2 327 30-10-23, 04:17 PM
آخر رد: Taha Okla
  تشغيل برنامج خارجي ضمن شاشة برنامجي strongriseman 1 341 13-09-23, 10:14 PM
آخر رد: anes
  [VB.NET] ممكن كود تغير خلفية شاشة تامين ويندوز jam3h 1 518 11-10-22, 04:09 AM
آخر رد: jam3h
  [VB.NET] تغيير حجم شاشة الوندوز mmaalmesry 1 559 21-08-22, 01:20 PM
آخر رد: DR.YASER
  [VB.NET] عمل شاشة دخول بامكانية تغيير الباس ورد في اي وقت اون لاين crazykinko 2 777 21-07-22, 04:12 PM
آخر رد: crazykinko
  كيفة عمل شاشة دخول بامكانية تغيير الباس ورد في اي وقت اون لاين masport tv 1 689 30-06-22, 05:47 AM
آخر رد: ابو روضة
  [VB.NET] backup انشاء نسخ احتياطي من اجهزة على الشبكة محمد بوقزاحة 3 801 01-06-22, 05:20 PM
آخر رد: نيمو
  [سؤال] كيف يمكنني ان اعمل شاشة دخول مستخدم hassan 17 10,062 22-05-22, 03:30 AM
آخر رد: أبو خالد الشكري
  شاشة find and replace محمود صالح 1 735 19-11-21, 01:22 AM
آخر رد: ابو انس

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 2 ) ضيف كريم