Windows "Uptime" API
[1/6] from: tbrownell::shaw::ca at: 13-Mar-2002 2:53
While were on the api thing, here's one that gives the system uptime in hours...
rebol []
kern32: load/library %kernel32.dll
cliks: make routine! [
return: [integer!]
] kern32 "GetTickCount"
Uptime: cliks / 1000 / 60 / 60
print uptime
halt
TBrownell
[2/6] from: chalz:earthlink at: 13-Mar-2002 23:18
You don't mention what version of REBOL is requird for this script.
>> cliks: make routine! [
[
[ return: [integer!]
[ ] kern32 "GetTickCount"
** Script Error: Feature not available in this REBOL
Just as a general note, could people include something that states what
version of REBOL is required to run their scripts?
[3/6] from: al:bri:xtra at: 14-Mar-2002 19:25
> You don't mention what version of REBOL is requird for this script.
Rebol/Command is required.
Andrew Martin
ICQ: 26227169 http://valley.150m.com/
[4/6] from: brett:codeconscious at: 14-Mar-2002 19:52
Works fine with REBOL/View/Pro too.
Brett.
[5/6] from: tbrownell:shaw:ca at: 13-Mar-2002 23:10
Or view/pro
[6/6] from: joel:neely:fedex at: 14-Mar-2002 8:17
Not to be picky, but...
Andrew Martin wrote:
> Rebol/Command is required.
>
REBOL/Command >>on microSoft windows<<
and thereby no longer platform neutral.
-jn-
--
; sub REBOL {}; sub head ($) {@_[0]}
REBOL []
# despam: func [e] [replace replace/all e ":" "." "#" "@"]
; sub despam {my ($e) = @_; $e =~ tr/:#/.@/; return "\n$e"}
print head reverse despam "moc:xedef#yleen:leoj" ;