(23-11-18, 12:38 PM)philo كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
الشؤال هو لو انا عملت setup للبرنامج عند العميل من خلال فلاشة مثلا ولم اعطيه سورس البرنامج هل يقدر يكسر البرنامج برضه ويحصل على الاكواد بتاعته وهل يمكن نقل البرنامج الى جهاز اخر ام لا
وشكرا
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
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
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
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
(24-11-18, 11:17 PM)philo كتب : [ -> ]اشكركم اخوتى على الرد والاهتمام
وعلى ما قد فهمت من رد الاستاذ عبد العزيز ليس هناك فرق بين اعطاء ملف تنصيب البرنامج للعميل او التنصيب على الجهاز فقط اهذا صحيح ام ان عدم اعطاء ملف التنصيب للعميل سيصعب عملية كسره واسف للاطالة
(24-11-18, 11:17 PM)philo كتب : [ -> ]اشكركم اخوتى على الرد والاهتمام
وعلى ما قد فهمت من رد الاستاذ عبد العزيز ليس هناك فرق بين اعطاء ملف تنصيب البرنامج للعميل او التنصيب على الجهاز فقط اهذا صحيح ام ان عدم اعطاء ملف التنصيب للعميل سيصعب عملية كسره واسف للاطالة