تقييم الموضوع :
  • 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
راجع الرابط التالي

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكنني الحصول علي البيانات من قاعدة اكسس salahmax12 2 90 30-10-18, 10:10 PM
آخر رد: sads
  كيف يمكن الحصول على احصائيات من قاعدة البيانات blida02 6 281 30-05-18, 03:50 AM
آخر رد: mrnooo2000
  [سؤال] كيفية الحصول علي مساحة مجلد بالبايت في فجول بيسك Iman Mohamed Omran 4 309 30-04-18, 06:49 PM
آخر رد: Iman Mohamed Omran
  [سؤال] الحصول على اسماء المستخدمين Mohamed20 3 370 27-01-18, 08:50 PM
آخر رد: عبدالله الدوسري
  [VB.NET] كيف يمكن الحصول على ترميز ينيكود Lamyaa 2 189 27-01-18, 12:32 AM
آخر رد: محمود صالح
  كيف يمكننى الحصول على فيجوال استوديو مبرمج مصرى 1 210 05-01-18, 09:18 PM
آخر رد: الكاتب
  الحصول على الوقت و التاريخ Mohamed20 1 300 07-12-17, 06:48 PM
آخر رد: طالب برمجة
  الحصول على التواريخ المحصورة بين تاريخين في متغيرات تناسيم 3 288 03-12-17, 07:28 PM
آخر رد: Rabeea Qbaha
  الحصول على قيمة من listview checked Mohamed20 2 409 07-03-17, 01:52 AM
آخر رد: Mohamed20
  كيف الحصول على حجم نوافذ عملية Mohamed20 2 347 06-03-17, 04:54 PM
آخر رد: Mohamed20

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


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