تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف الحصول S/n للحاسبه
#1
السلام عليكم شباب زادكم ربي حرصا ونفع بكم
كيف استطيع الحصول على s/n للحاسبه
الرد
تم الشكر بواسطة:
#2
ممكن توضح سؤالك ,, Huh
سبحان الله وبحمده سبحان الله العظيم

الرد
تم الشكر بواسطة: scluay
#3
S/N يعني السيريال

اي سيريال تقصد ؟

سيريال الماذربورد او سيريال الهاردسك او الوندوز او .....
الرد
تم الشكر بواسطة: scluay
#4
السلام عليكم انا عندي لابتوب عندما اقلب الحاسبه يوجد s/n
المقصود من الحصول على سيريل نمبر هو اريد اعمل برنامج لا يتنصب الا بعد اذني انا ادخل السيريل نمبر للحاسبه حتى يعمل
وجزاكم ربي خيرا ونفع بكم
بصراحه هذا منتدى قمه في الروعه استفدة منه كثيرا
الرد
تم الشكر بواسطة:
#5
اخي كما قال لك الشاكي لله

حدد اي سيريال ..... تريد ..؟
الرد
تم الشكر بواسطة: scluay
#6
سيريل الماذربورد
الرد
تم الشكر بواسطة:
#7
في البداية قم بادراج المكتبة 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 
الرد
تم الشكر بواسطة:
#8
راجع الرابط التالي

ادخل الرابط هناااا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية الحصول علي مساحة مجلد بالبايت في فجول بيسك Iman Mohamed Omran 2 77 21-04-18, 05:23 AM
آخر رد: سعود
  [سؤال] الحصول على اسماء المستخدمين Mohamed20 3 190 27-01-18, 08:50 PM
آخر رد: عبدالله الدوسري
  [VB.NET] كيف يمكن الحصول على ترميز ينيكود Lamyaa 2 64 27-01-18, 12:32 AM
آخر رد: محمود صالح
  كيف يمكننى الحصول على فيجوال استوديو مبرمج مصرى 1 75 05-01-18, 09:18 PM
آخر رد: الكاتب
  الحصول على الوقت و التاريخ Mohamed20 1 168 07-12-17, 06:48 PM
آخر رد: طالب برمجة
  الحصول على التواريخ المحصورة بين تاريخين في متغيرات تناسيم 3 129 03-12-17, 07:28 PM
آخر رد: Rabeea Qbaha
  الحصول على قيمة من listview checked Mohamed20 2 272 07-03-17, 01:52 AM
آخر رد: Mohamed20
  كيف الحصول على حجم نوافذ عملية Mohamed20 2 222 06-03-17, 04:54 PM
آخر رد: Mohamed20
  الحصول على مجموع الارقام Mohamed20 3 385 15-01-17, 11:48 PM
آخر رد: Mohamed20
  الحصول على الرقم التسلسلي للوحة الأم bidaya 4 526 10-01-17, 01:41 AM
آخر رد: bidaya

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم