30-06-18, 12:54 AM
السلام عليكم ورحمة الله وبركاته
ارفق لكم سورس كود مع البرنامج
لعرض اسماء الاجهزة بالشبكة المحلية
اليكم صورة ايقونة البرنامج مع عرض شكل القائمة
الاكواد المستخدمة
يتم استدعاء
كود :
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)
تحياتى للجميع
وتمنياتى لكم كل التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية