比如我开发了个小软件,想给软件加个试用期(以30天为例),超过30天软件自动停止运行,并提醒用户注册付费,请各位大侠指点小弟该怎么解决?不胜感谢!!!
小弟开发的软件网址:
天空软件站:http://shareware.skycn.com/author_softlist.php?author_id=26655,华军也有,呵呵
小弟开发的软件网址:
天空软件站:http://shareware.skycn.com/author_softlist.php?author_id=26655,华军也有,呵呵
一般不会错 比如 新华网/新浪
安装软件的时候写一个文件或注册表 记录安装时间 Private Sub Command1_Click()
Winsock1.Connect
End Sub
Private Sub Winsock1_Connect()
Dim strCommand As String
Dim strWebPage As String
strWebPage = "http://www.sina.com.cn"
strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
strCommand = strCommand + "Accept: text/html" + vbCrLf
strCommand = strCommand + vbCrLf
Winsock1.SendData strCommand
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim webData As String
Dim aa As Variant
Dim bb As Variant
Winsock1.GetData webData, vbString
aa = Split(webData, "Date:")
aa = Split(aa(1), "Content")
If InStr(aa(0), "GMT") Then
bb = Replace(aa(0), "GMT", "")
bb = Trim(bb)Else
bb = aa(0)
End If
Debug.Print bb
End Sub 上面是获取服务器时间的代码相比较 30 天然后在做其他控制