Shoutbox

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?

---

use the GetTickCount API

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

---

not sure if will help you but ....

should make sense

quote:

---

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

---

nice

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....

---

very complex code, isn't it?

what about this:

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

---

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

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

---

The source is in that zip , look at it.