Anybody know how to get system uptime in Visual Basics?

I searched google but the only things that looked useful were like in German or Dutch. And I couldn't understand them.

NoName: http://www.vb-magazin.de/new/postt682.html
See anything useful about getting uptime there , I cant understand
TheBlasphemer: It's german bitch -_-
TheBlasphemer: NEVER EVER compare dutch and german
NoName : How do I know , All looks the same
TheBlasphemer: That' insuling

quote:

---

Originally posted by NoName
Anybody know how to get system uptime in Visual Basics?

---

Thanks =)

Well Alec, I am willing to share this with you

Something I wrote quite a few months ago

this is what i used for my system info plug:

code:

---

Private Declare Function GetTickCount& Lib "kernel32" ()

Private Function WinUpTime()
    Dim Secs, Mins, Hours, Days
    Dim TotalMins, TotalHours, TotalSecs, TempSecs
    Dim CaptionText
    TotalSecs = Int(GetTickCount / 1000)
    Days = Int(((TotalSecs / 60) / 60) / 24)
    TempSecs = Int(Days * 86400)
    TotalSecs = TotalSecs - TempSecs
    TotalHours = Int((TotalSecs / 60) / 60)
    TempSecs = Int(TotalHours * 3600)
    TotalSecs = TotalSecs - TempSecs
    TotalMins = Int(TotalSecs / 60)
    TempSecs = Int(TotalMins * 60)
    TotalSecs = (TotalSecs - TempSecs)


    If TotalHours > 23 Then
        Hours = (TotalHours - 23)
    Else
        Hours = TotalHours
    End If


    If TotalMins > 59 Then
        Mins = (TotalMins - (Hours * 60))
    Else
        Mins = TotalMins
    End If
   
    If Hours = 0 Then
        CaptionText = Mins & " Minutes, " & TotalSecs & " seconds" & vbCrLf
    ElseIf Days = 0 Then
        CaptionText = Hours & " Hours, " & Mins & " Minutes, " & TotalSecs & " seconds" & vbCrLf
    Else
        CaptionText = Days & " Days, " & Hours & " Hours, " & Mins & " Minutes, " & TotalSecs & " seconds" & vbCrLf
    End If
    WinUpTime = CaptionText
End Function

---

quote:

---

Originally posted by Mnjul
Attachment: UptimeTicker.zip (16.1 KB)

---

quote:

---

Originally posted by Sk3tch
TotalSecs = Int(GetTickCount / 1000)
    Days = Int(((TotalSecs / 60) / 60) / 24)
    TempSecs = Int(Days * 86400)
    TotalSecs = TotalSecs - TempSecs
    TotalHours = Int((TotalSecs / 60) / 60)
    TempSecs = Int(TotalHours * 3600)
    TotalSecs = TotalSecs - TempSecs
    TotalMins = Int(TotalSecs / 60)
    TempSecs = Int(TotalMins * 60)
    TotalSecs = (TotalSecs - TempSecs)


etc....

---

code:

---

Dim msecs As Long
Dim secs As Long
Dim mins As Long
Dim hours As Long
Dim days As Long
Dim total As Long
total = GetTickCount()

msecs = total Mod 1000
total = total / 1000

secs = total Mod 60
total = total / 60

mins = total Mod 60
total = total / 60

hours = total Mod 24
total = total / 24

days = total


'etc....

---

quote:

---

Originally posted by Mnjul
Well Alec, I am willing to share this with you

Something I wrote quite a few months ago

---

You dodgy people post all the source only after I figure it out

quote:

---

Originally posted by RileyM
Mnjul

I downloaded your file because i enquired on how to get a VB appliaction to test the version of Windows that is running. Unfortunately i cant get my prgram to do it. Please can you let me know how you did it?

This would be much appreciated.

RileyM

---