Public LoginPassWord as string (登陆密码)
Private Sub Form_Load()
Dim aa As New CSManager.service
aa.AutoManage
aa.LimitDays=100 限制用户使用 100 天
aa.LimitTimes=5000 限制用户使用 5000 次 当超过任何一个条件软件均不能使用。
aa.ContactEmail ="wang517@21cn.com" (超期时使用者可通过给email 联系作者)
DataBaseComputerName=aa.DataBaseComputerName
LoginName=aa.LoginName
LoginPassWord=aa.loginPassWord
(以上三个变量就可以建立一个有效的数据库连接,不需我再罗嗦了)
Set aa = Nothing
End Sub