如何实现限时版共享软件制作？

Question

老弟意欲制作一个限时版/限制启动次数的共享软件，敬请各位高手赐教，谢谢

Answer 1

Private Sub Form_Load()
Dim RemainDay As Long
  RemainDay = GetSetting("MyApp", "set", "day", 0)
  If RemainDay = 30 Then
  MsgBox "试用期已过，请……"
  Unload Me
  End If
  MsgBox "现在剩下：" & 30 - RemainDay & "试用天数，好好珍惜！"
  If Day(Now) - RemainDay > 0 Then RemainDay = RemainDay + 1
  SaveSetting "MyApp", "set", "times", RemainDay
  
End Sub

Answer 2

http://expert.csdn.net/Expert/TopicView1.asp?id=1569309

Answer 3

http://expert.csdn.net/Expert/TopicView1.asp?id=1503694

Answer 4

http://expert.csdn.net/Expert/TopicView1.asp?id=1473287

Answer 5

我来几句吧，用时间限制无非要解决的是别人修改了系统时间怎么去判断，除了这个问题再就是时间存放在哪里，用什么方式加密加密文件中存有 过期标识 第一次运行时间 运行时间    (时间格式为yyyymmdd hh:mm:ss)
程序第一次运行,记录第一次运行时间，过期标识为否，加密放到系统文件夹里一个文件里面，这个文件里还存放一个时间就是你所谓的运行时间，这个运行时间在程序运行时每一分钟更新一次(够绝的），程序再次启动的时候读取过期标识，如果为真，提示或执行非法操作，如果否就读取运行时间和第一次运行时间，判断是否已经到了指定的使用天数，如果到了就把过期标识置为真，提示并退出，如果还在使用天数内，就把运行时间和当前系统时间比较，如果当前系统时间小于运行时间，说明系统时间被修改过，提示并退出或执行非法操作,如果这一步通过了，就要正常运行你的软件了！
    希望能给大家一点帮助！

Answer 6

同意楼上,时间加密就OK了.
还有注册码的生成,可以取CPU的ID或是硬盘ID,