مقدمة، أراد المؤلف تطوير نظام MIS منذ بعض الوقت نظرًا لأن نظام MIS هو برنامج غير مجاني، فيجب أيضًا تطوير وحدة التسجيل المقابلة عند استكمال تطوير النظام نظرًا لأنه نظام B/S منظم. لذلك، أثناء التسجيل لاختيار رموز الميزات، اخترت عنوان MAC فريدًا لبطاقة الشبكة. دون مزيد من اللغط، دعونا نصل إلى هذه النقطة. نظرًا لأن هذا النظام عبارة عن برنامج تجاري، فإن الكود التالي يحتوي فقط على أفكار التعليمات البرمجية ورمز التنفيذ البسيط، ويمكنك اللعب بالكود بحرية، أو يمكنك مناقشته معي.
'----------------------استخراج معلومات حول كافة بطاقات الشبكة--------------------'
الوظيفة العامة GetMacInfo()
عند حدوث خطأ في استئناف التالي
Dim fso، FileStr، AspSleepThread، CmdStr، SysDir، wshshell، CmdRe، MacFileContentFile، MacFileContent
كونست ماكفيل = "TmpYesoulSoft001.LLP"
تعيين fso = Server.CreateObject("Scripting.FileSystemObject")
SysDir = سبليت (GlobalMod.GetSysDir، "،")(1)
إذا كان InStr(LCase(SysDir), "system32") = 0 إذن
GetMacInfo = "يمكن تشغيل هذا النظام فقط على أنظمة 32 بت مثل Nt، وWindows 2000، وWindows.Net، وWindows Xp، وWindows 2003، وما إلى ذلك. والأنظمة التي تقل عن 32 بت غير مدعومة!"
"www.downcodes.com."
وظيفة الخروج
آخر
CmdStr = SysDir + "Cmd.exe /C" + SysDir + "Ipconfig.exe /All > " + Server.MapPath(MacFile)
نهاية إذا
CmdRe = Shell(CmdStr, vbHide)
إذا CmdRe <> 0 ثم
تعيين MacFileContentFile = fso.OpenTextFile(Server.MapPath(MacFile), 1, False, TristateUseDefault)
'GetMacInfo = MacFileContentFile.ReadAll()
'الاستجابة. فلوش
FileStr = MacFileContentFile.ReadAll()
MacFileContentFile.Close
تعيين MacFileContentFile = لا شيء
تعيين AspSleepThread = Server.CreateObject("YesoulSoft.SleepThread")
'حدد الوقت الذي يتوقف فيه الخيط، هنا هو بالمللي ثانية
AspSleepThread.SleepTime = 500
AspSleepThread.BeginSleepThread
GetMacInfo = ExecuteOne(FileStr, "العنوان الفعلي. . . . . . . . . : (.*)")
تعيين AspSleepThread = لا شيء
آخر
GetMacInfo = "النظام غير قادر حاليًا على الحصول على معلومات الشبكة الخاصة بك. الرجاء التحقق من علاقة توريث الأذونات قبل تشغيل هذا النظام!"
وظيفة الخروج
نهاية إذا
ديلفايل ماكفيل
تعيين fso = لا شيء
وظيفة النهاية
'------------------قم بمطابقة النتيجة مرة واحدة في السلسلة ------------------'
تنفيذ الوظيفة العامة (inpStr، PatStr)
خافت خام، أوماتش، أوماتشس
Set oRe = New RegExp
oRe.Pattern = PatStr
inpStr = LCase(inpStr)
oRe.IgnoreCase = صحيح
تعيين oMatches = oRe.Execute(inpStr)
تعيين oMatch = oMatches(0)
ExecuteOne = oMatch.SubMatches(0)
وظيفة النهاية
الحصول على عنوان MAC الخاص ببطاقة الشبكة الأولى فقط، أما بالنسبة لـ DNS والبوابة والمعلومات الأخرى، فيمكنك استخلاص استنتاجات من مثال واحد.