+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : السيريال نامبر(serial number) للقرص الصلب (hard disk) (/showthread.php?tid=20850)
السيريال نامبر(serial number) للقرص الصلب (hard disk) - مبرمج مصرى - 27-06-17
كيف يمكن الحصول على السيريال نامبر(serial number) للقرص الصلب (hard disk)
وقد عرفت أن هن
وقد حاولت الحصول على الدالة Interop.HWINFOCOMLib.dll فى ال system32 g لكنى لم أجدها
RE: السيريال نامبر(serial number) للقرص الصلب (hard disk) - P39 - 27-06-17
PHP كود :
Add Reference to the System.Management Assembly.
For this you have to do:
1. Go to Project Tab
2. Click on Add References
3. Click on .NET tab
4. Select System.Management and press ok
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim HDD_Serial As String
Dim hdd As New ManagementObjectSearcher("select * from Win32_DiskDrive")
For Each hd In hdd.Get
HDD_Serial = hd("SerialNumber")
MsgBox(HDD_Serial)
Next
End Sub
RE: السيريال نامبر(serial number) للقرص الصلب (hard disk) - مبرمج مصرى - 27-06-17
شكرا يا أخى لقد جربت الكود لكن حصلت على خطأ فى ال error list وهو
type 'managementobjectsearcher' is not defined
فى السطر الثالث من الكود
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim HDD_Serial As String
Dim hdd As New ManagementObjectSearcher("select * from Win32_DiskDrive") For Each hd In hdd.Get
HDD_Serial = hd("SerialNumber")
MsgBox(HDD_Serial)
Next
End Sub
RE: السيريال نامبر(serial number) للقرص الصلب (hard disk) - مبرمج مصرى - 27-06-17
شكرا جزيلا يا أخى لقد عمل الكود على visual basic 2008 بعد إضافة السطر Imports System.Management
,ولكنى أطلب منك طريقة الكود ل visual basic 6 لأن البرنامج الذى أعمل فيه الآن أعمله بواسطة visual basic 6 إذا أمكن وشكرا
RE: السيريال نامبر(serial number) للقرص الصلب (hard disk) - مبرمج مصرى - 27-06-17
جزاكم الله خيرا
قمت بتشغيل الكود ل visual basic 6 ولكن لم تنجح عملية تسجيل ملف ال dll فى ال system32 وتظهر رسالة من command prompt.exe
فهل من مساعدة؟
RE: السيريال نامبر(serial number) للقرص الصلب (hard disk) - سعود - 27-06-17
(27-06-17, 03:43 PM)مبرمج مصرى كتب : جزاكم الله خيرا
قمت بتشغيل الكود ل visual basic 6 ولكن لم تنجح عملية تسجيل ملف ال dll فى ال system32 وتظهر رسالة من command prompt.exe
فهل من مساعدة؟
اذا نظامك اكس بي نفذ الكومند هذا
regsvr32 D:\WINDOWS\system32\HDDSN.dll
بعد ان تنقل الملف الى المسار المحدد
طبعا غير المسار هااااااااااااااه
RE: السيريال نامبر(serial number) للقرص الصلب (hard disk) - مبرمج مصرى - 27-06-17
الأخ سعود
لقد نفذت ما قلته و اختفى الerror يعنى تم التسجيل
لكن لم يظهر ال serial number
أرجو الإفادة
RE: السيريال نامبر(serial number) للقرص الصلب (hard disk) - سعود - 27-06-17
(27-06-17, 04:53 PM)مبرمج مصرى كتب : الأخ سعود
لقد نفذت ما قلته و اختفى الerror يعنى تم التسجيل
لكن لم يظهر ال serial number
أرجو الإفادة
هذا اللي مااقدر اعرفه لانه عندي ظهر ...
اتمنى احد يدلنا شلون نسوي ملف dll بالدوت نت ويتم تسجيله باكس بي
ممتاز وجدت الحل
https://support.microsoft.com/en-sg/help/817248/how-to-call-a-visual-basic-.net-or-visual-basic-2005-assembly-from-vis
RE: السيريال نامبر(serial number) للقرص الصلب (hard disk) - سعود - 27-06-17
يافرحة ما تمت
الشرح ينجح حين يكون كل الاصدارين بنفس النظام...
RE: السيريال نامبر(serial number) للقرص الصلب (hard disk) - sendbad100 - 28-06-17
(27-06-17, 04:53 PM)مبرمج مصرى كتب : الأخ سعود
لقد نفذت ما قلته و اختفى الerror يعنى تم التسجيل
لكن لم يظهر ال serial number
أرجو الإفادة
السلام عليكم
شغل البرنامج الفجوال بيسك كمسؤول
ايضا ملف exe بعد الترجمة يجب ان يشتغل كمسؤول