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

[عابر سـبيل]

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

[spectrum]

a3ml 3dad balrgstri

[dark-man]

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

[عابر سـبيل]

a3ml 3dad balrgstri

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

[$ShockShadow$]

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

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

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

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

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

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

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

[عابر سـبيل]

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

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

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

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

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

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

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

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

[dark-man]

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

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

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

[2501]

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

[عابر سـبيل]

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

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

[2501]

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

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

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

[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

[infitar]

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

[dark-man]

First I want to thank u very much

for your help

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

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

[عابر سـبيل]

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

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

[VBS]

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

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



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

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

فراس سهيل

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