VB6 获得开机到现在一共经历了多少秒，可用于做共享软件
发表于 2023年4月19日 16:34
新建From1（窗体），新建Command1（按钮CommandButton），代码：
返回列表Private Declare Function osQueryPerformanceCounter Lib "Kernel32" Alias "QueryPerformanceCounter" (lpPerformanceCount As Currency) As Long
Private Declare Function osQueryPerformanceFrequency Lib "Kernel32" Alias "QueryPerformanceFrequency" (lpFrequency As Currency) As Long
Public Function f_Timer() As Single
Dim freq As Currency, count As Currency
osQueryPerformanceFrequency freq
osQueryPerformanceCounter count
f_Timer = count / freq
End Function
Private Sub Command1_Click()
MsgBox f_Timer
End Sub比如得到结果：7035.715
