parsiyan_mohsen
پنج شنبه 04 تیر 1388, 09:37 صبح
با سلام خدمت تمامی دوستان عزیز برنامه نویس.
قصد من از ایجاد این پست این بود که دوستان عزیز برنامه نویس روجمع کنم و اساتید یک به یک نظراشون و علمشون رو در رابطه با رجیستر پروژه های ساخته شده بگن.
هدف اصلی این پست این هست که چه راه هایی برای رجیستر کردن برنامه هامون وجود داره. از دوستان می خواهم که بهترین راه حلشون رو تو این پست بگن که بقیه دوستان هم از این مطالب با ارزش استفاده کنن. امیدوارم که اساتید محترم از این پست استقبال کنن و همگی دست به دست هم بدیم که این پست تبدیل به یه پست حرفه ای در مورد رجیستر پروژه ها بشه.
خوب من اول از خودم شروع می کنم.
من اولین نظری که دارم اینه که بیایم ثبت اطلاعاتمون را محدود کنیم، مثلاً بیشتر از ثبت 5 سند برنامه متوقف بشه و error بده، من از این دستور استفاده می کنم :
Data1.Recordset.AddNew
If Data1.Recordset.RecordCount >= 5 Then
Data1.Recordset.Close
Data1.Refresh
MsgBox "Error...!!", vbOKOnly + vbCritical, "Full Data Bank"
End If
یا یه کدی رو بنویسیم که برنامه شماره سریال hard و cpu رو بهمون بده :
از این dll استفاده کنیم و سپس تو برنامه این کد ها رو وارد کنیم :
Dim skrsoft As New Class
Private Sub Form_Load()
Text1.Text = skrsoft.GenerateID
End Sub
یا مثلاً برنامه رو آزمایشی کنیم نسخه 14 روزه :
Public Sub putElapsedDayes_InRegistry(MaxAllowableDays As Long)
Dim i As Double
Dim j As String
i = Val(GetSetting(App.EXEName, "PW", "Day", "0"))
If i >= MaxAllowableDays Then
MsgBox "this program is triyal version" _
+ vbCrLf + "Error ", _
vbExclamation, "Sorry !"
End
End If
j = GetSetting(App.EXEName, "PW", "Date", "")
If j <> Date Then _
SaveSetting App.EXEName, "PW", "Day", i + 1
SaveSetting App.EXEName, "PW", "Date", Date
End Sub
Private Sub Form_Load()
putElapsedDayes_InRegistry 14
End Sub
و اما اینکه چطور این کدها رو به هم بچسبونیم تا یه نتیجه خوب بگیریم؟
از دوستان می خواهم که همه با هم همکاری کنیم.
ممنون
قصد من از ایجاد این پست این بود که دوستان عزیز برنامه نویس روجمع کنم و اساتید یک به یک نظراشون و علمشون رو در رابطه با رجیستر پروژه های ساخته شده بگن.
هدف اصلی این پست این هست که چه راه هایی برای رجیستر کردن برنامه هامون وجود داره. از دوستان می خواهم که بهترین راه حلشون رو تو این پست بگن که بقیه دوستان هم از این مطالب با ارزش استفاده کنن. امیدوارم که اساتید محترم از این پست استقبال کنن و همگی دست به دست هم بدیم که این پست تبدیل به یه پست حرفه ای در مورد رجیستر پروژه ها بشه.
خوب من اول از خودم شروع می کنم.
من اولین نظری که دارم اینه که بیایم ثبت اطلاعاتمون را محدود کنیم، مثلاً بیشتر از ثبت 5 سند برنامه متوقف بشه و error بده، من از این دستور استفاده می کنم :
Data1.Recordset.AddNew
If Data1.Recordset.RecordCount >= 5 Then
Data1.Recordset.Close
Data1.Refresh
MsgBox "Error...!!", vbOKOnly + vbCritical, "Full Data Bank"
End If
یا یه کدی رو بنویسیم که برنامه شماره سریال hard و cpu رو بهمون بده :
از این dll استفاده کنیم و سپس تو برنامه این کد ها رو وارد کنیم :
Dim skrsoft As New Class
Private Sub Form_Load()
Text1.Text = skrsoft.GenerateID
End Sub
یا مثلاً برنامه رو آزمایشی کنیم نسخه 14 روزه :
Public Sub putElapsedDayes_InRegistry(MaxAllowableDays As Long)
Dim i As Double
Dim j As String
i = Val(GetSetting(App.EXEName, "PW", "Day", "0"))
If i >= MaxAllowableDays Then
MsgBox "this program is triyal version" _
+ vbCrLf + "Error ", _
vbExclamation, "Sorry !"
End
End If
j = GetSetting(App.EXEName, "PW", "Date", "")
If j <> Date Then _
SaveSetting App.EXEName, "PW", "Day", i + 1
SaveSetting App.EXEName, "PW", "Date", Date
End Sub
Private Sub Form_Load()
putElapsedDayes_InRegistry 14
End Sub
و اما اینکه چطور این کدها رو به هم بچسبونیم تا یه نتیجه خوب بگیریم؟
از دوستان می خواهم که همه با هم همکاری کنیم.
ممنون