利用Api函数计算Windows从启动后所运行的总

2016-02-19 12:54 46 1 收藏

每个人都希望每天都是开心的,不要因为一些琐事扰乱了心情还,闲暇的时间怎么打发,关注图老师可以让你学习更多的好东西,下面为大家推荐利用Api函数计算Windows从启动后所运行的总,赶紧看过来吧!

【 tulaoshi.com - 编程语言 】

PrivateDeclareFunctionGetTickCountLib"kernel32"()AsLong
  
  PrivateSubTimer1_Timer()
  DimhourAsInteger
  DimminuteAsInteger
  DimsecondAsInteger
  hour=GetTickCount10006060
  Label1.Caption=Str(hour) "小时"
  
  minute=(GetTickCount-hour*60*60*1000)100060
  Label2.Caption=Str(minute) "分钟"
  
  second=(GetTickCount-Val(Label1.Caption)*60*60*1000-Val(Label2.Caption)*60*1000)1000
  Label3.Caption=Str(second) "秒钟"
  EndSub->

来源:http://www.tulaoshi.com/n/20160219/1602375.html

延伸阅读
WNetAddConnection创建同一个网络资源的永久性连接WNetAddConnection2创建同一个网络资源的连接WNetAddConnection3创建同一个网络资源的连接WNetCancelConnection结束一个网络连接WNetCancelConnection2结束一个网络连接WNetCloseEnum结束一次枚举操作WNetConnectionDialog启动一个标准对话框,以便建立同网络资源的连接WNetDisconnectDialog启...
声明: DeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLength AsLong,ByValhwndCallbackAsLong)AsLong 代码: DimreturnstringAsString FileNameAsString returnstring=Space(127) FileName="C:A1.avi" erg=mciSend...
Windows98系统的许多软件中都包含一个windows风格的about窗口,它向用户反映了当前系统的一些基本信息,其中显示有关windows及其应用软件的版本、版权和系统的工作状态等信息。笔者用VB6.0通过调用API函数设计应用系统的ABOUT窗口。 1.建立含有如下控件的窗体: 控件NAMECAPTION 窗体FORM1用VB6.0设计ABOUT窗口命令按钮C...