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)
تحياتى للجميع
وتمنياتى لكم كل التوفيق