Code : Tout sélectionner
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <File.au3>
Opt("WinTitleMatchMode", 3)
$hGUI2 = GUICreate("OverLayMenu", 200, 200, -1, -1, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_TOPMOST)
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST"); déplacement du menu possible
GUIRegisterMsg($WM_LBUTTONDOWN, "_WM_LBUTTONDOWN");test if the left mouse button click on an Indicator
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\GTA_MenuV_off.png")
$hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage)
$w = _GDIPlus_ImageGetWidth($hImage)
$h = _GDIPlus_ImageGetHeight($hImage)
_SetBitMap($hGUI2, $hImage, 255, $w, $h)
GUISetState()
;définition des indicators comme boutons
Dim $Indicator[1][1][1]
$NumInd = ""
$Indicator[0][0][0] = ""
Dim $Timer, $BlinkSate = True, $VitesseClignotementOFF = 1500, $VitesseClignotementON = 1500
Dim $Skin, $Xpos, $Height, $Width, $Height, $Var, $Blink, $GUI
_FileReadToArray(@ScriptDir & "\liste.txt", $Skin)
if @error then Exit
Dim $LogoID[$Skin[0] + 1]
for $Ln = 1 to $Skin[0]
if StringLeft($Skin[$Ln], 2) = "I," Then ;indicators
$Var = StringSplit($Skin[$Ln], ",")
If StringInStr($Var[9],"_") Then
$Logo = StringSplit(StringReplace($Var[9],'"',''),"_")
$LogoID[$Ln] = $Logo[1]
$Ind = "_01"
$Logo = $LogoID[$Ln]&$Ind&".png"
Else
$Logo = StringReplace($Var[9],'"','')
$LogoID[$Ln] = $Logo
$Ind = ""
$Logo = $LogoID[$Ln]&$Ind
EndIf
$hImage = _ImageResize(@ScriptDir&"\"&$Logo, $Var[4] ,$Var[5])
$LogoID[$Ln] = GUICreate($Logo, $Var[4] ,$Var[5], $Var[2] ,$Var[3], $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $hGUI2)
$bitmapID = _SetBitMap($LogoID[$Ln], $hImage, 255, $Var[4] ,$Var[5])
GUISetState(@SW_SHOW, $LogoID[$Ln])
WinSetOnTop($LogoID[$Ln], "", 1)
EndIf
Next
While 1
$msg = GUIGetMsg()
For $Ln = 1 to $Skin[0];clignotement des logos
if StringLeft($Skin[$Ln], 2) = "I," Then
$Var = StringSplit($Skin[$Ln], ",")
If StringInStr($Var[9],"_") Then
$Logo = StringSplit(StringReplace($Var[9],'"',''),"_")
$LogoID[$Ln] = $Logo[1]
If StringInStr($Var[6],":b") or StringInStr($Var[6],":B") Then;test si un des logos doit clignoter
$Var2 = StringSplit(StringReplace($Var[6],'"',''),":")
; Switch $rr.getind($Var2[1])
; Case "True"
$Ind = "_01"
; Case "False"
; $Ind = "_00"
; EndSwitch
Else
; Switch $rr.getind(StringReplace($Var[6],'"',''))
; Case "True"
$Ind = "_01"
; Case "False"
; $Ind = "_00"
; EndSwitch
EndIf
$Logo = $LogoID[$Ln]&$Ind&".png"
Else
$Logo = StringReplace($Var[9],'"','')
$LogoID[$Ln] = $Logo
$Ind = ""
$Logo = $LogoID[$Ln]&$Ind
EndIf
If StringInStr($Var[6],":b") or StringInStr($Var[6],":B") Then
If $Var[7] <> "" and $Var[8] <> "" and $BlinkSate = True Then
If $VitesseClignotementOFF <> $Var[7] Then $VitesseClignotementOFF = $Var[7]
If $VitesseClignotementON <> $Var[8] Then $VitesseClignotementON = $Var[8]
If(Mod(TimerDiff($Timer), 2*$VitesseClignotementON) < $VitesseClignotementON) Then
GUISetState(@SW_SHOW, $Logo)
Else
GUISetState(@SW_HIDE, $Logo)
EndIf
EndIf
If(TimerDiff($Timer) > 2*$VitesseClignotementOFF) Then
$Timer = TimerInit()
EndIf
EndIf
EndIf
Next
Sleep(100)
WEnd
Func _ImageResize($sInImage, $newW, $newH)
Local $oldImage, $GC, $newBmp, $newGC
_GDIPlus_Startup()
$oldImage = _GDIPlus_ImageLoadFromFile($sInImage)
$GC = _GDIPlus_ImageGetGraphicsContext($oldImage)
$newBmp = _GDIPlus_BitmapCreateFromGraphics($newW, $newH, $GC)
$newGC = _GDIPlus_ImageGetGraphicsContext($newBmp)
_GDIPlus_GraphicsDrawImageRect($newGC, $oldImage, 0, 0, $newW, $newH)
_GDIPlus_GraphicsDispose($GC)
_GDIPlus_GraphicsDispose($newGC)
_GDIPlus_ImageDispose($oldImage)
Return $newBmp ;
EndFunc ;==>_ImageResize
Func _SetBitmap($hGUI, $hImage, $LnOpacity, $n_width, $n_height)
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", $n_width)
DllStructSetData($tSize, "Y", $n_height)
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", $LnOpacity)
DllStructSetData($tBlend, "Format", 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 ;==>_SetBitmap
; ====================================================================================================
; Handle the WM_NCHITTEST for the layered window so it can be dragged by clicking anywhere on the image.
; ====================================================================================================
Func WM_NCHITTEST($hWnd, $LnMsg, $LnwParam, $LnlParam)
If ($hWnd = $hGUI2) And ($LnMsg = $WM_NCHITTEST) Then Return $HTCAPTION
EndFunc ;==>WM_NCHITTEST
;======================================================================================================
;Test if the mouse click on a gui of an indicator and test if the handel is the same as the gui clicked
;======================================================================================================
Func _WM_LBUTTONDOWN($hWnd, $iMsg, $wParam, $lParam)
; msgbox(0,"",$hWnd&@crlf&$iMsg&@crlf&$wParam&@crlf&$lParam,2)
$var = WinList()
For $i = 1 to $var[0][0]
If $var[$i][0] <> "" Then
If $var[$i][1] = $hWnd Then
For $Ln = 1 to $Skin[0]
If StringLeft($Skin[$Ln], 2) = "I," Then
$Var2 = StringSplit($Skin[$Ln], ",")
$Ind = "_01"
$Logo2 = StringReplace(StringReplace($Var2[9],'"',''),"_*.png",$Ind&".png")
$CMDtoExecute = StringReplace($Var2[6],'"','')
; MsgBox(0, "Details",$Logo2,2)
If $Logo2 = $var[$i][0] Then
; MsgBox(0, "Details", "I click on the logo : " & $var[$i][0],2)
MsgBox(0, "Details", "I click on the logo : " & $Logo2,2)
EndIf
EndIf
Next
EndIf
EndIf
Next
EndFunc
respect Tlem 
(enfin pas trop)
