vb 软件运行时间 vb 运行时间
VB怎么用统计我的软件的运行时间？代码怎么写
Private s As Integer "声明秒Private m As Integer "声明分Private h As Integer "声明小时Private d As Integer "声明日"启动程序时设置Timer控件属性并给秒、分、时、日变量赋值Private Sub Form_Load()Timer1.Enabled = TrueTimer1.Interval = 500s = 0m = 0h = 0d = 0End SubPrivate Sub Timer1_Timer()s = s + 1 "每秒钟给s变量加1If s >= 60 Thens = 0 "重新计算秒m = m + 1 "逢秒为60则分钟加1If m >= 60 Thenm = 0 "重新计算分h = h + 1 "逢分钟为60则小时加1If h >= 24 Thenh = 0 "重新计算小时d = d + 1 "逢24小时则天数加1End IfEnd IfEnd IfLabel1.Caption = ＂本次使用的时间为：＂ & h & ＂小时＂ & m & ＂分钟＂ & s & ＂秒＂ & vbCrLfEnd Sub
vb软件使用时间限制！！
Private Sub Command1_Click()Dim DayS As String, nDate As String, nNow As StringnDate = ＂2008-11-1＂nNow = Format(Now, ＂yyyy-mm-dd＂)DayS = DateDiff(＂d＂, nNow, nDate) "当月的天数If DayS >0 ThenMsgBox ＂软件使用剩余时间：＂ & DayS & ＂ 天。
＂， vbInformationElseMsgBox ＂软件使用时间已过期！＂， vbInformationEnd IfEnd Sub
vb软件使用时间和日期限制！！
定义两个变量，安装时间、过期时间 取一个唯一性的值（例如硬盘ID或者其他），用这个值加密时间变量（加密算法是最重要的）只允许 安装时间--过期时间之间的时间运行。
每次运行后，如果当前时间小于安装时间或者当前时间大于过期时间，退出，否则更新安装时间为当前时间。
vb如何计算程序运行时间
VB写自己试用软件（为你写的软件加上使用期限），使用别人的软件大多都有试用期，试用期已过就不能在使用，除非注册！Vb也可以实现这样滴效果！以下下介绍两种简单易懂的（其实就会这两种）！当然还有其他方法， 像生成配置文件等！方法很多有待尝试！呵呵！现在提供两种方法。
都是利用注册表的一种是利用点击的次数。
比如一共有30次，点一次少一次。
直到0就不能用了另一种是用时间限制的。
如30天，每天减少一次代码给出，由于代码不是很难就不做任何解释了！--------------------------------------------------"次数限制（如30次）如下：Private Sub Form_Load()Dim RemainDay As LongRemainDay = GetSetting(＂MyApp＂, ＂set＂, ＂times＂, 0)If RemainDay = 30 ThenMsgBox ＂试用次数已满，请注册＂Unload MeEnd IfMsgBox ＂现在剩下：＂ & 30 - RemainDay & ＂试用次数，好好珍惜！＂RemainDay = RemainDay + 1SaveSetting ＂MyApp＂, ＂set＂, ＂times＂, RemainDayEnd Sub先测试第一种的--------------------------------------------------"时间限制的（如30天）Private Sub Form_Load()Dim RemainDay As LongRemainDay = GetSetting(＂MyApp＂, ＂set＂, ＂day＂, 0)If RemainDay = 30 ThenMsgBox ＂试用期已过，请注册＂Unload MeEnd IfMsgBox ＂现在剩下：＂ & 30 - RemainDay & ＂试用天数，好好珍惜！＂if day(now)-remainday>0 then RemainDay = RemainDay + 1SaveSetting ＂MyApp＂, ＂set＂, ＂times＂, RemainDayEnd Sub 代码结束！很简短吧！呵呵！
VB程序设计 运行后显示系统日期、时间
用一个标签Private Sub Form_Load()Label1.Caption = Now()End Sub 如果想看到时间在运行的话就用一个时钟控件来做Private Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Label1.Caption = Now()End Sub
用VB设计软件的时候怎样设置窗口的运行次序？
倒 用api函数GetTickCount VB声明 Declare Function GetTickCount Lib ＂kernel32＂ Alias ＂GetTickCount＂ () As Long 说明 用于获取自windows启动以来经历的时间长度（毫秒） 返回值 Long，以毫秒为单位的windows运行时间 在开头和结束程序时 分别获取时间 相减就行啦那函数还能获取开机时间哦
-