在vb.net中如何编写限制软件的使用时间？

Posted 2023-04-26

给你个方法，在软件加载时就判断下当前系统时间（最好是判断远程服务器上的时间，因为当前运行系统的时间他可以手动），判断当前时间是否有超过最后期限。。 参考技术A 检测”任务管理器“当出现你的软件就计时，没出现就不机。保存记录的时间。到达一定时间就自动关闭它。 参考技术B 可在代码最前面加一个CHECK，检查当前电脑或者联网服务器的时间，是否还在你的规定范围内。可返回布尔型值，你懂得 参考技术C 使用Timer组件实施计时，组件名为Timer1，现在前面申明：
Dim s As Int32=0 '秒
Dim m As Int32=0 '分
Dim h As Int32=0 '时
Timer1的属性的Intrval的值为1000（毫秒）
然后在Timer1的Tick事件中输入：
s=s+1
If s=60 Then
s=0
m=m+1
End If '当秒为60时，秒归零，分加1。
If m=60Then
m=0
h=h+1
End If '当分为60时，分归零，时加1。
'下面为判断是否到时。
If h=2 Then
MsgBox("使用时间已到，使用时长为：" & h & "小时。") '告诉用户到时。
Me.Close()
End If '到时即关，h=2中的2是指两小时，也可以改为m=3，指三分钟。

同时要把Timer1的Enabled属性改为True即可。

如何在 VB.NET 中引发异常

【中文标题】如何在 VB.NET 中引发异常

【英文标题】：How to raise an exception in VB.NET

【发布时间】：2012-10-20 12:29:10

【问题描述】：

在 VB.NET 中应该如何引发异常？

【问题讨论】：

@JonathonReinhart：我不认为在这个网站上对这样的问题有明确的答案有什么问题。

当然。但让我大吃一惊的是，在这个网站存在 X 年后，没有人问过这个问题。正如下面提到的，这可能是因为它是如此微不足道，并且在其他地方很容易回答。

每次我必须编写这段代码时，我都会用谷歌搜索这个问题。很高兴它在这里。

【参考方案1】：

你会抛出一个新的异常。

看看Throw Statement (Visual Basic)

Throw 语句抛出一个可以处理的异常 结构化异常处理代码（Try...Catch...Finally）或 非结构化异常处理代码（On Error GoTo）。您可以使用 Throw 语句以捕获代码中的错误，因为 Visual Basic 向上移动调用堆栈，直到找到合适的 异常处理代码。

编辑

通过请求和链接

Throw New System.Exception("An exception has occurred.")

【讨论】：

@JonathonReinhart，明白了。如果这是重复的，那么就这样关闭它，如果不是，应该回答，对吗？

我道歉，并撤销我的反对票。 *** 上怎么可能没有这个问题？！

@JonathonReinhart，我认为这实际上可能是微不足道的，它可能是“Hello World”之后的课程。 X-)

我认为你可能是对的。添加一个示例，我会（仍然感到惊讶）赞成:-)