[R] Système de notifications

[mikell]

Par esprit de contradiction je dirai alors

Ah la jeunesse

Bon allez voilà le dernier, c'est pas parfait, mais ça remplit le cahier des charges du départ
utiliser le script 'commande'

notif_func.rar

(9.27 Kio) Téléchargé 298 fois

[RL77LUC]

Eh bien il change quoi par rapport à celui que j'ai posté ?

[mikell]

Ben déjà il marche
Tu n'as pas testé ? le script externe 'commande.au3' montre comment on peut (avec les boutons d'une gui, dans cet exemple) lancer des notifications de manière totalement autonome depuis divers autres scripts, avec pour chacune des notifications un texte personnalisé et un "empilage" correct

EDIT: ça y est, là c'est nickel, simple et efficace
Respecter le nom des scripts

script commande.au3 :

► Afficher le texte

Code : Tout sélectionner

#Include <Clipboard.au3>

GuiCreate("commande", 200, 120, 50, 50)
$label1 = GuiCtrlCreateLabel("le premier texte", 30, 30, 100, 20)
$label2 = GuiCtrlCreateLabel("le deuxième texte", 30, 60, 100, 20)
$label3 = GuiCtrlCreateLabel("le troisième texte", 30, 90, 100, 20)
$btn1 = GuiCtrlCreateButton(" 1 ", 150, 30, 30, 20)
$btn2 = GuiCtrlCreateButton(" 2 ", 150, 60, 30, 20)
$btn3 = GuiCtrlCreateButton(" 3 ", 150, 90, 30, 20)
GuiSetState()

While 1
$msg = GuiGetMsg()
Switch $msg
    Case -3
        Exit
    Case $btn1
        _ClipBoard_SetData (GuiCtrlRead($label1))
        _Notif()  
    Case $btn2
        _ClipBoard_SetData (GuiCtrlRead($label2))
        _Notif()   
    Case $btn3
        _ClipBoard_SetData (GuiCtrlRead($label3))
        _Notif()   
EndSwitch
Wend

Func _Notif()  
ShellExecute(@scriptdir & "\notif_base.au3")
EndFunc
 

script notif_base.au3 :

► Afficher le texte

Code : Tout sélectionner

#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#Include <Clipboard.au3>
Opt("WinTitleMatchMode", 2)
Global Const $AC_SRC_ALPHA = 1

_GDIPlus_Startup()
Global $hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\file2.png")

Global $timeout = 4000
$text = _ClipBoard_GetData()

_Notification($text) 

_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()

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

Func _Notification($text) 
$var = WinList("Notification")
For $i = 1 to $var[0][0]
If WinExists($var[$i][0]) Then
    $prevpos = WinGetPos($var[$i][0])
    WinMove($var[$i][0], "", $prevpos[0], $prevpos[1]+80)
EndIf
Next

$GUI = GUICreate("Notification"& $i, 323, 73, -1, 300, $WS_POPUP, $WS_EX_LAYERED)
SetBitMap($GUI, $hImage, 255)
$hBmp = _ImageDrawText($hImage, $text, 90, 25, 0xffffff, 12, 0, "Comic Sans MS")
SetBitMap($GUI, $hBmp, 255)
GUISetState()

$GUI2 = GUICreate("msg", 25, 25, -1, -1, $WS_POPUP, $WS_EX_LAYERED  + $WS_EX_COMPOSITED + $WS_EX_MDICHILD, $GUI) 
GUISetBkColor(0x000005)
$croix = GuiCtrlCreatePic("file3.bmp", 4, 4, 19, 19)
_WinAPI_SetLayeredWindowAttributes($GUI2, 0x000005, 255)
GUISetState()

Local $start = TimerInit()

While 1
If TimerDiff($start)>$timeout OR GuiGetMsg() = $croix Then
    For $i = 255 to 0 step -10
        SetBitMap($GUI, $hImage, $i)
        SetBitMap($GUI, $hBmp, $i)
GUISetState (@SW_ENABLE, $GUI)
        _WinAPI_SetLayeredWindowAttributes($GUI2, 0x000005, $i)
        Sleep(20)
    Next
_GDIPlus_ImageDispose($hBmp)
    ExitLoop
EndIf
Wend
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", _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", $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

Func _ImageDrawText($hImage, $sText, $iX = 0, $iY = 0, $iRGB = 0x000000, $iSize = 9, $iStyle = 0, $sFont = "Arial") 
    Local $w, $h, $hGraphic1, $hBitmap, $hGraphic2, $hBrush, $hFormat, $hFamily, $hFont, $tLayout, $aInfo
    $w = _GDIPlus_ImageGetWidth($hImage)
    $h = _GDIPlus_ImageGetHeight($hImage)
    
    ;Create a new bitmap, this way the original opened png is left unchanged
    $hGraphic1 = _GDIPlus_GraphicsCreateFromHWND(_WinAPI_GetDesktopWindow())
    $hBitmap = _GDIPlus_BitmapCreateFromGraphics($w, $h, $hGraphic1)
    $hGraphic2 = _GDIPlus_ImageGetGraphicsContext($hBitmap) 
    
    ; Draw the original opened png into my newly created bitmap
    _GDIPlus_GraphicsDrawImageRect($hGraphic2, $hImage, 0, 0, $w, $h)

    ;Create the font
    $hBrush = _GDIPlus_BrushCreateSolid ("0xFF" & Hex($iRGB, 6))
    $hFormat = _GDIPlus_StringFormatCreate()
    $hFamily = _GDIPlus_FontFamilyCreate ($sFont)
    $hFont = _GDIPlus_FontCreate ($hFamily, $iSize, $iStyle)
    $tLayout = _GDIPlus_RectFCreate ($iX, $iY, 0, 0)
    $aInfo = _GDIPlus_GraphicsMeasureString ($hGraphic2, $sText, $hFont, $tLayout, $hFormat)
    
    ;Draw the font onto the new bitmap
    _GDIPlus_GraphicsDrawStringEx ($hGraphic2, $sText, $hFont, $aInfo[0], $hFormat, $hBrush)
    
    ;Cleanup the no longer needed resources
    _GDIPlus_FontDispose ($hFont)
    _GDIPlus_FontFamilyDispose ($hFamily)
    _GDIPlus_StringFormatDispose ($hFormat)
    _GDIPlus_BrushDispose ($hBrush)
    _GDIPlus_GraphicsDispose ($hGraphic2)
    _GDIPlus_GraphicsDispose ($hGraphic1)

    ;Return the new bitmap
    Return $hBitmap
EndFunc
 

[RL77LUC]

Ah, mais tu peux adapter le miens stp ? J'ai pas tout compris pour l'utilisation x). Et niveau descente, t'as des idées ? ^^'

[mikell]

Et niveau descente, t'as des idées ?

Dis donc, tu l'as testé mon script ou pas ?
Bon je résume
- avec le script 'commande.au3' tu ouvres une gui, qui contient 3 textes et 3 boutons
- chaque fois que tu cliques sur un des boutons, ça lance une nouvelle instance du script 'notif_base.au3' qui ouvre une notification avec le texte correspondant au bouton
- si tu cliques sur les boutons plusieurs fois tu verras qu'à chaque nouvelle notification ouverte la précédente descend d'un cran

La gui, ce n'est qu'un exemple. Le vrai intérêt, c'est que
- tu peux commander les notifications depuis n'importe quel autre script, elles marcheront... et descendront
- le texte de la notification peut être défini dans cet autre script

Si tu veux que j'adapte quelque chose dis-moi quoi exactement
ça demande juste des réglages de détail, le principal est fait

[RL77LUC]

Ah non, tu as mal compris ma notion de "descente" ^^'. En fait, par exemple si j'ouvre 3 notifications, je voudrais que si je ferme la 2e eh bien la 3e redescente pour coller la première, de manière à ce qu'il n'y ait jamais de trous ^^.

Et si possible, je voudrais que vous l'adaptiez au dernier script que j'ai fourni , à moins que ça soit à inclure dans les scripts qui font appel aux notifications, j'ai pas tout compris x).

[mikell]

Bon voilà
Il ne reste que la "descente" à faire... ça sera pas le plus simple

Sinon, pour la commande, la fonction est maintenant sous la forme
Func _Notif($text, $timeout = 0, $bk = 1) -- tu pourras la lancer depuis n'importe quel script pourvu qu'il ait l'include <Clipboard.au3>
optionnels : $timeout (0 par défaut, la notif ne se ferme pas) et $bk (1 pour l'image par défaut)

commande.au3

► Afficher le texte

Code : Tout sélectionner

#Include <Clipboard.au3>

GuiCreate("commande", 200, 120, 50, 50)
$label1 = GuiCtrlCreateLabel("le premier texte", 30, 30, 100, 20)
$label2 = GuiCtrlCreateLabel("le deuxième texte", 30, 60, 100, 20)
$label3 = GuiCtrlCreateLabel("le troisième texte", 30, 90, 100, 20)
$btn1 = GuiCtrlCreateButton(" 1 ", 150, 30, 30, 20)
$btn2 = GuiCtrlCreateButton(" 2 ", 150, 60, 30, 20)
$btn3 = GuiCtrlCreateButton(" 3 ", 150, 90, 30, 20)
GuiSetState()


While 1
$msg = GuiGetMsg()
Switch $msg
    Case -3
        Exit
    Case $btn1
        _Notif(GuiCtrlRead($label1)) 
    Case $btn2
        _Notif(GuiCtrlRead($label2), 1000)   
    Case $btn3
        _Notif(GuiCtrlRead($label3), 5000, 1)    
EndSwitch
Wend


Func _Notif($text, $timeout = 0, $bk = 1)  
    $data = $text & "#" & $timeout & "#" & $bk
    _ClipBoard_SetData ($data)
    ShellExecute(@scriptdir & "\notif_base.au3")
EndFunc

notif_base.au3

► Afficher le texte

Code : Tout sélectionner

#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#Include <Clipboard.au3>


_Notification(_ClipBoard_GetData()) 


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

Func _Notification($data) 
$elmts = StringSplit ($data, "#")
$text = $elmts[1]
If $elmts[0] = 2 Then $timeout = $elmts[2]
If $elmts[0] = 3 Then 
    $timeout = $elmts[2]
    $bk = $elmts[3]
EndIf

Opt("WinTitleMatchMode", 2)
Global Const $AC_SRC_ALPHA = 1
_GDIPlus_Startup()

If $bk = 1 Then
    $hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\file2.png")     ; $bk = 1 pour background n°1
Else
    $hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\file2.png")     ; $bk = 2 pour background n°2
EndIf

$var = WinList("Notification")
For $i = 1 to $var[0][0]
If WinExists($var[$i][0]) Then
    $prevpos = WinGetPos($var[$i][0])
    WinMove($var[$i][0], "", $prevpos[0], $prevpos[1]+80)
EndIf
Next

$GUI = GUICreate("Notification"& $i, 323, 73, -1, 300, $WS_POPUP, $WS_EX_LAYERED)
SetBitMap($GUI, $hImage, 255)
$hBmp = _ImageDrawText($hImage, $text, 90, 25, 0xffffff, 12, 0, "Comic Sans MS")
SetBitMap($GUI, $hBmp, 255)
GUISetState()

$GUI2 = GUICreate("msg", 25, 25, -1, -1, $WS_POPUP, $WS_EX_LAYERED  + $WS_EX_COMPOSITED + $WS_EX_MDICHILD, $GUI) 
GUISetBkColor(0x000005)
$croix = GuiCtrlCreatePic("file3.bmp", 4, 4, 19, 19)
_WinAPI_SetLayeredWindowAttributes($GUI2, 0x000005, 255)
GUISetState()

Local $start = TimerInit()

While 1
If (TimerDiff($start)>$timeout AND $timeout>0) OR GuiGetMsg() = $croix Then
    For $i = 255 to 0 step -10
        SetBitMap($GUI, $hImage, $i)
        SetBitMap($GUI, $hBmp, $i)
        _WinAPI_SetLayeredWindowAttributes($GUI2, 0x000005, $i)
        Sleep(20)
    Next
_GDIPlus_ImageDispose($hBmp)
    ExitLoop
EndIf
Wend
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
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", _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", $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


Func _ImageDrawText($hImage, $sText, $iX = 0, $iY = 0, $iRGB = 0x000000, $iSize = 9, $iStyle = 0, $sFont = "Arial") 
    Local $w, $h, $hGraphic1, $hBitmap, $hGraphic2, $hBrush, $hFormat, $hFamily, $hFont, $tLayout, $aInfo
    $w = _GDIPlus_ImageGetWidth($hImage)
    $h = _GDIPlus_ImageGetHeight($hImage)
    
    ;Create a new bitmap, this way the original opened png is left unchanged
    $hGraphic1 = _GDIPlus_GraphicsCreateFromHWND(_WinAPI_GetDesktopWindow())
    $hBitmap = _GDIPlus_BitmapCreateFromGraphics($w, $h, $hGraphic1)
    $hGraphic2 = _GDIPlus_ImageGetGraphicsContext($hBitmap) 
    
    ; Draw the original opened png into my newly created bitmap
    _GDIPlus_GraphicsDrawImageRect($hGraphic2, $hImage, 0, 0, $w, $h)

    ;Create the font
    $hBrush = _GDIPlus_BrushCreateSolid ("0xFF" & Hex($iRGB, 6))
    $hFormat = _GDIPlus_StringFormatCreate()
    $hFamily = _GDIPlus_FontFamilyCreate ($sFont)
    $hFont = _GDIPlus_FontCreate ($hFamily, $iSize, $iStyle)
    $tLayout = _GDIPlus_RectFCreate ($iX, $iY, 0, 0)
    $aInfo = _GDIPlus_GraphicsMeasureString ($hGraphic2, $sText, $hFont, $tLayout, $hFormat)
    
    ;Draw the font onto the new bitmap
    _GDIPlus_GraphicsDrawStringEx ($hGraphic2, $sText, $hFont, $aInfo[0], $hFormat, $hBrush)
    
    ;Cleanup the no longer needed resources
    _GDIPlus_FontDispose ($hFont)
    _GDIPlus_FontFamilyDispose ($hFamily)
    _GDIPlus_StringFormatDispose ($hFormat)
    _GDIPlus_BrushDispose ($hBrush)
    _GDIPlus_GraphicsDispose ($hGraphic2)
    _GDIPlus_GraphicsDispose ($hGraphic1)

    ;Return the new bitmap
    Return $hBitmap
EndFunc

Les détails cosmétiques (police etc) tu te les feras, faut quand même que tu bosses un peu...
Si tu veux des explications sur les scripts, demande, parce que le plus important c'est que tu comprennes comment et pourquoi ça marche

[MrDynoland]

J'avais tester car je lui fais les îcone pour remplacer l'oiseau.
Un très bon code mais une descente est vraiment primordial.

[mikell]

quelque chose comme ça ?

notif_base.au3

► Afficher le texte

Code : Tout sélectionner

#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#Include <Clipboard.au3>

_Notification(_ClipBoard_GetData()) 


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

Func _Notification($data) 
$elmts = StringSplit ($data, "#")
$text = $elmts[1]
$timeout = 0
$bk = 1
If $elmts[0] = 2 Then $timeout = $elmts[2]
If $elmts[0] = 3 Then 
    $timeout = $elmts[2]
    $bk = $elmts[3]
EndIf

Opt("WinTitleMatchMode", 2)
_GDIPlus_Startup()

If $bk = 1 Then
    $hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\file2.png")     ; $bk = 1 pour background n°1
Else
    $hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\file2.png")     ; $bk = 2 pour background n°2
EndIf

$var = WinList("Notification")
For $i = 1 to $var[0][0]
If WinExists($var[$i][0]) Then
    $prevpos = WinGetPos($var[$i][0])
    WinMove($var[$i][0], "", $prevpos[0], $prevpos[1]+80)
EndIf
Next

Global $GUI = GUICreate("Notification"& $i, 323, 73, -1, 300, $WS_POPUP, $WS_EX_LAYERED)
SetBitMap($GUI, $hImage, 255)
$hBmp = _ImageDrawText($hImage, $text, 90, 25, 0xffffff, 12, 0, "Comic Sans MS")
SetBitMap($GUI, $hBmp, 255)
GUISetState()

$GUI2 = GUICreate("msg" & $i, 25, 25, -1, -1, $WS_POPUP, $WS_EX_LAYERED  + $WS_EX_COMPOSITED + $WS_EX_MDICHILD, $GUI) 
GUISetBkColor(0x000005)
$croix = GuiCtrlCreatePic("file3.bmp", 4, 4, 19, 19)
_WinAPI_SetLayeredWindowAttributes($GUI2, 0x000005, 255)
GUISetState()

Local $start = TimerInit()

While 1
If (TimerDiff($start)>$timeout AND $timeout>0) OR GuiGetMsg() = $croix Then
    For $i = 255 to 0 step -10
        SetBitMap($GUI, $hImage, $i)
        GUISetState (@SW_ENABLE, $GUI)
        SetBitMap($GUI, $hBmp, $i)
        _WinAPI_SetLayeredWindowAttributes($GUI2, 0x000005, $i)
        Sleep(21)
    Next

    $guititle = WinGetTitle($GUI)
    $pos0 = WinGetPos($guititle)
    GuiDelete($GUI)
    GuiDelete($GUI2)

    $var2 = WinList("Notification")
    If $var2[0][0]>0 Then
        For $i = 1 to $var2[0][0]
            $pos = WinGetPos($var2[$i][0])
            If $pos[1]>$pos0[1] Then WinMove($var2[$i][0], "", $pos[0], $pos[1]-80)
        Next
    EndIf
    ExitLoop
EndIf
Wend

_GDIPlus_ImageDispose($hBmp)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
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", _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)   ;Global Const $AC_SRC_ALPHA = 1
  _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


Func _ImageDrawText($hImage, $sText, $iX = 0, $iY = 0, $iRGB = 0x000000, $iSize = 9, $iStyle = 0, $sFont = "Arial") 
    Local $w, $h, $hGraphic1, $hBitmap, $hGraphic2, $hBrush, $hFormat, $hFamily, $hFont, $tLayout, $aInfo
    $w = _GDIPlus_ImageGetWidth($hImage)
    $h = _GDIPlus_ImageGetHeight($hImage)
    
    ;Create a new bitmap, this way the original opened png is left unchanged
    $hGraphic1 = _GDIPlus_GraphicsCreateFromHWND(_WinAPI_GetDesktopWindow())
    $hBitmap = _GDIPlus_BitmapCreateFromGraphics($w, $h, $hGraphic1)
    $hGraphic2 = _GDIPlus_ImageGetGraphicsContext($hBitmap) 
    
    ; Draw the original opened png into my newly created bitmap
    _GDIPlus_GraphicsDrawImageRect($hGraphic2, $hImage, 0, 0, $w, $h)

    ;Create the font
    $hBrush = _GDIPlus_BrushCreateSolid ("0xFF" & Hex($iRGB, 6))
    $hFormat = _GDIPlus_StringFormatCreate()
    $hFamily = _GDIPlus_FontFamilyCreate ($sFont)
    $hFont = _GDIPlus_FontCreate ($hFamily, $iSize, $iStyle)
    $tLayout = _GDIPlus_RectFCreate ($iX, $iY, 0, 0)
    $aInfo = _GDIPlus_GraphicsMeasureString ($hGraphic2, $sText, $hFont, $tLayout, $hFormat)
    
    ;Draw the font onto the new bitmap
    _GDIPlus_GraphicsDrawStringEx ($hGraphic2, $sText, $hFont, $aInfo[0], $hFormat, $hBrush)
    
    ;Cleanup the no longer needed resources
    _GDIPlus_FontDispose ($hFont)
    _GDIPlus_FontFamilyDispose ($hFamily)
    _GDIPlus_StringFormatDispose ($hFormat)
    _GDIPlus_BrushDispose ($hBrush)
    _GDIPlus_GraphicsDispose ($hGraphic2)
    _GDIPlus_GraphicsDispose ($hGraphic1)

    ;Return the new bitmap
    Return $hBitmap
EndFunc

[RL77LUC]

Je ne peux malheureusement pas tester étant donné que je suis en vacances. Merci pour tout, je regarderais tout ça à mon retour dans une semaine. Ton dernier script gère la descente ?

Voila un schéma textuel (Smartphone oblige) de ce que j'entend par descente :

Trois notifications : X, Y et Z
X
Y
Z

Je ferme Y, je voudrais que X se colle à Z pour eliminer l'espace vide de Y. En tous cas merci pour tout.

[mikell]

Trois notifications : X, Y et Z
X
Y
Z
Je ferme Y, je voudrais que X se colle à Z pour eliminer l'espace vide de Y

En fait dans mon script, si tu fermes Y c'est Z qui monte se coller à X ...
ça me parait plus logique dans la mesure où la dernière notification créée vient se placer en haut de la pile à la place de X en faisant descendre X, Y et Z d'un cran, et donc la dernière notification à disparaitre sera en haut (à la place de X dans ton exemple)
Si tu tiens absolument à ce que ça descende, alors pour rester logique il faut que la dernière notif créée le soit en bas (à la place de Z) et fasse monter les précédentes
Mais c'est un détail

[RL77LUC]

Vu que mes notifications sont positionnées en bas de l'écran, pourrais-tu me réaliser ce que tu disais, à savoir l'apparition d'une nouvelle notification en bas en faisant descendre les précédentes ? Merci !

[mikell]

Boudu je l'avais oublié ce script... voilà c'est modifié
Mais t'es VRAIMENT feignant, y avait juste 3 petites corrections ridicules à faire ...
T'as compris comment tout ça fonctionne, au moins ?

► Afficher le texte

Code : Tout sélectionner

; nom du script = [b]notif_base.au3[/b]  (sinon, corriger le nom dans le script de lancement commande.au3)


#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#Include <Clipboard.au3>

_Notification(_ClipBoard_GetData()) 


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

Func _Notification($data) 
$elmts = StringSplit ($data, "#")
$text = $elmts[1]
$timeout = 0
$bk = 1
If $elmts[0] = 2 Then $timeout = $elmts[2]
If $elmts[0] = 3 Then 
    $timeout = $elmts[2]
    $bk = $elmts[3]
EndIf

Opt("WinTitleMatchMode", 2)

_GDIPlus_Startup()

If $bk = 1 Then
    $hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\file2.png")     ; $bk = 1 pour background n°1
Else
    $hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\file2.png")     ; $bk = 2 pour background n°2
EndIf

$var = WinList("Notification") 
For $i = 1 to $var[0][0]                 [color=#008000]; vérifie s'il existe déjà des notifications[/color]
If WinExists($var[$i][0]) Then           [color=#008000]; si oui, les déplace de 80 px vers le haut[/color]
    $prevpos = WinGetPos($var[$i][0])    [color=#008000]; pour faire la place à la nouvelle[/color]
    WinMove($var[$i][0], "", $prevpos[0], $prevpos[1]-80)
EndIf
Next

$Xposition = @desktopwidth - 400
$Yposition = @desktopheight - 160

Global $GUI = GUICreate("Notification"& $i, 323, 73, $Xposition, $Yposition, $WS_POPUP, $WS_EX_LAYERED)
SetBitMap($GUI, $hImage, 255)
$hBmp = _ImageDrawText($hImage, $text, 90, 25, 0xffffff, 12, 0, "Comic Sans MS")
SetBitMap($GUI, $hBmp, 255)
GUISetState()

$GUI2 = GUICreate("msg" & $i, 25, 25, -1, -1, $WS_POPUP, $WS_EX_LAYERED  + $WS_EX_COMPOSITED + $WS_EX_MDICHILD, $GUI) 
GUISetBkColor(0x000005)
$croix = GuiCtrlCreatePic("file3.bmp", 4, 4, 19, 19)
_WinAPI_SetLayeredWindowAttributes($GUI2, 0x000005, 255)
GUISetState()

Local $start = TimerInit()

While 1
If (TimerDiff($start)>$timeout AND $timeout>0) OR GuiGetMsg() = $croix Then
    For $i = 255 to 0 step -10
        SetBitMap($GUI, $hImage, $i)
        GUISetState (@SW_ENABLE, $GUI)
        SetBitMap($GUI, $hBmp, $i)
        _WinAPI_SetLayeredWindowAttributes($GUI2, 0x000005, $i)
        Sleep(21)
    Next

    $guititle = WinGetTitle($GUI)
    $pos0 = WinGetPos($guititle)
    GuiDelete($GUI)
    GuiDelete($GUI2)

    $var2 = WinList("Notification")
    If $var2[0][0]>0 Then
        For $i = 1 to $var2[0][0]                   [color=#008000]; compte les notifications[/color]
            $pos = WinGetPos($var2[$i][0])         [color=#008000]; vérifie leur position[/color]
            If $pos[1]<$pos0[1] Then WinMove($var2[$i][0], "", $pos[0], $pos[1]+80)     [color=#008000]; si ya un espace, descend de 80 px celles qui sont au-dessus[/color]
        Next
    EndIf
    ExitLoop
EndIf
Wend

_GDIPlus_ImageDispose($hBmp)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
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", _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)   ;Global Const $AC_SRC_ALPHA = 1
  _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


Func _ImageDrawText($hImage, $sText, $iX = 0, $iY = 0, $iRGB = 0x000000, $iSize = 9, $iStyle = 0, $sFont = "Arial") 
    Local $w, $h, $hGraphic1, $hBitmap, $hGraphic2, $hBrush, $hFormat, $hFamily, $hFont, $tLayout, $aInfo
    $w = _GDIPlus_ImageGetWidth($hImage)
    $h = _GDIPlus_ImageGetHeight($hImage)
    
    ;Create a new bitmap, this way the original opened png is left unchanged
    $hGraphic1 = _GDIPlus_GraphicsCreateFromHWND(_WinAPI_GetDesktopWindow())
    $hBitmap = _GDIPlus_BitmapCreateFromGraphics($w, $h, $hGraphic1)
    $hGraphic2 = _GDIPlus_ImageGetGraphicsContext($hBitmap) 
    
    ; Draw the original opened png into my newly created bitmap
    _GDIPlus_GraphicsDrawImageRect($hGraphic2, $hImage, 0, 0, $w, $h)

    ;Create the font
    $hBrush = _GDIPlus_BrushCreateSolid ("0xFF" & Hex($iRGB, 6))
    $hFormat = _GDIPlus_StringFormatCreate()
    $hFamily = _GDIPlus_FontFamilyCreate ($sFont)
    $hFont = _GDIPlus_FontCreate ($hFamily, $iSize, $iStyle)
    $tLayout = _GDIPlus_RectFCreate ($iX, $iY, 0, 0)
    $aInfo = _GDIPlus_GraphicsMeasureString ($hGraphic2, $sText, $hFont, $tLayout, $hFormat)
    
    ;Draw the font onto the new bitmap
    _GDIPlus_GraphicsDrawStringEx ($hGraphic2, $sText, $hFont, $aInfo[0], $hFormat, $hBrush)
    
    ;Cleanup the no longer needed resources
    _GDIPlus_FontDispose ($hFont)
    _GDIPlus_FontFamilyDispose ($hFamily)
    _GDIPlus_StringFormatDispose ($hFormat)
    _GDIPlus_BrushDispose ($hBrush)
    _GDIPlus_GraphicsDispose ($hGraphic2)
    _GDIPlus_GraphicsDispose ($hGraphic1)

    ;Return the new bitmap
    Return $hBitmap
EndFunc

[RL77LUC]

Ben le truc, c'est que je pensais que ça serait plus compliqué, car je vois pas les scripts (Balise Spoiler fonctionne plus depuis peu, je sais pas pourquoi ...) donc je savais pas. Désolé ^^'.

[RL77LUC]

Ben le truc, c'est que je pensais que ça serait plus compliqué, car je vois pas les scripts (Balise Spoiler fonctionne plus depuis peu, je sais pas pourquoi ...) donc je savais pas. Désolé ^^'.

[mikell]

Pas grave, c'est probablement le navigateur du téléphone
alors c'est OK là ?

[RL77LUC]

Je viens de tester et j'ai quelques soucis :
- Le fond du bouton fermer est vert
- Lors de la descente des notifications, toutes les fenêtres ouvertes de Windows bougent

Merci de ton aide.

[mikell]

Le fond du bouton fermer est vert

pour le bouton, utilise le "file3.bmp" qui est dans le dernier pack que j'ai posté, pas de png

Lors de la descente des notifications, toutes les fenêtres ouvertes de Windows bougent

Enlève dans le script le : Opt("WinTitleMatchMode", 2)
et modifie cette partie du code :

Code : Tout sélectionner

    $var2 = WinList("Notification")
    If $var2[0][0]>0 Then
        For $i = 1 to $var2[0][0]
            $pos = WinGetPos($var2[$i][[b][color=#FF0000]1[/color][/b]])
            If $pos[1]<$pos0[1] Then WinMove($var2[$i][[b][color=#FF0000]1[/color][/b]], "", $pos[0], $pos[1]+80)
        Next
    EndIf

[RL77LUC]

Je crois que tout est parfait, donc je passe en résolu. Je ne te remercierais assez jamais pour toute l'aide que tu m'as fournie, et d'avoir fait mes caprices .

[mikell]

Pas de problème, j'ai appris des choses en faisant ce script et je vais me le conserver bien au chaud pour usage/adaptation personnels

Surtout, si tu dois y modifier qqe chose, il faut d'abord que tu comprennes bien à quoi chaque passage du script correspond. Au moindre doute, n'hésite pas à me demander

Mais quelle volupté après 58 messages de voir ce [R] ...