5、现在回到原来的项目中,将项目事件BeforeOpenProject事件代码设置为:
If UKey.Start() Then
If UKey.Encrypt2("abc") <> "483DBF9FDD0574C0" Then
MessageBox.Show("请插上XX公司提供的UKey!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
Dim khs As String = UKey.ReadStr(0,50) '从存储器读取0到49这50个字节的内容,也就是授权客户名称 问题:红色的数值应该是49还是50?
Dim rqs As String = UKey.ReadStr(50,10) '从存储器读取50到59这10个字节的内容,也就是截止日期
Dim css As String = UKey.ReadStr(60,5) '从存储器读取60到54这5个字节的内容,也就是允许启动次数
Dim yqs As String = UKey.ReadStr(65,5) '从存储器读取65到59这5个字节的内容,也就是已经启动次数
Dim rq As Date
Dim cs As Integer
Dim qs As Integer
'从存储器读取出来值的是字符,所以还需要转换一下,因为截止日期是Date型,次数是Integer型
Date.TryParse(rqs,rq)
Integer.TryParse(css,cs)
Integer.TryParse(yqs,qs)
qs = qs + 1
'已经启动次数加1
UKey.WriteStr(65,qs,"46DFA0D7","C292C1DB") '将已经启动次数写入存储器
[此贴子已经被作者于2014-9-30 17:58:04编辑过]