[عبدالرحمن رمضان]

وعليكم السلام ورحمة الله وبركاته

اؤكد ما ورد في رد الاستاذ عبدالعزيز فيما يخص كسر البرنامج 
اما فيما يخص عدم نقل البرنامج الى جهاز ثاني بالامكان استخدام Serial Number مع بعض الاضافات عليه 

PHP كود :

 Function SerialmyComputer()
        Dim SerialC As Object
        Dim CD As String
        SerialC = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber()
        'SerialD = CreateObject("Scripting.FileSystemObject").GetDrive("D:\").SerialNumber()
     
        CD = "اخياري ان شئت" & SerialC & "بعد السيريال لو شئت"
        Return CD
    End Function 


و من ثم تنشئ متغير في strSeireal في الـ Settings وتستدعيه في حدث التحميل مثلا :

PHP كود :

Private Sub Frm_Star_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

               Dim xyz As String = SerialmyComputer()
        If My.Settings.strSeireal <> xyz Then

            My.Settings.strSeireal = InputBox("ادخل مفتاح المنتج", "تحذير")
        End If
        My.Settings.Save()
        If My.Settings.strSeireal <> SerialmyComputer() Then
            File.Move("AlNuor.accdb", "Source" & ".spc")
            MessageBox.Show("عذا سيتم اغلاق البرنامج يرجى إدخال مفتاح تنشيط المنتج ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
            End
        End If

    End Sub

   


---

وعليكم السلام ورحمة الله وبركاته

اؤكد ما ورد في رد الاستاذ عبدالعزيز فيما يخص كسر البرنامج 
اما فيما يخص عدم نقل البرنامج الى جهاز ثاني بالامكان استخدام Serial Number مع بعض الاضافات عليه 

PHP كود :

 Function SerialmyComputer()
        Dim SerialC As Object
        Dim CD As String
        SerialC = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber()
        'SerialD = CreateObject("Scripting.FileSystemObject").GetDrive("D:\").SerialNumber()
     
        CD = "اخياري ان شئت" & SerialC & "بعد السيريال لو شئت"
        Return CD
    End Function 


و من ثم تنشئ متغير في strSeireal في الـ Settings وتستدعيه في حدث التحميل مثلا :

PHP كود :

Private Sub Frm_Star_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

               Dim xyz As String = SerialmyComputer()
        If My.Settings.strSeireal <> xyz Then

            My.Settings.strSeireal = InputBox("ادخل مفتاح المنتج", "تحذير")
        End If
        My.Settings.Save()
        If My.Settings.strSeireal <> SerialmyComputer() Then
            File.Move("AlNuor.accdb", "Source" & ".spc")
            MessageBox.Show("عذا سيتم اغلاق البرنامج يرجى إدخال مفتاح تنشيط المنتج ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
            End
        End If

    End Sub