[scluay]

السلام عليكم شباب زادكم ربي حرصا ونفع بكم
كيف استطيع الحصول على s/n للحاسبه

[Abdullah0991]

ممكن توضح سؤالك ,,

[الشاكي لله]

S/N يعني السيريال

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

سيريال الماذربورد او سيريال الهاردسك او الوندوز او .....

[scluay]

السلام عليكم انا عندي لابتوب عندما اقلب الحاسبه يوجد s/n
المقصود من الحصول على سيريل نمبر هو اريد اعمل برنامج لا يتنصب الا بعد اذني انا ادخل السيريل نمبر للحاسبه حتى يعمل
وجزاكم ربي خيرا ونفع بكم
بصراحه هذا منتدى قمه في الروعه استفدة منه كثيرا

[مالكـ]

اخي كما قال لك الشاكي لله

حدد اي سيريال ..... تريد ..؟

[scluay]

سيريل الماذربورد

[مالكـ]

في البداية قم بادراج المكتبة 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 


[m.sami.ak]

راجع الرابط التالي

ادخل الرابط هناااا