VERSION 5.00
Begin VB.Form frm试用期
Caption = "试用期"
ClientHeight = 3135
ClientLeft = 60
ClientTop = 405
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3135
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
End
Attribute VB_Name = "frm试用期"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Dim hKey As Long
Dim time1 As Long
Dim lendata As Long
Dim ret As Long
Me.Hide
Dim retvalue As Date
retvalue = GetSetting(App.Title, "Settings", "datevalue", Date)
If retvalue = Date Then
SaveSetting App.Title, "settings", "datevalue", Date
ElseIf Date - retvalue + 1 > 365 Then
MsgBox "软件已过期" & 365 - (Date - retvalue) & " 天，注册请联系作者！QQ:826509803", vbExclamation, "客户管理系统试用版，请注册使用！"
End
End If
MsgBox "本程序的试用期还有：" & 365 - (Date - retvalue) & " 天", vbInformation, "客户管理系统试用版"
Load frm主窗体
frm登录.Show
End Sub
