ScreenSaver: immagine in dissolvenza

#include <gdiplus.au3>
#include <guiconstantsex.au3>
#include <guiconstants.au3>
#include <windowsconstants.au3>
_GDIPlus_Startup()
$GUI = GUICreate("ScrSaver",@DesktopWidth,@DesktopHeight,0,0,$WS_POPUP)
GUISetState()
$brush = _GDIPlus_BrushCreateSolid(0x30000000)
$gr = _GDIPlus_GraphicsCreateFromHWND($GUI)
_GDIPlus_GraphicsClear($gr)
_GDIPlus_GraphicsSetSmoothingMode($gr,1)
$imm = _GDIPlus_ImageLoadFromFile("immagine.png")
HotKeySet("{ESC}","Stop")
HotKeySet("{SPACE}","Stop")
HotKeySet("{ENTER}","Stop")
While 1
Switch GUIGetMsg()
Case -11
Exit
Case -7
Exit
Case -9
Exit
EndSwitch
_GDIPlus_GraphicsDrawImage($gr,$imm,Random(0,@DesktopWidth,1),Random(0,@DesktopHeight,1))
_GDIPlus_GraphicsFillRect($gr,0,0,@DesktopWidth,@DesktopHeight,$brush)
WEnd

Func Stop()
Sleep(100)
Exit
EndFunc

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.6.1
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------
#include <gdiplus.au3>
#include <guiconstantsex.au3>
#include <guiconstants.au3>
#include <windowsconstants.au3>
_GDIPlus_Startup()
$GUI = GUICreate("ScrSaver",@DesktopWidth,@DesktopHeight,0,0,$WS_POPUP)
GUISetState()
$brush = _GDIPlus_BrushCreateSolid(0x15000000)
$graf = _GDIPlus_GraphicsCreateFromHWND($GUI)
$grBitmap = _GDIPlus_BitmapCreateFromGraphics(@DesktopWidth, @DesktopHeight, $graf) ;create bitmap
$gr = _GDIPlus_ImageGetGraphicsContext($grBitmap) ;create buffer
_GDIPlus_GraphicsClear($gr)
_GDIPlus_GraphicsSetSmoothingMode($gr,2)
$imm = _GDIPlus_ImageLoadFromFile("immagine.png")
_GDIPlus_GraphicsDrawImage($graf,$grBitmap,0,0)
HotKeySet("{ESC}","Stop")
HotKeySet("{SPACE}","Stop")
HotKeySet("{ENTER}","Stop")
While 1
Switch GUIGetMsg()
Case -11
Exit
Case -7
Exit
Case -9
Exit
EndSwitch
_GDIPlus_GraphicsDrawImage($gr,$imm,Random(0,@DesktopWidth,1),Random(0,@DesktopHeight,1))
_GDIPlus_GraphicsFillRect($gr,0,0,@DesktopWidth,@DesktopHeight,$brush)
_GDIPlus_GraphicsDrawImage($graf,$grBitmap,0,0)
WEnd

Func Stop()
Sleep(100)
Exit
EndFunc

#include <gdiplus.au3>
#include <guiconstantsex.au3>
#include <guiconstants.au3>
#include <windowsconstants.au3>
_GDIPlus_Startup()
$GUI = GUICreate("ScrSaver",@DesktopWidth,@DesktopHeight,0,0,$WS_POPUP)
GUISetCursor(16)
GUISetState()
$brush = _GDIPlus_BrushCreateSolid(0x25000000)
$graf = _GDIPlus_GraphicsCreateFromHWND($GUI)
$grBitmap = _GDIPlus_BitmapCreateFromGraphics(@DesktopWidth, @DesktopHeight, $graf) ;create bitmap
$gr = _GDIPlus_ImageGetGraphicsContext($grBitmap) ;create buffer
_GDIPlus_GraphicsClear($gr)
_GDIPlus_GraphicsSetSmoothingMode($gr,2)
$imm = _GDIPlus_ImageLoadFromFile(@ScriptDir&"\immagine.png")
_GDIPlus_GraphicsDrawImage($graf,$grBitmap,0,0)
HotKeySet("{ESC}","Stop")
HotKeySet("{SPACE}","Stop")
HotKeySet("{ENTER}","Stop")
$timer = TimerInit()
While 1
Switch GUIGetMsg()
Case -11
Exit
Case -7
Exit
Case -9
Exit
EndSwitch
If timerdiff($timer) > 20 Then
$timer = TimerInit()
Draw()
EndIf
WEnd
_GDIPlus_Shutdown()

Func Draw()
_GDIPlus_GraphicsDrawImage($gr,$imm,Random(0,@DesktopWidth-200,1),Random(0,@DesktopHeight-100,1))
_GDIPlus_GraphicsDrawImage($graf,$grBitmap,0,0)
_GDIPlus_GraphicsFillRect($gr,0,0,@DesktopWidth,@DesktopHeight,$brush)
EndFunc

Func Stop()
Sleep(100)
Exit
EndFunc