Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

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" ;