以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  AfterOpenProject不正确的数据求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151348)
--  作者：evolymft
--  发布时间：2020/6/21 16:09:00
--  AfterOpenProject不正确的数据求助




.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.11.3.1
错误所在事件：项目,AfterOpenProject
详细错误信息：
不正确的数据。

[此贴子已经被作者于2020/6/22 14:13:47编辑过]
--  作者：sloyy
--  发布时间：2020/6/21 19:02:00
--  
你这是从哪抄来的吧?怎么有这么多 "\\"?  
--  作者：evolymft
--  发布时间：2020/6/21 19:16:00
--  
有\\，才可以上传代码。
--  作者：sloyy
--  发布时间：2020/6/21 19:38:00
--  
在代码中隔几行设置一个 messagebox(1) .......messagebox(10)
看看代码在那一句出错
--  作者：有点蓝
--  发布时间：2020/6/21 21:40:00
--  
一般是解密的数据，或者密钥不正确，无法解密：

msgbox(Code) ‘看看是不是之前加密后的数据’
If Code > "" AndAlso Decry\\ptText(Code,"DwPzPt","DjyPrT") = Comput\\erId Then
--  作者：evolymft
--  发布时间：2020/6/22 9:04:00
--  
老师：还是不对。
现上传实例，请你指点，谢谢。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:afteropenproject不正确的数据求助.rar
--  作者：有点蓝
--  发布时间：2020/6/22 9:42:00
--  
测试没有问题，生成注册码的方式不对吧？Output.Show(EncryptText(ComputerId,"DwPzPt","DjyPrT") )

注册确定按钮
SaveConfigValue("Register" & ComputerId, e.Form.Controls("注册码").Value)
If DecryptText(GetConfigValue("Register" & ComputerId,""),"DwPzPt","DjyPrT") = ComputerId Then
    e.Form.Controls("注册码").Value=""
    e.Form.Controls("注册码").Value="已注册!"
Else
    msgbox("请输入正确的注册码!")
    Return
End If
e.Form.Close()
--  作者：evolymft
--  发布时间：2020/6/22 10:08:00
--  
老师：改了还是不对，请你再指点，谢谢。
--  作者：evolymft
--  发布时间：2020/6/22 10:08:00
--  
以前这样用的没出现错误。

--  作者：有点蓝
--  发布时间：2020/6/22 10:14:00
--  
我测试没有问题，重新生成注册码测试。

一步步截图列出您详细的测试步骤