以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  限制软件的使用时间同，获得系统时间进行比较，例如到2015年8月10日软件失效，要再注册才能使用！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70181)
--  作者：zgjmost
--  发布时间：2015/6/16 22:30:00
--  限制软件的使用时间同，获得系统时间进行比较，例如到2015年8月10日软件失效，要再注册才能使用！

我相限制软件的使用时间同，获得系统时间进行比较，例如到2015年8月10日软件失效，要再注册才能使用！

 

哪有这样的例子！

 

 
--  作者：大红袍
--  发布时间：2015/6/16 22:33:00
--  

BeforeOpenProject事件

 

Dim url As String = "http://foxtable.sinaapp.com/time/"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
stm.Dispose()
Dim dt As Date = str
Dim ddd As Date = "2015-04-19"
If dt > ddd Then
    MessageBox.show("试用期已到")
    e.Cancel = True
End If
--  作者：大红袍
--  发布时间：2015/6/16 22:35:00
--  

 弄一个地方存储试用期的日期，然后对比系统时间不就好了？

 

 你可以保存在表里，也可以保存在txt文件里，也可以保存在注册表里。