+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف الحصول S/n للحاسبه (/showthread.php?tid=1052)
كيف الحصول S/n للحاسبه - scluay - 23-11-13
السلام عليكم شباب زادكم ربي حرصا ونفع بكم
كيف استطيع الحصول على s/n للحاسبه
RE: كيف الحصول S/n للحاسبه - Abdullah0991 - 23-11-13
ممكن توضح سؤالك ,,
RE: كيف الحصول S/n للحاسبه - الشاكي لله - 23-11-13
S/N يعني السيريال
اي سيريال تقصد ؟
سيريال الماذربورد او سيريال الهاردسك او الوندوز او .....
RE: كيف الحصول S/n للحاسبه - scluay - 23-11-13
السلام عليكم انا عندي لابتوب عندما اقلب الحاسبه يوجد s/n
المقصود من الحصول على سيريل نمبر هو اريد اعمل برنامج لا يتنصب الا بعد اذني انا ادخل السيريل نمبر للحاسبه حتى يعمل
وجزاكم ربي خيرا ونفع بكم
بصراحه هذا منتدى قمه في الروعه استفدة منه كثيرا
RE: كيف الحصول S/n للحاسبه - مالكـ - 23-11-13
اخي كما قال لك الشاكي لله
حدد اي سيريال ..... تريد ..؟
RE: كيف الحصول S/n للحاسبه - scluay - 23-11-13
سيريل الماذربورد
RE: كيف الحصول S/n للحاسبه - مالكـ - 24-11-13
في البداية قم بادراج المكتبة System.Management
ثم استورد المكتبة
PHP كود :
Imports System.Management
الكود الاول :
PHP كود :
Function GetMotherboardSerialNumber() As String
Dim searcher As New ManagementObjectSearcher("SELECT SerialNumber, Product FROM Win32_BaseBoard")
Dim information As ManagementObjectCollection = searcher.Get()
Dim serialNumber As String = String.Empty
For Each obj As ManagementObject In information
If (obj.Properties("SerialNumber").Value.ToString().Trim() <> String.Empty) Then
serialNumber = obj.Properties("SerialNumber").Value.ToString().Trim()
Else
serialNumber = obj.Properties("Product").Value.ToString().Trim()
End If
Exit For
Next
searcher.Dispose()
Return serialNumber
End Function
مصدر الكود الاول : من هنا
الكود الثاني :
PHP كود :
Public Function MotherboardSerialNumber() As String
Dim searcher As New System.Management.ManagementObjectSearcher("SELECT SerialNumber FROM Win32_BaseBoard")
For Each obj As System.Management.ManagementObject In searcher.Get
Return obj.Properties("SerialNumber").Value.ToString
Next
Return String.Empty
End Function
RE: كيف الحصول S/n للحاسبه - m.sami.ak - 24-11-13
راجع الرابط التالي
ادخل الرابط هناااا