+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] بحاجة لكود عرض Mac Address خاصة الجهاز هل من مساعد ؟ (/showthread.php?tid=2276)
بحاجة لكود عرض Mac Address خاصة الجهاز هل من مساعد ؟ - elgokr - 18-03-14
السلام عليكم ورحمة الله
اخبركم جميعاً
كنت بحاجة لكود vb.net 2010
يعمل على جميع الانظمة
يقوم بعرض Mac Address داخل textbox
وبحاجة الكود يظهر بالشكل التالى
00-00-00-00-00
وليس
0000000000
واكون شاكر لكم جميعاً لكل من يساعدنى
واتمنى لو شرح مبسط فى طريقة الاستخدام
لانى لم امارس هذا لعدة سنين فاصبحت كالفاقد الوعى
شكراً لكم
اخبركم جميعاً
كنت بحاجة لكود vb.net 2010
يعمل على جميع الانظمة
يقوم بعرض Mac Address داخل textbox
وبحاجة الكود يظهر بالشكل التالى
00-00-00-00-00
وليس
0000000000
واكون شاكر لكم جميعاً لكل من يساعدنى
واتمنى لو شرح مبسط فى طريقة الاستخدام
لانى لم امارس هذا لعدة سنين فاصبحت كالفاقد الوعى
شكراً لكم
RE: بحاجة لكود عرض Mac Address خاصة الجهاز هل من مساعد ؟ - a_almisery - 18-03-14
Function macadrss()
Dim nics() As NetworkInterface = _
NetworkInterface.GetAllNetworkInterfaces
Return nics(0).GetPhysicalAddress.ToString
End Function
طبعاً في الاول اسـتدعي
System.Net.NetworkInformation
RE: بحاجة لكود عرض Mac Address خاصة الجهاز هل من مساعد ؟ - elgokr - 18-03-14
وحش من يومك
طيب لو كنت بحاجة لجعل النتيجة 00-00-00-00-00
بدل من 0000000000
تحياتى لك
RE: بحاجة لكود عرض Mac Address خاصة الجهاز هل من مساعد ؟ - elgokr - 19-03-14
وصلت وعملت الكود بعد هناه الواحد ذاكرته مختفية خالص
Dim networkcard() As System.Net.NetworkInformation.NetworkInterface = _
System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()
Dim netCard As String = networkcard(0).GetPhysicalAddress.ToString
Dim X As String
X = netCard.Substring(0, 2)
For i As Integer = 2 To netCard.Length - 1 Step 2
X = X & ":" & netCard.Substring(i, 2)
Next
textbox1.Text = X
دا الكود حبيت اضيفه عشان الناس تستفاد منه وكود شغال على الكل ومش بيحتاج لاى صعوبة
كل اللى هيتعمل انك تعمل textbox وتخلى textbox1 للاسم
واعمل معينة وهتلاقى شغال معاك بدون اى مشكلة
والافادة ممكن اضفها للناس فى الكود
فى الجزء دا
networkcard(0)
تقدر تغير قيمة 0 لـ قيمة انت بتكتبها مثلاً فى textbox2 على مثال
والقيمة بيكون لعدد كروت اللان على الجهاز
عشان اللاب توب اللى عنده لا وواى فاى ..... الخ
وبيكون 0 و 1 ... الخ حسب عدد الكروت عندك
يلا تسلم يا حبيبى على مشاركتك بالرد
ولو حد يقدر يفيدنى ان اعمل فورم بيقوم بتغيير الماك ادرس بطريقة عشوائية أو من خلال كتابة الكود فى textbox مثلاً
والحاجة التانية لو محتاج اجيب قيمة Upload و Download لسرعة النت زى فكرة موقع speed test
اعرف ان انا اقدر اخد القيمة من خلال الموقع زى فكرة الاى بى الرئيسى لخط النت
بس كن بحاجة لحد يفيدنى او يفكرنى بالطريقة واكون شاكر لكم
Dim networkcard() As System.Net.NetworkInformation.NetworkInterface = _
System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()
Dim netCard As String = networkcard(0).GetPhysicalAddress.ToString
Dim X As String
X = netCard.Substring(0, 2)
For i As Integer = 2 To netCard.Length - 1 Step 2
X = X & ":" & netCard.Substring(i, 2)
Next
textbox1.Text = X
دا الكود حبيت اضيفه عشان الناس تستفاد منه وكود شغال على الكل ومش بيحتاج لاى صعوبة
كل اللى هيتعمل انك تعمل textbox وتخلى textbox1 للاسم
واعمل معينة وهتلاقى شغال معاك بدون اى مشكلة
والافادة ممكن اضفها للناس فى الكود
فى الجزء دا
networkcard(0)
تقدر تغير قيمة 0 لـ قيمة انت بتكتبها مثلاً فى textbox2 على مثال
والقيمة بيكون لعدد كروت اللان على الجهاز
عشان اللاب توب اللى عنده لا وواى فاى ..... الخ
وبيكون 0 و 1 ... الخ حسب عدد الكروت عندك
يلا تسلم يا حبيبى على مشاركتك بالرد
ولو حد يقدر يفيدنى ان اعمل فورم بيقوم بتغيير الماك ادرس بطريقة عشوائية أو من خلال كتابة الكود فى textbox مثلاً
والحاجة التانية لو محتاج اجيب قيمة Upload و Download لسرعة النت زى فكرة موقع speed test
اعرف ان انا اقدر اخد القيمة من خلال الموقع زى فكرة الاى بى الرئيسى لخط النت
بس كن بحاجة لحد يفيدنى او يفكرنى بالطريقة واكون شاكر لكم