软件试用期问题

Question

请问如何在vb软件中实现试用期编程问题，谢谢！

Answer 1

一般方法：
   1、在程序第一次起动的时候，将起动的时间写入一个特定的地方，比如说文件，注册表等等（恶搞：如果你能力还可以写入磁盘底层保护区域）。
   2、在以后的程序启动过程中：
        if 注册=OK then
           正常起动
        else
           if 过期校检=未过期 then
               起动体验方式
           else
               终止程序
           endif
        end if

Answer 2

加网络功能，即校检Internet时间。
如果只单单在本地，下面的方只能作到用一段时间就少一段时间的效果。1、控件TIMER 每隔一段时间就与入一个时间
2、过期校检
     读取 最后一次写入的时间
     IF 最后一次写入的时间 > 安装时间 + 可使用的时间 then
         返回过期
     else
         if 最后一次写入的时间 >现在的时间 then
            返回过期
         else
            返回未过期 
         end if
    end if

Answer 3

怎样通过vb读写注册表啊，怎样通过vb在上网的时候得到网络时间啊

Answer 4

jackeyabc的是个好方法,savasetting函数

Answer 5

用户注册后，将注册码写入注册表或ini文件内
每次启动前，程序计算注册码是否有效
无效则进入试用功能

Answer 6

'以下确定windows路径
Const MAX_PATH = 260
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
    '核对程序是否合法地在试用期内运行
    Dim fs, f, f1, fc
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(GetWinPath)
    Set fc = f.Files
    For Each f1 In fc
        If CDate(f1.DateLastModified) >= CDate("2006-11-5") Then
           msg = MsgBox("该软件的试用到期日为2006年11月5日。" & Chr(13) & "如果您看到此信息，表示该系统的使用权限已过期！" & Chr(13) & "请与系统管理员联系。", vbOKOnly + vbExclamation)
           End
        End If
    Next
我就是用这种方式控制软件的试用期,检查windows临时文件的日期,更改系统日期无效!

Answer 7

如果能上网的话。用SOCKET获取用户名和服务器时间比较好。个人观点。

Answer 8

什么软件啊?是否值得这么加密?还是不加密的好,像windows，不加密，卖到现在这个样子。要说加密，微软最有条件对软件加密，但为什么他们一方面大叫知识产权，一方面又不对软件进行加密？那就是因为他们知道，盗版是宣言书、盗版是宣传队，盗版是向世界表明自己的存在。呵呵，说了你别生气，你的软件是否有资格让人盗版？