Option Explicit
Private Sub Form_Load()
Dim lngRemainData As Long
lngRemainData = GetSetting("MyApp", "set", "times", 0)
If lngRemainData >= 30 Then
MsgBox "试用次数已满，请注册正版！", vbOKOnly, "请注册"
End
End If
MsgBox "现在剩下：" & 30 - lngRemainData & "试用次数，好好珍惜！"
lngRemainData = lngRemainData + 1
SaveSetting "MyApp", "set", "times", lngRemainData
End Sub

注册表操作不加密很容易就解了，有些工具可以直接gen zong注册表读写，就很快找到注册项进行修改(改为-100000或更小就解决了)

没用的，服务器网络验证才行。

代码都在你手里了 你随便改被， ➕1改成-1 不就行了

没用，太容易破解了