السلام عليكم ورحمة الله وبركاته
من داخل برنامج الفيجوالmac addressسؤال بسيط لو سمحتم كيف يمكنني الحصول علي قيمة
gatewayوكذلك علي ال
شكرا مقدما
كيف أحصل علي Mac Address وال Gateway
بالنسبة للـ Mac Address .. فلن ازيد عن المثال أدناه
Get your Network Interface Card's MAC Address
أما الـ Gateway فعندي طريقة بالـ WMI .. ضع الكود أدناه في الـ Form1 من مشروع جديد
Dim i As Integer
Dim MYComputer As String
Dim WMIService As Object
Dim MYAdapters As Object
Dim TMPAdapter As Object
MYComputer = "."
Set WMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & MYComputer & "\root\cimv2")
Set MYAdapters = WMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled=True")
ReDim Gatways(0) As String
For Each TMPAdapter In MYAdapters
If Not IsNull(TMPAdapter.DefaultIPGateway) Then
For i = 0 To UBound(TMPAdapter.DefaultIPGateway)
ReDim Preserve Gatways(UBound(Gatways) + 1) As String
Gatways(UBound(Gatways) - 1) = TMPAdapter.DefaultIPGateway(i)
Next
End If
Next
ReDim Preserve Gatways(UBound(Gatways) - 1) As String
End Sub
Private Sub Form_Load()
Dim TMPStr As String
Dim TMPArr() As String
Call GetGatways(TMPArr)
For i = LBound(TMPArr) To UBound(TMPArr)
TMPStr = TMPStr & TMPArr(i) & vbNewLine
Next
MsgBox TMPStr
End Sub
Private Sub GetGatways(ByRef Gatways() As String)
لاحظ إستخدام الـ Arrays تحسبا لوجود أكثر من Gateway
هناك طريقة أخرى للحصول على الـ Gateway الحالي من خلال الـ Registry
بإمكانك البحث أسفل المفتاح HKEY_LOCAL_MACHINE
وتحت أمرك في أي استفسار لكن رجائي الوحيد لو هتطلب شرح حدد النقاط بشكل واضح .. وبالتوفيق إن شاء الله
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
الف الف شكر علي رد حضرتك السريع وإجاباتك الشافية القاطعة وأسف لتعبك معانا بالنسبة للجيت واي فالحمد لله جربت الكود وأشتغل معايا زي الفل بقي الجزء الثاني من السؤال والخاص بالماك وأعتذر لعدم توضيحي لهذه الجزئيه فأنا أريد ماك الروتر وليس ماك الجهاز أسف للازعاج مرة أخري ولسيادتك جزيل الشكر علي المساعدة المتوقعة من أستاذ حدوم زي حضرتك بالنسبة للجزء الاخر من السؤال فأنا لست علي عجلة من أمري خد راحتك أنا عارف أني سهرتك انهارده
جزاكم الله خيرا
تم تعديل هذه المشاركة بواسطة محمد ونيس في 11 فبراير 2009 في 05:05
مرفق مثال لمعرفة الـ Mac Address بالـ API أيضا ولكن بإستخدام الـ SendARP هذه المرة بدلا من الـ NetBios
ويزيد هذه المره إمكانية معرفة أي Mac Address من خلال الـ IP Address المحلي .. وبالتوفيق إن شاء الله
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
والله مش عارف أشكرك إزاي بس فعلا أنا مش هعرف أردلك ولو جزء من جمايلك
تمت الاجابة وجزاكم الله عنا خيرا وجعله في ميزان حسناتك وإذا وقف أمامي شئ أكيد هسأل حضرتك فيه
شكرا جزيلا