كود استخراج الMAC Address

تفضل اخي هاوي!

ماشالله شغلك كل في النظام و الحماية اذا خلص البرنامج ارسل لنا نسخة :lol:

GetMACadr.rar

HnHn شكلك تراقب تحركاتي :lol:

ولا يهمك .. ما طلبت شي .. يالغالي

لكنـ .. لو تقدر تعدل في الكود شوي .. -_-

ابي اعرض الماك ادرس لوحده بدون اي زيادات في الــText Box

يا ليت لو .. تقدر تعرضه في الـText Box

ما شاء الله عليك اخوي هاوي

اسئلتك دايم حلوه وتستوقف المبرمج الحقيقي !!!

ولكن الكود اللي أرفقه مشرفنا العزيز معقد جدا جدا جدا وهو في النهاية كود برمجي يشكر عليه..

ولكن فيه طريقة اسهل استخدمتها من فترة طويلة ومختصرة وسهلة ان شاء الله احصلها وارفقها لك قريب..

بالفعل اخ Al-jameel الكود تحصلت عليه من موقع اجنبي وهو معقد فأتمنى ان تعذرني

لأني لم اصل الى قدراتك ولا اعرف كيف ان اشارك بالكلام :lol:

اقتباس

لكنـ .. لو تقدر تعدل في الكود شوي

ولا يهمك اخي هاوي! سأقوم بذلك بعد ان نرى ما لدى الاخ Al-jameel فربما يكون اسهل واسرع ...

مدري ليـش كل ما طلبت شي .. يتأخر الرد .. وتكثر التعليقاات

HnHn :angry: Al-jameel

اي واحد يعرف يعلق .. -_-

لكن مو اي واحد يعلق بمثال عملي ..

انتظـر تعليقاتكم القادمة .. ويا ليت تكون بمثال عملي

<_<

كلامك صحيح اخي هاوي! وانا اعتذر

وقد تحصلت على ما تريد ... ماذا تريد اكثر ... لا اعتقد انك مستعد لشرح مسائل لكل عضو يسئل فالكل يأخذ ويرحل وها انت تحصلت على ما تريد ويجب ان تتعب قليلا في تقيلص الكود

اخ Al-jameel :

لاحظت في اكثر من موضوع تعلق دون فائدة اذا كان لديك ما تضيفه فقدمه للفائده وإلا لا تقم بالرد فلست مجبرا قل خيرا أو اصمت

مشرفنا العزيز HnHn (h)

انا ما قلت شيء غلط ولا تكلمت بشيء غلط..وش فيك زعلان :angry:

__________

اخ Al-jameel :

لاحظت في اكثر من موضوع تعلق دون فائدة اذا كان لديك ما تضيفه فقدمه للفائده وإلا لا تقم بالرد فلست مجبرا قل خيرا أو اصمت

__________

هو انا قلت شيء اصلا؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ :wacko:

__________

هاوي الطرق كثيرة ومتعددة منها مثل الكودالتالي..

Private Sub Command1_Click()
Open "c:\mac\mes.bat" For Output As #5
Print #5, "Getmac>>mac.txt"
Close #5
End Sub
Private Sub Command2_Click()
Shell "c:\mac\mes.bat", vbHide
End Sub
Private Sub Command3_Click()
List1.Clear
Dim sss As String
Open "c:\mac\mac.txt" For Input As #2
Do While Not EOF(2)
Input #2, sss
List1.AddItem LTrim(sss)
Loop
Close #2
List1.Selected(3) = True
End Sub
Private Sub Command4_Click()
Text1.Text = Left(List1.Text, 17)
End Sub
'IPConfig (Windows 98/ME/XP/2000/NT)
'Winipcfg (Windows 95/98)
'Getmac  (Windows XP)
'ipconfig/all
'وهناك اضافات بسيطه للتعامل مع الملف مثل التأكد من تصديرة للمفكرة والقراءة منه وحذفه وغيره

طول بالك يا مشرفنا واحنا نتناقش ونتبادل الأفكار ومجهودك واضح الله يعطيك العافيه...

السلام عليكم ورحمة الله وبركاته

جزاكم الله كل خير على مجهوداتكم

ولكني أتسائل

فقط تسائل

هل إذا طلب أحد كود فأعطاه آخر فلم يعجبه طريقة العرض هل يناشد المنتدى ليقوموا بتغيير طريقة العرض

إذاً هل السائل مبرمج أم لا

إذا كل الكود صعب فلماذا لا يقوم بتصفية الخرج

أرجوا أن تعذروني على ردي وكن استغرابي جعلني أتكلم

والسلام عليكم ورحمة الله وبركاته

هذه الـ function تفوم بإيجاد الـ MacAddress Local

Private Function GetMACAddressLocale() As String
	On Error Resume Next
	Dim ss As String
	Dim strInput As String
	Dim strSearchString
	Dim fso As New FileSystemObject, TXT As TextStream

	Shell "cmd /c ipconfig /all > C:\Mac1.txt", vbHide

	Set TXT = fso.OpenTextFile("C:\Mac1.txt", ForReading, True)

	Dim x As Long
	x = 0
	Do Until TXT.AtEndOfStream
		x = x + 1
		strInput = TXT.ReadLine
		ss = InStr(strInput, "Physical Address")
		If ss > 0 Then
			strInput = Trim(DecNum2(strInput, ":"))
			strInput = Mid(strInput, 1, 17)
			'strInput = Mid(strInput, 38, 17)
			GetMACAddressLocale = strInput
			Exit Do
		End If

	Loop
	TXT.Close

	Kill "C:\Mac1.txt"

End Function

تحياتي

أخ ياسر جمال

البرمجة ليست صعبة ولكن طريقة كتابة الكود والوصول الى الهدف هي نقطة نقاش دائمة بين المبرمجين فقط...

اخ Al-jameel

واخ adel_elgo

مشكورين لما قمتم باضافته ممكن ان تعملو ذلك في مثال لما قدمتموه لأني :( حاولت ان اعمل ذلك ولم استطع ان اصل الى نتيجه

MAC_Address.rar