سؤال فى الفيجوال بيزك

يا شباب انا صممت برنامج بسيط بالفيجول لكنى أريد ان أعمل له نوع من الحماية ، أو بمعن أصح
أريد أن أعمله ( تريال ) كان يعمل 30 مرة مثلا ثم يتوقف ...
أرجو الإفادة وشكرا مقدما:cool:

a3ml 3dad balrgstri

لى أخي العزيز
spectrum
هل من الممكن ان توضح لنا كود عمل عداد الريجيستري
ارجو المساعدة انا أيضا لدي نفس المشكلة صممت برنامج واريد اعمل نسخة تجريبية منه
وشكرا

اقتباس:

---

المشاركة الأصلية كتبت بواسطة spectrum

a3ml 3dad balrgstri

---

حقا ... كيف يمكننى أن أصنع العداد بالريجيسترى

ممكن احاول اوضح

يعني مثلاً عند تشغيل البرنامج يقوم بوضح قيمة جديدة بالريجستري اذا لم تكن موجودة (اذا كان البرنامج لاول مره يشتغل على الجهاز)

وعند تشغيلة مره اخرى يقوم بالفحص اذا كانت القيمه موجودة فينقص منها واحد واذا لم تكن موجودة فيعرف البرنامج بانها المره الاولى يشغل بها البرنامج على هذا الكمبيوتر

في كل مره يتم تشغيل البرنامج يقوم بانقاص القيمة الى ان تصل الى مثلاً صفر ثم يتم وضح تحذير انتهاء عدد مرات تشغيل البرنامج

ولكن يجب مثلاً ان تكون القيمة مشفرة بعض الشيء

مثلاً نسوي لها عمليات ضرب وقسمة وجمع وطرح بحيث لا يميزها المستخدم ويقوم بتعديلها

ان شاء الله تكون الفكرة وصلت
واعذرونا اذا كان الشرح غير مفهوم خخخخخخخخخخ

اقتباس:

---

المشاركة الأصلية كتبت بواسطة $ShockShadow$

ممكن احاول اوضح

يعني مثلاً عند تشغيل البرنامج يقوم بوضح قيمة جديدة بالريجستري اذا لم تكن موجودة (اذا كان البرنامج لاول مره يشتغل على الجهاز)

وعند تشغيلة مره اخرى يقوم بالفحص اذا كانت القيمه موجودة فينقص منها واحد واذا لم تكن موجودة فيعرف البرنامج بانها المره الاولى يشغل بها البرنامج على هذا الكمبيوتر

في كل مره يتم تشغيل البرنامج يقوم بانقاص القيمة الى ان تصل الى مثلاً صفر ثم يتم وضح تحذير انتهاء عدد مرات تشغيل البرنامج

ولكن يجب مثلاً ان تكون القيمة مشفرة بعض الشيء

مثلاً نسوي لها عمليات ضرب وقسمة وجمع وطرح بحيث لا يميزها المستخدم ويقوم بتعديلها

ان شاء الله تكون الفكرة وصلت
واعذرونا اذا كان الشرح غير مفهوم خخخخخخخخخخ

---

شكرا أخى الكريم على الشرح الوافى لكنى لا أعلم كيف يتم عمل هذا
أى بمعنى آخر .. أريد كود التشفير.:reporter:

الى عابر السبيل

أعتقد يا أخي انني انا أيضا أصبحت عابر سبيل مثلك فانا أيضا لا أعرف كيفية عمل هذا رغم انني فهمت الفكرة ولكنني لا أعرف كيفية تنفيذها
أرجوك ان وصلت لشيء في هذا الموضوع ان تكتبه هنا للفائدة
وان عن نفسي ان عرفت شيء سوف أكتبه هنا أيضا وأرجو من الأعضاء مساعدتنا والا
ضعنا في الطريق

مع تحيات
عابر سبيل جديد

it is easy to reset the registry key value...

اقتباس:

---

المشاركة الأصلية كتبت بواسطة 2501

it is easy to reset the registry key value...

---

أخى فى الله .. قد تكون هذه العملي سهلة بالنسبة لك. لكنها بالنسبة لمبتدئ مثلى قد تكون صعبة بعض الشئ
أرجو من الكرام اللذين يرون أن هذه العملية سهلة:mad: :mad: أن يمنوا علينا ويعطوننا الكود ...

عفوا...كنت أقصد أنه من السهل تعديل "عدد مرات تشغيل البرنامج" في الرجستري...لذا الطريقة قد لا يوفر لك حماية كافية...

يمكنك فعل أشياء أخرى...إبحث في google و ستجد ما تريده إن شاء الله...

أسف لأني لا أساعدك بوضع الكود...أنا لا أعمل برنامج shareware...

:D

Dear every one needs the trial help,

I got the code that will make the program to run for 5 days Only

this code can be used and changed with no problem

Private Sub Form_Load()
Dim strCheck As String
Dim strMsg As String
strCheck = GetSetting(App.EXEName, "Trial", "EndDate")

If strCheck = "" Then
SaveSetting App.EXEName, "Trial", "EndDate", Date + 5
Else
End If

If Date = strCheck Then
strMsg = "Sorry your trial period is over"
strMsg = strMsg & "please get the full version from the internet"
MsgBox strMsg
End
End If
End Sub

what the code does is that it puts the date will be after 5 days and

every time you run the program it will check if the todays date equals

the expiration date, if it did then it will give the end trial msgbox....

for any other help in visual basic or VBScript i am ready just contact me

@ firas488@yahoo.com

what if the end user resets the windows time and date to somthing that lets the program start?... :D

First I want to thank u very much

for your help :cool:

شكرا يا أخي والله لاأعرف كيف أشكرك

لقد أضفتك الى ياهو مسينجر الخاص بي
واتمنى لك التوفيق :biggthump

اقتباس:

---

المشاركة الأصلية كتبت بواسطة VBS

Dear every one needs the trial help,

I got the code that will make the program to run for 5 days Only

this code can be used and changed with no problem

Private Sub Form_Load()

Dim strCheck As String
Dim strMsg As String
strCheck = GetSetting(App.EXEName, "Trial", "EndDate")

If strCheck = "" Then

SaveSetting App.EXEName, "Trial", "EndDate", Date + 5
Else
End If

If Date = strCheck Then

strMsg = "Sorry your trial period is over"
strMsg = strMsg & "please get the full version from the internet"
MsgBox strMsg
End
End If
End Sub

what the code does is that it puts the date will be after 5 days and

every time you run the program it will check if the todays date equals

the expiration date, if it did then it will give the end trial msgbox....

for any other help in visual basic or VBScript i am ready just contact me

@ firas488@yahoo.com

---

كلمة شكرا وحدها لن تكفى بما أكنه بقلبى لك من شكر واحترام :biggthump :biggthump

اقتباس:

---

المشاركة الأصلية كتبت بواسطة عابر سـبيل

كلمة شكرا وحدها لن تكفى بما أكنه بقلبى لك من شكر واحترام :biggthump :biggthump

---

لا شكر على واجب أخي عابر سبيل، فهذا أقل من واجبي....
أي اسئلة حول Visual Basic أو VBScript/ASP فأنا جاهز:أفكر:



إلى اللقاء وبإنتظار مساعدتك أنت وجميع إخواننا العرب والمسلمين في المنتدى

مع تحيات أخاك في الله

فراس سهيل

http://m.1asphost.com/islamclub/ vbmenu_register("postmenu_3183754", true);