تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سورس كود لبرنامج عرض اسماء الاجهزة بالشبكة المحلية ...
#1
Brick 
السلام عليكم ورحمة الله وبركاته

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

اليكم صورة ايقونة البرنامج مع عرض شكل القائمة


الاكواد المستخدمة

يتم استدعاء
كود :
Imports System.DirectoryServices
ويتم جلب ذلك الملف من خلال References

من ثم داخل الـ Form1_Load
كود :
Dim GrtName_ As New Threading.Thread(AddressOf GetNetworkComputers)
       GrtName_.IsBackground = True
       GrtName_.Start()
ثم يتم اضافة عدد 2 Sub
كود :
Private Sub AddListBoxItem(ByVal s As String)
       ListBox1.Items.Add(s)
   End Sub
كود :
Private Sub GetNetworkComputers()
       Dim alWorkGroups As New ArrayList
       Dim de As New DirectoryEntry

       de.Path = "WinNT:"
       For Each d As DirectoryEntry In de.Children
           If d.SchemaClassName = "Domain" Then alWorkGroups.Add(d.Name)
           d.Dispose()
       Next

       For Each workgroup As String In alWorkGroups

           de.Path = "WinNT://" & workgroup
           For Each d As DirectoryEntry In de.Children

               If d.SchemaClassName = "Computer" Then

                   Dim del As UpdateDelegate = AddressOf AddListBoxItem
                   Me.Invoke(del, d.Name)

               End If

               d.Dispose()

           Next
       Next
   End Sub

السورس (2015)

تحياتى للجميع
وتمنياتى لكم كل التوفيق


الملفات المرفقة
.zip   Pro Computer Network.zip (الحجم : 60.43 ك ب / التحميلات : 400)
.zip   ComputerNetwork.zip (الحجم : 265.3 ك ب / التحميلات : 471)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#2
موضوع جميل جدا ..
الرد }}}
تم الشكر بواسطة: elgokr , elgokr , sendbad100
#3
(30-06-18, 02:26 AM)YousefOkasha كتب : موضوع جميل جدا ..


انت الاجمل اخى YousefOkasha

بمرورك وردك الجميل

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: YousefOkasha , sendbad100
#4
الله يجزاك خير مجهود رائع 
الرد }}}
تم الشكر بواسطة: elgokr
#5
السلام عليكم 

شكرا لك

الله يجعلة في ميزان حسناتك 

يعمل بكفاءة
الرد }}}
تم الشكر بواسطة: elgokr
#6
لا يظهر اسماء الاجهزة المتصلة لالسكيا    من خلال الواي فاي
ما السبب
يعرض صفحة بيضاء
الرد }}}
تم الشكر بواسطة: elgokr
#7
جزاك الله خير

مجهود تشكر عليه
الرد }}}
تم الشكر بواسطة: elgokr , elgokr
#8
(30-06-18, 09:58 AM)الوايلي كتب : الله يجزاك خير مجهود رائع 

تسلم اخى الوايلي
ويجزيك الله بالمثل

تحياتى لك

(30-06-18, 10:12 AM)sendbad100 كتب :
السلام عليكم 

شكرا لك

الله يجعلة في ميزان حسناتك 

يعمل بكفاءة

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

الهم امين ولنا جميعاً يارب

تسلم اخى sendbad100
على ردك ودعمك

تحياتى لك

(30-06-18, 03:47 PM)atefkhalf2004 كتب : لا يظهر اسماء الاجهزة المتصلة لالسكيا    من خلال الواي فاي
ما السبب
يعرض صفحة بيضاء

حياك الله اخى atefkhalf2004

بخصوص الاجهزة التى تعمل من خلال الواى فاي 
هل هى اجهزة كمبيوتر ام اجهزة هاتفية؟

لان من المفترض ان كل ما يعرض فى شبكة Network
سيعرض هنا ولسبب ليس لدى فىالوقت الحالى اى اجهزة تعمل بنظام WiFi
فلا يمكننى افادتك فعلياً لكن عن قريب سيتم اختبار الملف على شبكة بالمثل
وسيتم الرد بالسبب اذا لم يعرض اى اسم جهاز على شبكة WiFi

تحياتى لك

(30-06-18, 04:48 PM)dubai.eig كتب : جزاك الله خير

مجهود تشكر عليه

تسلم اخى dubai.eig

على الرد الجميل وعلى الدعم بـ +1

والشكر لله دائماً

تحياتى لك

وتحياتى للجميع 
وتمنياتى لهم التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  جعل البرنامج لا يعمل على الاجهزة التي لاتدعم اللغة العربية العتيق 0 179 27-01-24, 08:08 PM
آخر رد: العتيق
Question [VB.NET] كيف بمكن إدراج اسماء الدول ضمن Combox نامل المساعدة في المثال المرفق ؟ Microformt 5 425 13-01-24, 01:56 PM
آخر رد: Ashraf Elafify
Brick [VB.NET] سورس كود لمشروع Notification Box.. صندوق الاشعارات musalem 2 760 02-01-24, 02:26 PM
آخر رد: hasannaseer
  [مشروع] سورس كود برنامج مبيعات لسه مبتدئ 42 34,751 07-10-23, 07:25 PM
آخر رد: حورس2000
Brick [VB.NET] سورس كود LCD CLOCKZ هو مشروع لساعة ديجيتال بشكل مميز وجذاب musalem 0 532 04-07-23, 02:08 AM
آخر رد: musalem
Information [VB.NET] سورس كود لمشروع ادارة كوفي شوف صغير.. under development musalem 0 641 04-07-23, 01:56 AM
آخر رد: musalem
Music [VB.NET] سورس كود برنامج إذاعي متطور musalem 0 624 25-06-23, 02:06 AM
آخر رد: musalem
Brick [مشروع] سورس كود برنامج إدارة المخزن MStore بلغة VB.NET musalem 1 1,378 17-06-23, 10:03 AM
آخر رد: atefkhalf2004
  [VB.NET] سورس كود برنامج تشغل القران الكريم عبر الانترنت [ تم تحديث الموضوع ] elgokr 11 8,378 27-03-23, 10:35 AM
آخر رد: Hend m
  [VB.NET] سورس كود لعملية تعبئة TreeView ببيانات من ثلاث جداول فاكثر elgokr 19 13,012 12-02-23, 10:10 AM
آخر رد: salamandal

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


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