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") \'将已经启动次数写入存储器