Foxtable(狐表)用户栏目专家坐堂 → [讨论][求助]红色的数值应该是49还是50?已解决


  共有3471人关注过本帖树形打印复制链接

主题:[讨论][求助]红色的数值应该是49还是50?已解决

帅哥哟,离线,有人找我吗?
tongliaozyr
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:657 积分:6110 威望:0 精华:0 注册:2013/10/22 12:15:00
[讨论][求助]红色的数值应该是49还是50?已解决  发帖心情 Post By:2014/9/30 17:55:00 [只看该作者]

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) '从存储器读取04950个字节的内容,也就是授权客户名称    问题:红色的数值应该是49还是50?
        Dim
rqs As String = UKey.ReadStr(50,10) '从存储器读取505910个字节的内容,也就是截止日期
        Dim
css As String = UKey.ReadStr(60,5) '从存储器读取60545个字节的内容,也就是允许启动次数
        Dim
yqs As String = UKey.ReadStr(65,5) '从存储器读取65595个字节的内容,也就是已经启动次数
        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编辑过]

 回到顶部