public DataBaseComputerName As String (数据库服务器 电脑名称)
Public LoginName as string (登陆 sql server 的用户名)
Public LoginPassWord as string (登陆密码) Private Sub Form_Load() Dim aa As New CSManager.service aa.AutoManage aa.LimitDays=100 限制用户使用 100 天 aa.LimitTimes=5000 限制用户使用 5000 次 当超过任何一个条件软件均不能使用。