VB程序的时间限制设定 怎么弄哦

Private Sub Form_Load()

a = Format(Date, "YYYY-MM-DD")

b = Mid(a, 1, 4)

c = Mid(a, 6, 2)

d = Mid(a, 9, 2)

Print a, b, c, d

If Val(b) > 2013 Then

Command1Visible = False

Else

If Val(c) > 4 Then

Command1Visible = False

Else

If Val(d) > 29 Then

Command1Visible = False

End If

End If

End If

End Sub

一使用次数限值

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

'窗体名称：frmMainfrm

'作者： VeryBeNET

'E-Mail：bronzesword@tomcom

'日期：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)

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

'窗体名称：frmMainfrm

'作者： VeryBeNET

'E-Mail：bronzesword@tomcom

'日期：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

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

'窗体名称：frmMainfrm

'作者： VeryBeNET

'E-Mail：bronzesword@tomcom

'日期：2005-06-07

'公司：青铜剑工作室

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

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

Dim dteNextTime As Date

Private Sub Form_Load()

tmrLimitInterval = 500

tmrLimitEnabled = True

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

End Sub

Private Sub tmrLimit_Timer()

If Now >= dteNextTime Then

tmrLimitEnabled = False

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

End

End If

End Sub

要是说到指定日期打不开 你可以使用day(date)来获得指定日期，用month(date)来获得月份 用 year(date)来获得年份

比如你想在它2011年6月19日打不开代码可以这样写

Option Explicit

Private Sub Form_Load()

If Year(Date) = "2011" And Month(Date) = "6" And Day(Date) = 19 Then

MsgBox "指定日期不能打开程序，程序将关闭！"

End

End If

End Sub

这代码是在2011年6月19号那天打不开要是想在19号之后都打不开代码换成这样

Option Explicit

Private Sub Form_Load()

If Year(Date) >= 2011 And Month(Date) >= 6 And Day(Date) >= 19 Then

MsgBox "软件使用期限已到，程序将关闭！"

End

End If

End Sub

当程序运行指定次数可以使用写注册表也可以使用写文件的办法

注册表很麻烦，下面我把写文件的代码给你

'加一个text1,作偏移 '加一下text2,作字串 '我习惯了指定功能就写一相过程/函数 '下面是个加密函数 private function Encode(inputChar as string,PY as integer)as string 'inputchar,输入字串；Py,偏移量 dim tmp as string '临时变量 dim l as integer '用来测量输入串长度 dim chars as string '编码后的字符 l=len(inputchar) for i=1 to l chars=mid(inputchar,i,1) chars=chr(asc(chars)+py) tmp=tmp & chars next encode=tmp '返回结果 end function '解密函数DisEncode()自已写吧，把上面的 chars=chr(asc(chars)+py) 改为 chars=chr(asc(chars)-py)估计可以 '函数调用举例 '加Command1,加密按钮 private sub command1_click() text2text=encode(text2text,val(text1text)) end sub '加Command2,解密按钮 private sub command1_click() text2text=disencode(text2text,val(text1text)) end sub 如果成功，自已作一下优化吧：把disencode()和encode()合为一起,加一个输入参数作为加密解密控制

希望采纳

Private Sub Command1_Click()

Dim s As String

For i = 1 To Len(Text1Text)

s = s & (Val(Mid(Text1Text, i, 1)) + 2) Mod 10

Next i

Text2Text = s

End Sub

需要安装相应的软件才能打开VB的源程序 Visual Basic （ VB ） 是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。 从任何标准来说，VB都是世界上使用人数最多的语言 ——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。 visual studio 2010 英文版 >

以上就是关于VB程序的时间限制设定 怎么弄哦全部的内容，包括:VB程序的时间限制设定 怎么弄哦、如何用vb实现软件使用时间限制、如何VB设计一个程序，到指定使用次数或指定日期后无法使用该程序。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！