[ابو محمد محمد محمد]

لا تيأس احيانا ابقى ابحث عن الحل لعدة ايام

المشكلة لا علم لي بواجهة الشبكات او ما المطلوب

هذا الكود شغال وانا جربته بنفسي
ولا يحتاج الى اي مكتبات

كود :

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

يمكنك الوصول الى كل شئ