[VB.NET]获得Windows运行时间

获得Windows运行时间

实例说明

在本实例中，我们将制作一个能够获得自开机以来Windows运行的时间。程序运行结果如图87-1所示。

图87-1 运行结果

技术要点

l GetTickCount函数

l 换算时间

实现过程

■ 新建项目

打开Visual Studio.NET，选择"新建项目"，在项目类型窗口中选择"Visual Basic项目"，在模板窗口中选择"Windows应用程序"，在名称域中输入"GetRunTime"，然后选择保存路径。单击"确认"。

■ 添加控件和设置属性

向窗体上添加两个Button控件，将窗体和控件的Text属性改为和界面一致。

■ 添加代码

Private Declare Function GetTickCount Lib "kernel32" () As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim resRunTime As Long

Dim temp As Double

Dim tempHour, tempMinute, tempSecond As Integer

'获取自windows启动以来经历的时间长度（毫秒）

resRunTime = GetTickCount

'计算秒

temp = resRunTime / 1000

'计算小时

tempHour = temp / 3600

'计算分

tempMinute = (temp / 3600 - tempHour) * 60

'计算秒

tempSecond = ((temp / 3600 - tempHour) * 60 - tempMinute) * 60

MsgBox("Windows运行时间：" & tempHour & ":" & tempMinute & ":" & tempSecond)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End

End Sub

■ 运行程序

单击菜单"调试|启动"或单击图标运行程序。

小结

本实例通过调用GetTickCount()函数来得到系统运行的时间，但是使用该函数返回的是毫秒，因此需要经过转化后才能为我们所使用。

[VB.NET]获得Windows运行时间相关推荐

vb.net的windows窗体实现dos命令
Imports System.Threading Imports System.Runtime.CompilerServices Public Class frmCmdExcute Inherits ...
Windows Phone + VB 程序员=好的移动应用程序
原文出处:http://blogs.msdn.com/b/somasegar/archive/2010/09/23/windows-phone-vb-developers-great-mobile-a ...
VB 与 Windows API 讲座(叁)转载
code demo download VB 与 Windows API 讲座(叁) Windows 的讯息系统 /王国荣 VB 程式有两种工作模式-主动模式及事件驱动模式,主动模式与传统的 DOS 程 ...
windows Bat 批命令教程
转载第一章批处理基础第一节常用批处理内部命令简介批处理定义:顾名思义,批处理文件是将一系列命令按一定的顺序集合为一个可执行的文本文件,其扩展名为BAT或者CMD.这些命令统称批处理命令. 小 ...
windows批处理学习
转自:http://blog.csdn.net/chenlycly/article/details/30480609 第一章批处理基础第一节常用批处理内部命令简介批处理定义:顾名思义,批处理文 ...
Windows BAT批处理脚本教程
第一章批处理基础第一节常用批处理内部命令简介批处理定义:顾名思义,批处理文件是将一系列命令按一定的顺序集合为一个可执行的文本文件,其扩展名为BAT或者CMD.这些命令统称批处理命令. 小知识: ...
windows bat脚本教程
第一章批处理基础第一节常用批处理内部命令简介批处理定义:顾名思义,批处理文件是将一系列命令按一定的顺序集合为一个可执行的文本文件,其扩展名为BAT或者CMD.这些命令统称批处理命令. 小知识: ...
windows批处理命令教程
原文地址:http://www.cnblogs.com/phyllis/archive/2011/05/19/2051131.html 第一章批处理基础第一节常用批处理内部命令简介批处理定义: ...
VB.NET通讯录源代码
利用VB.NET制作通讯录(使用ACCESS数据库) 一.创建应用程序TXL 创建基于VB.Net的Windows应用程序TXL,保存到指定的文件夹下. 二.创建数据库 1.创建ACCESS数据库TX ...

[VB.NET]获得Windows运行时间

[VB.NET]获得Windows运行时间相关推荐

最新文章

热门文章