首页 /编程语言和算法/VB6/ASP
 VB6 代码管家-软件试用期
2024年12月8日 21:56
'参考地址:http://zhidao.baidu.com/question/71657546.html,本来自己写得出来的,可是太懒了,就找了别人的代码,哈哈
Private Sub Form_Load()
	Dim nStr As String, S As Long
	
	nStr = GetSetting("MySoft", "MyApp", "Times", "")                   '从注册表读取已使用次数
	
	S = Val(nStr)
	MsgBox "已使用次数:" & S, vbInformation                            '显示使用次数,本语句可删除
	If S > 5 Then                                                       '软件次数设为5次
		MsgBox "软件试用期已到!如须继续使用请够买正试版!", vbInformation
		End
	End If
	
	SaveSetting "MySoft", "MyApp", "Times", S + 1                       '使用次数加1,保存到注册表
End Sub


 
全部回复(0)
首页 | 电脑版 |