- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 无法保存代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132014)
-- 发布时间：2019/3/11 22:20:00
-- 无法保存代码
此主题相关图片如下：微信截图_20190311221814.png
AfterOpenProject事件中写了如下代码
Dim n As Integer = Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyAPP","Count",0)
Dim Code As String =Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyAPP","Register" & HardDiskID,"")
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"acbd","bad") = HardDiskID Then \'如果注册码正确
StatusBar.DefaultMessage ="程序 2.0 " & Tables("注册用户信息表").Current("公司名称")
OK = True
end if
这句语句哪有问题？无法保存，保存时报错
此主题相关图片如下：微信截图_20190311221741.png
-- 发布时间：2019/3/11 22:30:00
--
If Code > "" AndAlso DecryptText(Code,"acbd","bad") = HardDiskID andalso Tables("注册用户信息表").Current isnot nothing Then
-- 发布时间：2019/3/11 22:56:00
--
运行后发现本来已经注册了还是弹出未注册提示
此主题相关图片如下：微信截图_20190311225414.png
-- 发布时间：2019/3/11 23:15:00
--
上传实例说明