how do I create an uptime function? =/
You ask API Viewer:
Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
Yeah but what do I do with that? :-[
One easy (if possibly not best) way to do it is to call it when the program is executed, then call it whenever uptime is asked for. Simply subtract and you'll get your effective uptime (as long as you're within GetTickCount's accuracy tolerance).
How do I subtract in vb? ;D
Public Declare Function Subtract Lib "math32" (ByVal A As Long, ByVal B As Long) As Long
Someone should write a class and place in an ATL COM DLL for that.
yeah u guys should do that---im retarded and dont know what to do with those declares u gave me
a little more help would be appreciated :-/
There's no subtraction operator in VB?! You must be kidding! You seriously can't say A - B?
As far using the declares...lets see how close I can get this, just by guessing based on what I've picked up...
Dim StartTime As Long
StartTime = GetTickCount()
'when you need to check for uptime:
Dim CurrentTime As Long, Uptime As Long
CurrentTime = GetTickCount()
Uptime = Subtract( CurrentTime, StartTime )
Then you'll need to do the division to determine what the hours, minutes, etc. in Uptime actually are.
you can do A - B
here..
Function ParseGTC(count As Long) As String
Dim Days As long, Hours As Long, minutes As Long, Seconds As Long, Miliseconds As Long
Miliseconds = count Mod 1000
count = count \ 1000
Days = count \ (24& * 3600&)
If Days > 0 Then count = count - (24& * 3600& * Days)
Hours = count \ 3600&
If Hours > 0 Then count = count - (3600& * Hours)
minutes = count \ 60
Seconds = count Mod 60
ParseGTC = Days & " Days, " & Hours & " Hours, " & minutes & " Minutes, " & Seconds & " Seconds and " & Miliseconds & " Milliseconds."
End Function
IIf() > all parsing methods relating to uptime crapola ;D