奇怪的报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 奇怪的报错

共有2397人关注过本帖树形打印复制链接主题：奇怪的报错

rjh4078

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐精帖子：3360 积分：24792 威望：0 精华：0 注册：2012/3/26 21:47:00

奇怪的报错

Post By：2018/9/22 20:18:00 [显示全部帖子]

Dim fll As String=ProjectPath & "images\license.txt"

If FileSys.FileExists(fll) = False Then

MessageBox.show("无法获取授权文件!版本校验失败!","授权错误")

Else

Dim s As String = FileSys.ReadAllText(fll,Encoding.Default)

Dim str As String=DecryptText(s,"top","secret")

MessageBox.show("s:" & s & "str:" & str)

。。。。。。

end if

s值能获取但是 str确是空值导致后面代码出错

rjh4078

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐精帖子：3360 积分：24792 威望：0 精华：0 注册：2012/3/26 21:47:00

Post By：2018/9/23 0:06:00 [显示全部帖子]

1.我已经试着把txt文件的空白全部删掉了

2.我弹出s和文本文件中的内容一致

3.密钥问题已经排除

我现在的临时解决办法是把密钥存到了数据库中，但是这又不能在BeforeOpenProject对软件授权进行验证从而控制项目启动。

主题：奇怪的报错