The Supposed "Leaked Video of Zune Linux" — Biggest Hoax of 2007

 #include <Date.au3> ; _DateDaysInMonth() and all its dependencies

Func _TimeDelayForMS($ms, $showToolTip=1)
  $startTime=API_GetTickCount()
  $endTime = $startTime + $ms
  While API_GetTickCount() < $endTime
    ;ToolTip(@Hour & ':' & @Min & ':' & @Sec & ':' & _MSec())
    If $showToolTip = 1 then ToolTip(API_GetTickCount())
    Sleep(1)
  WEnd
EndFunc

Func _TimeDelayUpToMS($ms, $exitCondition, $showToolTip=0)
  $startTime=API_GetTickCount()
  $endTime = $startTime + $ms
  While API_GetTickCount() < $endTime and Execute($exitCondition)=0
    ;ToolTip(@Hour & ':' & @Min & ':' & @Sec & ':' & _MSec())
    If $showToolTip = 1 then ToolTip(API_GetTickCount())
    Sleep(1)
  WEnd
EndFunc

Func API_GetTickCount()
  $t=DllCall("kernel32.dll", "int", "GetTickCount")
  Return $t[0]
EndFunc

; ----------------------------------------------------

Func API_GetLocalTime()
  Local $stSystemTime = DllStructCreate('ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort')
  DllCall('kernel32.dll', 'none', 'GetLocalTime', 'ptr', DllStructGetPtr($stSystemTime))
  
  Local $gst=DllStructGetData($stSystemTime, 1)
  For $i = 2 to 8
    $gst = $gst & ":" & DllStructGetData($stSystemTime, $i)
  Next
  
  $stSystemTime = 0 ; free structure from memory
  return $gst
EndFunc

Func API_SetLocalTime($increment, $units="Minutes")
  $Systime = DllStructCreate("ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort")
  $arg = DllCall("kernel32.dll","long","GetLocalTime","ptr",DllStructGetPtr($Systime))
  
  If StringInStr($increment,":")>0 then
    Consolewrite("Set absolute time" & @cr)
    ; Set absolute time
    $dat=stringsplit($increment,":")
    DllStructSetData($Systime,1,$dat[1])
    DllStructSetData($Systime,2,$dat[2])
    DllStructSetData($Systime,3,$dat[3])
    DllStructSetData($Systime,4,$dat[4])
    DllStructSetData($Systime,5,$dat[5])
    DllStructSetData($Systime,6,$dat[6])
    DllStructSetData($Systime,7,$dat[7])
    DllStructSetData($Systime,8,$dat[8])
  Else
    Consolewrite("Set relative time" & @cr)
    ; Set relative time
    $units = StringLower($units)
    Local $validUnit=False
    For $UU in StringSplit("years,months,days,hours,minutes,seconds,milliseconds",",")
      If $units=$UU then $validUnit=True
    Next
    If $validUnit=False Then ConsoleWriteError("Invalid Unit: " & $units & @CRLF)
    
    $increment=Number($increment)
    ConsoleWrite($increment & @crlf)
    Select
      Case $units="years"
        $data = DllStructGetData($Systime,1)+$increment
        $C=__Cycle($data,1601,30827)
        DllStructSetData($Systime,1,$data)
      Case $units="months"
        $data = DllStructGetData($Systime,2)+$increment
        $C = __Cycle($data,1,12)        
        DllStructSetData($Systime,2,$data)
        If $C <> 0 then API_SetLocalTime($C, "years")
      Case $units="days"
        $data = DllStructGetData($Systime,4)+$increment
        $param = _DateDaysInMonth(DllStructGetData($Systime,1), DllStructGetData($Systime,2))
        $C = __Cycle($data, 1, $param)
        DllStructSetData($Systime,4,$data)
        If $C <> 0 then API_SetLocalTime($C, "months")
      Case $units="hours"
        $data = DllStructGetData($Systime,5)+$increment
        $C = __Cycle($data,0,23)        
        DllStructSetData($Systime,5,$data)
        If $C <> 0 then API_SetLocalTime($C, "days")
      Case $units="minutes"
        $data = DllStructGetData($Systime,6)+$increment
        $C = __Cycle($data,0,59)        
        DllStructSetData($Systime,6,$data)
        If $C <> 0 then API_SetLocalTime($C, "hours")
      Case $units="seconds"
        $data = DllStructGetData($Systime,7)+$increment
        $C = __Cycle($data,0,59)        
        DllStructSetData($Systime,7,$data)
        If $C <> 0 then API_SetLocalTime($C, "minutes")
      Case $units="milliseconds"
        $data = DllStructGetData($Systime,8)+$increment
        $C = __Cycle($data,0,999)      
        DllStructSetData($Systime,8,$data)
        If $C <> 0 then API_SetLocalTime($C, "seconds")
    EndSelect
  EndIf
  
  $arg = DllCall("kernel32.dll","long","SetLocalTime","ptr",DllStructGetPtr($Systime))
  $Systime=0
  ConsoleWrite($ARG & @CRLF)
  If $arg=0 then
    return 0
  else
    return 1
  EndIf
EndFunc

Func __Cycle(byref $data, $min, $max)
  $inc = 0
  While $data > $max
    $data = $data - ($max-$min)
    $inc += 1
  WEnd
  While $data < $min
    $data = $data + $max
    $inc -= 1
  WEnd
  return $inc
EndFunc