تقييم الموضوع :
  • 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 ك ب / التحميلات : 327)
.zip   ComputerNetwork.zip (الحجم : 265.3 ك ب / التحميلات : 386)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
#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

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

تحياتى لك

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] مشروع سورس كود مفتوح و متكااااامل لادارة المطاعم DR.YASER 75 23,618 20-05-22, 09:44 PM
آخر رد: linesoft
Thumbs Up سورس كود برنامج مبيعات ومخازن نورالدين32 8 7,891 19-05-22, 07:44 PM
آخر رد: dindo
Photo [VB.NET] تبادل سورس كود كريم الفقى 4 610 23-04-22, 12:44 AM
آخر رد: كريم الفقى
Wink [مشروع] الة حاسبة بسيطة سورس كود مع الشرح بالفيديو للكود ahmadpal 5 4,502 23-02-22, 06:02 PM
آخر رد: عبدالرحمن.1
Lightbulb سورس كود برنامج صانع الاكواد asemshahen5 60 39,393 16-02-22, 06:54 PM
آخر رد: ibrahematia
  [مشروع] سورس كود برنامج مبيعات لسه مبتدئ 41 27,864 17-12-21, 08:46 AM
آخر رد: يوسف محسن المتلل
  [VB.NET] طلب سورس كود لبرنامج ادراة الديون بلغة vb.net b97er 0 567 10-12-21, 02:38 AM
آخر رد: b97er
  [مشروع] تحميل وتنزيل سورس كود محاسبة سوبر ماركت باللغة فيجوال بيسك 2010 risboten 3 3,747 01-10-21, 01:51 AM
آخر رد: benali17
  [VB.NET] سورس كود برنامج تشغل القران الكريم عبر الانترنت [ تم تحديث الموضوع ] elgokr 9 5,076 18-06-21, 08:51 PM
آخر رد: spiky
  [مشروع] تصميم احترافي لبرنامج شئون الموظفين باستخدام ديف اكسبريس + تحميل السورس كود mazentq 4 3,802 12-11-20, 03:05 PM
آخر رد: MORADWAN

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


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