以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  奇怪的报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125224)
--  作者：rjh4078
--  发布时间：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确是空值  导致后面代码出错
--  作者：有点蓝
--  发布时间：2018/9/22 22:40:00
--  
解密出错，可能原因：
1、文件存储的加密内容出现了多余的空格或者换行等看不见的符号
2、加密的内容保存到文本文件出错，内容不完整
3、密钥不正确
--  作者：rjh4078
--  发布时间：2018/9/23 0:06:00
--  
1.我已经试着把txt文件的空白全部删掉了
2.我弹出s和文本文件中的内容一致
3.密钥问题已经排除

我现在的临时解决办法是把密钥存到了数据库中，但是这又不能在BeforeOpenProject对软件授权进行验证从而控制项目启动。
--  作者：有点甜
--  发布时间：2018/9/23 14:07:00
--  

1、你有没有屏蔽了所有的错误？正常情况，如果报错，会弹出错误对话框的

 

http://www.foxtable.com/webhelp/scr/2655.htm

 

 

2、如果你没有屏蔽错误，那你应该是在全局代码改写了 DecryptText 方法