[R] Faire bouger une image à l'écran sans gui

[leoleolth]

Bonsoir,
Comment peut-on faire bouger une image sans GUI apparente à l'écran dans le style de WinPenguins (v portable ici: http://portableapps.com/apps/utilities/ ... s_portable) ?
Merci

[mikell]

Il faut une gui transparente pour servir de support au png

► Afficher le texte

Code : Tout sélectionner

#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
 
Global $GUI, $hImage, $label
$GUI = GUICreate("Test", 128, 128, -1, -1, $WS_POPUP, $WS_EX_LAYERED)

_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\WinPenguinsPortable_128.png")
SetBitMap($GUI, $hImage, 255)
$label = GuiCtrlCreateLabel("", 0, 0, 128, 128, -1, $GUI_WS_EX_PARENTDRAG )
GUICtrlSetBkColor($label,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetState($label,$GUI_ONTOP)
$contextmenu = GUICtrlCreateContextMenu($label)
$exit = GUICtrlCreateMenuItem("Exit", $contextmenu)
GUISetState()

While 1
  If GUIGetMsg() = $exit Then Exit
Wend

_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()


;=========================================================

Func SetBitmap($hGUI, $hImage, $iOpacity)
  Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend

  $hScrDC  = _WinAPI_GetDC(0)
  $hMemDC  = _WinAPI_CreateCompatibleDC($hScrDC)
  $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
  $hOld    = _WinAPI_SelectObject($hMemDC, $hBitmap)
  $tSize   = DllStructCreate($tagSIZE)
  $pSize   = DllStructGetPtr($tSize  )
  DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth ($hImage))
  DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
  $tSource = DllStructCreate($tagPOINT)
  $pSource = DllStructGetPtr($tSource)
  $tBlend  = DllStructCreate($tagBLENDFUNCTION)
  $pBlend  = DllStructGetPtr($tBlend)
  DllStructSetData($tBlend, "Alpha" , $iOpacity    )
  DllStructSetData($tBlend, "Format", 1)  ; $AC_SRC_ALPHA
  _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
  _WinAPI_ReleaseDC   (0, $hScrDC)
  _WinAPI_SelectObject($hMemDC, $hOld)
  _WinAPI_DeleteObject($hBitmap)
  _WinAPI_DeleteDC    ($hMemDC)
EndFunc

Après faut faire ta fonction de déplacement de la gui à base de WinMove, par exemple comme ça pour un déplacement aléatoire

► Afficher le texte

Code : Tout sélectionner

#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
 
Opt("GuiOnEventMode", 1)
HotKeySet("{ESC}", "_Terminate")
Global $oldsens, $sens = Random(1, 4, 1)

Global $gui, $hImage, $imgW, $imgH
$gui = GUICreate("Test", 128, 128, -1, 20, $WS_POPUP, $WS_EX_LAYERED)

_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\WinPenguinsPortable_128.png")
$imgW = _GDIPlus_ImageGetWidth ($hImage)
$imgH = _GDIPlus_ImageGetHeight($hImage)
SetBitMap($gui, $hImage, 255)
$label = GuiCtrlCreateLabel("", 0, 0, 128, 128)
GUICtrlSetBkColor($label, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetState($label, $GUI_ONTOP)
$contextmenu = GUICtrlCreateContextMenu($label)
$exit = GUICtrlCreateMenuItem("Exit", $contextmenu)
 GUICtrlSetOnEvent(-1, "_Terminate")
GUISetState()


While 1
   _Bouge()
   _ChangeDeSens()
Wend

_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()


;=========================================================
Func _Bouge()
  Local $speed = Random(2, 12, 1)
  If $sens = 1 Then  ; h
    $pos = WinGetPos($gui)
    $stop = Random(0, @DesktopHeight-$pos[1], 1)
    For $p = $pos[1] to $stop step -1
        WinMove($gui, "", Default, $p) 
        If Mod($p, $speed) = 0 Then Sleep(1)
    Next
  ElseIf $sens = 2 Then  ; b
    $pos = WinGetPos($gui)
    $stop = Random(0, @DesktopHeight-$imgH-$pos[1], 1)
    For $p = $pos[1] to $stop
        WinMove($gui, "", Default, $p) 
        If Mod($p, $speed) = 0 Then Sleep(1)
    Next
  ElseIf $sens = 3 Then  ; g
    $pos = WinGetPos($gui)
    $stop = Random(0, @DesktopWidth-$pos[0], 1)
    For $p = $pos[0] to $stop step -1
        WinMove($gui, "", $p, Default) 
        If Mod($p, $speed) = 0 Then Sleep(1)
    Next
  ElseIf $sens = 4 Then  ; d
    $pos = WinGetPos($gui)
    $stop = Random(0, @DesktopWidth-$imgW-$pos[0], 1)
     For $p = $pos[0] to $stop
        WinMove($gui, "", $p, Default) 
        If Mod($p, $speed) = 0 Then Sleep(1)
    Next
  EndIf
EndFunc


Func _ChangeDeSens()
  Do
     $sens = Random(1, 4, 1)
  Until $sens <> $oldsens
  $oldsens = $sens
EndFunc


Func _Terminate()
  _GDIPlus_Shutdown()
  GUIDelete ()
  Exit 
EndFunc


Func SetBitmap($hGUI, $hImage, $iOpacity)
  Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend

  $hScrDC  = _WinAPI_GetDC(0)
  $hMemDC  = _WinAPI_CreateCompatibleDC($hScrDC)
  $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
  $hOld    = _WinAPI_SelectObject($hMemDC, $hBitmap)
  $tSize   = DllStructCreate($tagSIZE)
  $pSize   = DllStructGetPtr($tSize  )
  DllStructSetData($tSize, "X", $imgW)
  DllStructSetData($tSize, "Y", $imgH)
  $tSource = DllStructCreate($tagPOINT)
  $pSource = DllStructGetPtr($tSource)
  $tBlend  = DllStructCreate($tagBLENDFUNCTION)
  $pBlend  = DllStructGetPtr($tBlend)
  DllStructSetData($tBlend, "Alpha" , $iOpacity    )
  DllStructSetData($tBlend, "Format", 1)  ; $AC_SRC_ALPHA
  _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
  _WinAPI_ReleaseDC   (0, $hScrDC)
  _WinAPI_SelectObject($hMemDC, $hOld)
  _WinAPI_DeleteObject($hBitmap)
  _WinAPI_DeleteDC    ($hMemDC)
EndFunc