هذا الملف محمي من النسخ على اي جهاز آخر
أريد معرفة كيف يتم تفعيل حماية البرنامج لجهاز دون آخر
من خلال الكود الموجود
عاجل : بخصوص كود حماية
أخي انقر على زر تجربة ثم قم باستعرض الشفرة الخاصة بالماكرو. سترى شفرة الحماية ببساطة وتعلم ما يقوم به.
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
اخي الكريم xacker اريد معرفة كيف يتم حماية الملف من النسخ من خلال هذا الكود لانه الملف يعمل بشكل طبيعي على جهاز واحد واذا نسخته لجهاز آخر يظهر لي كلمة المرور غير صحيحة من فضلك حاول مرة أخرى كيف تم ذلك كما هو موضح في الصورة
طبعا الكود داخل المف هو
Private Sub CommandButton1_Click()
On Error Resume Next
sheet1.Visible = xlSheetVisible
'Application.AutomationSecurity = msoAutomationSecurityLow
Dim c, srange As Object
Dim countv As Integer
countv = 0
'Set srange = Application.InputBox(prompt:="enter name to search ", Title:="input range", Type:=8)
Set srange = Range("f100:f2000")
'Dim x As String
start:
X = InputBox("تم حفظ كلمة السر بالنيابة عنك لسهولة الدخول للبرنامج يمكنك استخدام البرنامج الان اضغط موافق لبدأ الاستخدام", "", GetSerialNumber("c"))
'X = InputBox(prompt:="من فضلك أدخل كلمة السر التى حصلت عليها عبر بريدك الالكتروني ")
For Each c In srange.Cells
If IsEmpty(c.Value) Then GoTo 11:
If IsNumeric(c.Value) And Val(c.Value) = Val(X) Then
countv = countv + 1
c.Activate
'Dim h As String
'h = MsgBox("مرحبا بك يمكنك إستخدام البرنامج", vbOKOnly + vbInformation, "")
'Sheet3.Range("a2").Value = "hello "
'hide un hide data
Range("f100:f2000").Select
Selection.EntireColumn.Hidden = True
Selection.EntireRow.Hidden = True
Me.Hide
sheet1.Range("a1").Select
Exit Sub '
Else
If c.Value = X Then
countv = countv + 1
c.Activate
MsgBox "continue"
sheet3.Range("a2").Value = "hello "
ElseIf c.Value <> X Then
'Application.Quit
End If
End If
11: Next c
Dim f As String
f = MsgBox("كلمة المرور غير صحيحة من فضلك حاول مرة أخرى ", vbOKOnly + vbInformation, "تحذير")
'Application.Quit
Dim tempa As Integer
tempa = tempa + 1
If tempa >= 3 Then
GoTo fin:
Else
GoTo start:
End If
fin:
Application.Quit
End Sub
اخوي الله يعطيك العافية
ما تغير اي شي في الملف
الذي اريد فهمه هو ان الكود يشتغل عندي ويصرح لي بالدخول على جهازي .
وعند نسخ المف يظهر لي كلمة المرور خاطئة كيف تم ذلك ؟ هذا ما اريد فهمه ولك الشكر
ارجو الرد عاجلا
طيب, كلمتين خفيفتين على القلب
زيت مازولا
.. لا ليس هذا
البرنامج يطلب منك رقم تسلسلي في inputbox
يقوم بتحديد مجال من الخلايا f100:f2000
يتحقق من شرط
If IsNumeric(c.Value) And Val(c.Value) = Val(X) Then
هل الخلايا هذه ذات محتوى رقمي؟ هل محتوى هذه الخلايا مساوي للرقم المدخل في الـ inputbox؟
يتابع ببعض العمليات عند تحقق الشرط ويقوم باخفاء الصفوف ضمن هذا المجال f100:f2000
الان يعود الى الجزء الرئيسي من الكود, يتحقق هل الرقم المدخل يساوي السيريال الخاص بالقرص C
لو تطابق يقوم بتفعيل الورقة sheet1 ويقوم باظهار فورم SMSOPEN
لذلك, يمكنك تعديل المستند قليلاً ليقوم بوضع السيريال الخاص بالقرص C ضمن المجال الذي حدده مع تجاهل الرقم المدخل من قبل المستخدم واسناد نفس القيمة للمتغير X كي تتطابق في الجزء الرئيسي أيضا ليتم تجاوز الحماية.
كما قلت, بما انه ناقص لا يمكنني تحديد النتائج لكنها أكثر شئ منطقي توصلت إليه.
السلام عليكم
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
أعتقد أني أجبتك سلفاً
اقتباسلذلك, يمكنك تعديل المستند قليلاً ليقوم بوضع السيريال الخاص بالقرص C ضمن المجال الذي حدده مع تجاهل الرقم المدخل من قبل المستخدم واسناد نفس القيمة للمتغير X كي تتطابق في الجزء الرئيسي أيضا ليتم تجاوز الحماية.
قم باضافة شفرة تقوم بجلب السيريال للقرص C مهما كان الجهاز الذي يعمل عليه الملف ومن ثم تقوم باستبدال قيمة المتغير X بقيمة السيريال هذا.
انظر المرفقات
تم تعديل هذه المشاركة بواسطة Xacker في 6 أبريل 2008 في 16:52
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
هل ممكن تعطيني مثال لو تكرمت للمعادلة ؟ ولك الشكر
راجع الرد أعلاه.
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
شكرا لك اخوي اسف شكلي ازعجتك بكثرة الاسئلة
لك ألف شكر
لا عادي المهم تستفيد بعلم.
تم تعديل هذه المشاركة بواسطة Xacker في 6 أبريل 2008 في 19:34
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
ooal_kingoo@hotmail.com
ممكن اضافة