+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [VB.NET] سورس كود لبرنامج عرض اسماء الاجهزة بالشبكة المحلية ... (/showthread.php?tid=25556)
سورس كود لبرنامج عرض اسماء الاجهزة بالشبكة المحلية ... - elgokr - 30-06-18
السلام عليكم ورحمة الله وبركاته
ارفق لكم سورس كود مع البرنامج
لعرض اسماء الاجهزة بالشبكة المحلية
اليكم صورة ايقونة البرنامج مع عرض شكل القائمة
الاكواد المستخدمة
يتم استدعاء
كود :
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)
تحياتى للجميع
وتمنياتى لكم كل التوفيق
RE: سورس كود لبرنامج عرض اسماء الاجهزة بالشبكة المحلية ... - YousefOkasha - 30-06-18
موضوع جميل جدا ..
RE: سورس كود لبرنامج عرض اسماء الاجهزة بالشبكة المحلية ... - elgokr - 30-06-18
(30-06-18, 02:26 AM)YousefOkasha كتب : موضوع جميل جدا ..
انت الاجمل اخى YousefOkasha
بمرورك وردك الجميل
تحياتى لك
وتمنياتى لك التوفيق
RE: سورس كود لبرنامج عرض اسماء الاجهزة بالشبكة المحلية ... - الوايلي - 30-06-18
الله يجزاك خير مجهود رائع
RE: سورس كود لبرنامج عرض اسماء الاجهزة بالشبكة المحلية ... - sendbad100 - 30-06-18
السلام عليكم
شكرا لك
الله يجعلة في ميزان حسناتك
يعمل بكفاءة
RE: سورس كود لبرنامج عرض اسماء الاجهزة بالشبكة المحلية ... - atefkhalf2004 - 30-06-18
لا يظهر اسماء الاجهزة المتصلة لالسكيا من خلال الواي فاي
ما السبب
يعرض صفحة بيضاء
RE: سورس كود لبرنامج عرض اسماء الاجهزة بالشبكة المحلية ... - dubai.eig - 30-06-18
جزاك الله خير
مجهود تشكر عليه
RE: سورس كود لبرنامج عرض اسماء الاجهزة بالشبكة المحلية ... - elgokr - 30-06-18
(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
والشكر لله دائماً
تحياتى لك
وتحياتى للجميع
وتمنياتى لهم التوفيق