- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 加密出错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57753)
-- 发布时间：2014/9/30 15:52:00
-- 加密出错
按照例子做的加密，完全照抄例子，但是在超过试用次数后，软件报出超出试用次数后，却出错，麻烦专家指导。出错信息如图。
-- 发布时间：2014/9/30 15:53:00
--
图呢?
-- 发布时间：2014/9/30 15:58:00
--
传不上来?
-- 发布时间：2014/9/30 15:59:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
-- 发布时间：2014/9/30 16:00:00
--
出错图
-- 发布时间：2014/9/30 16:00:00
--
压缩了还是不行
-- 发布时间：2014/9/30 16:01:00
--
传图看4楼
-- 发布时间：2014/9/30 16:03:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:出错图.rar |
最算可以了
-- 发布时间：2014/9/30 16:04:00
--
例子或者项目发上来。
-- 发布时间：2014/9/30 16:18:00
--
注册窗口就是复制的casestudy中的注册系统设计演示的窗口，项目事件也是复制的，没有任何变化。怎么会出错？
项目事件
AfterOpenProject
Dim n As Integer =
GetConfigValue("Count",1)
Dim Code As String
= GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
If Code >
"" AndAlso DecryptText(Code,"abc","abc") =
ComputerId Then \'如果注册码正确
OK = True
Else
If n > 30 Then
Forms("注册").Open()
Code =
GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso
DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
OK = True
End If
End If
If n > 60 AndAlso Ok = False Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End If
End If
n = n + 1
SaveConfigValue("Count",n)