以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69756)

--  作者：JoyGum --  发布时间：2015/6/10 14:09:00 --  [求助] 想做個有時間限制的試用版項目，是否有例子可參考？懇請指點。謝謝！

--  作者：Bin --  发布时间：2015/6/10 14:11:00 --   BEforOpenproject事件 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-06-28" If dt > ddd Then     MessageBox.show("试用期已到")     e.Cancel=True End If

--  作者：JoyGum --  发布时间：2015/6/10 14:14:00 --   感恩啊！謝謝Bin老師！

--  作者：Bin --  发布时间：2015/6/10 14:15:00 --   提问前可以先搜索一下论坛有没类似问题.  很多都有答案的