没有代码啊。就是在发布项目界面设置的,通过共享文件夹升级。 以前是360解压的,刚才换了rar,还是不行。提示:程序发生重大错误。如果点击“继续”就出现“文件升级解压中。。。。。。
publish文件夹中有一个升级文件解压的文件夹。如果把里面的文件复制后覆盖以前的文件,还是可以启动,并且是新发布的内容。
AfterOpenProject
Dim str As String = FileSys.ReadAllText(ProjectPath & "config.txt")
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = str
Dim sss As String
Try
sss = DecryptText(Code,"abc","abc")
Catch ex As Exception
End Try
Dim Ok As Boolean
If Code > "" AndAlso sss = ComputerId Then '如果注册码正确
OK = True
Else
If n > 0 Then
Forms("注册").Open() '
'FileSys.WriteAllText(ProjectPath & "config.txt", "123456789注册码", False)
Code = FileSys.ReadAllText(ProjectPath & "config.txt")
Try
sss = DecryptText(Code,"abc","abc")
Catch ex As Exception
End Try
If Code > "" AndAlso sss = ComputerId Then '如果注册码正确
OK = True
End If
End If
If n > 0 AndAlso Ok = False Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End If
End If
n = n + 1
SaveConfigValue("Count",n)
[此贴子已经被作者于2016/3/11 8:56:32编辑过]