VB做试用软件，只能试用一次，应该怎么编辑代码？

用完卸载软件文件

第一次运行在系统目录或注册表建立项目，以后每次运行检查项目存在否，存在就是用过了 --------------这个太容易破了

一般破试用软件，我就挂个HIPS上去，拦截它创建的文件。

都有办法解的第一次运行在系统目录或注册表建立项目，以后每次运行检查项目存在否，存在就是用过了常用

Private Sub Command1_Click()
Dim mytime As Long
Dim ret As Long
ret = RegOpenKey(HKEY_CURRENT_USER, "Software\明日软件\time", hKey)
If ret = 0 Then
RegQueryValueEx hKey, "使用次数", 0, REG_DWORD, mytime, Len(mytime)
If mytime < 10 Then
RegSetValueEx hKey, "使用次数", 0, REG_DWORD, mytime + 1, Len(mytime)
MsgBox "您的软件已试用了" & mytime & "次还剩" & 10 - mytime & "次", , "提示窗口"
Load frm_main
frm_main.Show
Unload Me
Else
MsgBox "软件试用到期，请注册！"
End
End If
Else
RegCreateKey HKEY_CURRENT_USER, "Software\明日软件\time", hKey
RegSetValueEx hKey, "使用次数", 0, REG_DWORD, 1, 4
Load frm_main
frm_main.Show
Unload Me
End If
End Sub