2001-11-07 14:31:03 +00:00
|
|
|
<?php
|
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
2001-12-11 15:32:16 +00:00
|
|
|
| PHP Version 4 |
|
2001-11-07 14:31:03 +00:00
|
|
|
+----------------------------------------------------------------------+
|
2001-12-11 15:32:16 +00:00
|
|
|
| Copyright (c) 1997-2002 The PHP Group |
|
2001-11-07 14:31:03 +00:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| This source file is subject to version 2.02 of the PHP license, |
|
|
|
|
| that is bundled with this package in the file LICENSE, and is |
|
|
|
|
| available at through the world-wide-web at |
|
|
|
|
| http://www.php.net/license/2_02.txt. |
|
|
|
|
| If you did not receive a copy of the PHP license and are unable to |
|
|
|
|
| obtain it through the world-wide-web, please send a note to |
|
|
|
|
| license@php.net so we can mail you a copy immediately. |
|
|
|
|
+----------------------------------------------------------------------+
|
2002-02-28 08:29:35 +00:00
|
|
|
| Author: James Moore <jmoore@php.net> |
|
2001-11-07 14:31:03 +00:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
*/
|
|
|
|
|
|
|
|
/* $Id$ */
|
|
|
|
|
|
|
|
/**
|
|
|
|
* A little example that registers MessageBoxA and GetTickCount then using
|
|
|
|
* these two API functions tells you how long you computer has been
|
|
|
|
* running
|
|
|
|
*/
|
|
|
|
/**
|
|
|
|
* Define constants needed
|
|
|
|
* Taken from Visual Studio/Tools/Winapi/WIN32API.txt
|
|
|
|
*/
|
|
|
|
|
|
|
|
define("MB_OK", 0);
|
|
|
|
|
|
|
|
|
|
|
|
dl("php_w32api.dll");
|
|
|
|
|
|
|
|
w32api_register_function("kernel32.dll",
|
|
|
|
"GetTickCount",
|
|
|
|
"long");
|
|
|
|
|
|
|
|
w32api_register_function("User32.dll",
|
|
|
|
"MessageBoxA",
|
|
|
|
"long");
|
|
|
|
|
|
|
|
$ticks = GetTickCount();
|
|
|
|
|
|
|
|
$secs = floor($ticks / 1000);
|
|
|
|
$mins = floor($secs / 60);
|
|
|
|
$hours = floor($mins / 60);
|
|
|
|
|
|
|
|
$str = sprintf("You have been using your computer for:".
|
|
|
|
"\r\n %d Milliseconds, or \r\n %d Seconds".
|
|
|
|
"or \r\n %d mins or\r\n %d hours %d mins.",
|
|
|
|
$ticks,
|
|
|
|
$secs,
|
|
|
|
$mins,
|
|
|
|
$hours,
|
|
|
|
$mins - ($hours*60));
|
|
|
|
|
|
|
|
MessageBoxA(NULL,
|
|
|
|
$str,
|
|
|
|
"Uptime Information",
|
|
|
|
MB_OK);
|
|
|
|
?>
|