Help for this page

Select Code to Download


  1. or download this
    my $GetTickCo­unt = Win32::API­->new("ker­nel32.dll"­,'GetTickC­ount',
+'','­I');
  2. or download this
    my $now= Win32::GetTickCount();
  3. or download this
    my $ticks= do { use integer; Win32::GetTickCount() - $time };
  4. or download this
    my $ticks= Win32::GetTickCount() - $time;
$ticks += ~0   if  $ticks < 0;