قفل نرم افزاری و سخت افزاری

[Rezapcclick]

سلام به همه دوستای گلم.....
خسته نباشید
دوستان من یه مشکلی دارم
من برنامه ای برای یک شرکتی نوشتم و می خوام براش قفل نرم افزاری هم بزارم و اصلا از قفل نرم افزاری و سخت افزاری اطلاعاتی ندارم
میشه شما برام سورسی بزارید که از همین سورس استفاده کنم؟؟؟؟؟:متفکر::ناراحت::نار� �حت::گریه:

[parsiyan_mohsen]

دوست عزیز شما می تونی برنامه رو با استفاده از دریافت سریال cpu یا hard قفل گذاری کنی.
به این صورت که شماره سریال هارد رو بگیره و فقط رو همون سریال باز بشه...
با این سورس فکر کنم مشکلت حل بشه...
اگر سؤالی بود درخدمتم... موفق باشی دوست گلم

[parsiyan_mohsen]

با این کد هم می تونی برنامت رو آزمایشی نسخه 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 "ÔãÇ ÇÒ äÓÎå ÂÒãÇíÔí äÑã ÇÝÒÇÑ ÇÓÊÝÇÏå ˜ÑÏíÏ. ãÏÊ ÇÚÊÈÇÑ ÈÑäÇãå Èå ÇÊãÇã ÑÓíÏå..." _
+ vbCrLf + "åã ǘäæä ÌåÊ ÏÑíÇÝÊ äÓÎå í ÇÕáí äÑã ÇÝÒÇÑ ÈÇ Ñæå äÑã ÇÝÒÇÑí ÇÑÓíÇä ÊãÇÓ ÍÇÕá ÝÑãÇÆíÏ. ÈÇ ÊÔ˜Ñ. ãÏíÑ Ñæå : ãÍÓä ÌÚÝÑí ", _
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 15
End Sub