vb编写的exe程序，编写时设置有效期30天，怎么取消

这个就要看程序根据什么来判断有效期了。

1、根据当期系统日期（忽略这条吧。。。）

2、在电脑里面写入标记（如：注册表，配置此孙祥文件，你能找到位置就可以改了）

3、将信息传回服务器（这森搏个比较麻烦，也要看他根据什么来判断了，有可能把你的硬盘序列号啦凯隐，等等一些电脑硬件信息）

破解软件不是那么容易的，要根据具体软件来看。还是买个正版吧。。。

xlzzc回答得很好首宏，为了更进慧芹亮一步控制有效期

应该在安装软件时，将安装日期写入注册表或者其他位置

每一次登录时记录最后一次登录日期

运行时首先判断前宽安装日期与当前日期

在判断登录日期与当前日期

防止用户回调系统时间，这样就比较完善了。

一.使用次数限值

'====================================================================

'窗体名称：frmMain.frm

'作者： VeryBeNET

'E-Mail：bronzesword@tom.com

'日期：2005-06-07

'公司：青铜剑工作室

'功能：程序使用次数限制

'====================================================================

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

二.使用时间限值(1)

'====================================================================

'窗体名称：frmMain.frm

'作者： VeryBeNET

'E-Mail：bronzesword@tom.com

'日期：2005-06-07

'公司：青铜剑工作室

'功能：程序使用时间（30天）限制

'====================================================================

Option Explicit

Private Sub Form_Load()

Dim lngRemainDay As Long

lngRemainDay = GetSetting("MyApp", "set", "day", 0)

If lngRemainDay >= 30 Then

MsgBox "试用期已过，请购买正版！", vbOKOnly, "青铜剑工作室"

End

End If

MsgBox "现在剩下：" &30 - lngRemainDay &"天试用，好好珍惜！"

If Day(Now) - lngRemainDay >0 Then lngRemainDay = lngRemainDay + 1

SaveSetting "MyApp", "set", "times", lngRemainDay

End Sub

三.使用时间限制(2)

Option Explicit

'====================================================================

'窗体名称：frmMain.frm

'作者： VeryBeNET

'E-Mail：bronzesword@tom.com

'日期：2005-06-07

'公司：青铜剑工作室

'功能：程序使用时间限制

'====================================================================

Dim dteNextTime As Date

Private Sub Form_Load()

tmrLimit.Interval = 500

tmrLimit.Enabled = True

dteNextTime = DateAdd("n", 1, Now)

End Sub

Private Sub tmrLimit_Timer()

If Now >= dteNextTime Then

tmrLimit.Enabled = False

MsgBox "试用时间已到，如果戚者粗您觉得本软件不错，请购买正版！", vbOKOnly, "青铜剑嫌唯工作室"

End

End If

End Sub

---