22-08-23, 09:40 PM
(آخر تعديل لهذه المشاركة : 22-08-23, 09:49 PM {2} بواسطة ابو محمد محمد محمد.)
لا تيأس احيانا ابقى ابحث عن الحل لعدة ايام
المشكلة لا علم لي بواجهة الشبكات او ما المطلوب
هذا الكود شغال وانا جربته بنفسي
ولا يحتاج الى اي مكتبات
يمكن تجزئة المطلوب الى خطوات قبل كل شئ جرب هذه الجزئية فقط عندك
وطبعا لا تنسة استيراد مجال الاسماء المطلوب فوق
بعد ان تشتغل هذه الجزئية واكيد سوف تشتغل راجع اخر كلاسس وانظر كيف تصل الى ما تريد على سبيل المثال
عن طريق المتغير
يمكنك الوصول الى كل شئ
المشكلة لا علم لي بواجهة الشبكات او ما المطلوب
هذا الكود شغال وانا جربته بنفسي
ولا يحتاج الى اي مكتبات
كود :
Dim interfaceb As NetworkInterface
For Each interfaceb In NetworkInterface.GetAllNetworkInterfaces()
' Print the interface name and InterfaceType.
Label1.Text = interfaceb.Name & " " & interfaceb.NetworkInterfaceType
Nextيمكن تجزئة المطلوب الى خطوات قبل كل شئ جرب هذه الجزئية فقط عندك
وطبعا لا تنسة استيراد مجال الاسماء المطلوب فوق
بعد ان تشتغل هذه الجزئية واكيد سوف تشتغل راجع اخر كلاسس وانظر كيف تصل الى ما تريد على سبيل المثال
كود :
Label1.Text = interfaceb.GetPhysicalAddress.ToStringعن طريق المتغير
كود :
Dim interfaceb As NetworkInterfaceيمكنك الوصول الى كل شئ
