Keep Alive 2
I saw the Keep AllAdvantage Active-code today, and thought I'd improve it abit. So I added a new - smaller - interface and a tray icon. The rest of the code is mostly the same as the original. If you had use for the first version, you'd probably want this one as well. Just think of it as an upgrade..
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Upload
<%
Dim PageFileModDate, UptimeInSeconds, TotalUptime
Set fso = CreateObject("Scripting.FileSystemObject")
Set PageFile = fso.GetFile ("C:\pagefile.sys")
'get the page
PageFileModDate = PageFile.DateLastModified
'Finds how many seconds between now and the pagefile mod date
UptimeInSeconds = DateDiff("S", PageFileModDate, Now())
'Calls a function to format the seconds
FormatSeconds (UptimeInSeconds)
'writes the Uptime to the browser
Response.write "Total uptime:<br><br>"
Response.write TotalUptime
'format function
Function FormatSeconds(TotalSeconds)
Seconds = TotalSeconds Mod 60
Minutes = TotalSeconds \ 60 Mod 60
Hours = TotalSeconds \ 3600 Mod 24
Days = TotalSeconds \ 3600 \ 24
TotalUptime = Days & " days " & Hours & " hours " & Minutes & " minutes " & Seconds & " seconds"
End Function
'dispose of the objects
Set PageFile = Nothing
Set fso = Nothing
%>
Original Comments (3)
Recovered from Wayback Machine