这儿 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95605有个软件注册程序，但在试用过程中，发现一个BUG：即超过试用次数后，提示注册时，直接“X"掉即可绕过注册程序。请问版主如何解决这个问题？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:软件注册.foxdb

不要乱改帮助文档的代码啊

    ElseIf n > 5 AndAlso Ok = False Then
        Dim Result As DialogResult
        Result = MessageBox.Show("您使用的软件已经超过使用次数,需要注册才能使用,是否注册?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            Forms("注册").Open()
            Code = Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyAPP","Register" & HardDiskID,"")
            If Code > "" AndAlso DecryptText(Code,"acbd","cad") = HardDiskID Then \'如果注册码正确
                OK = True
            End If
        End If
        If ok = False Then
            Syscmd.Project.Exit()
        End If