Diablo 3 launcher

; http://www.autoitscript.com/site/autoit/downloads/
Global $pass = "mdp"
Global $launcher = "C:\Chronophagie\Diablo III\Diablo III Launcher.exe -launch"
HotKeySet("^g", "paste") ; CTRL+G pour coller le mot de passe
HotKeySet("^h", "stop") ; CTRL+H pour forcer l'arrêt du launcher
; pour remplacer les raccourcis, cf. http://www.autoitscript.com/autoit3/docs/functions/Send.htm

#NoTrayIcon
#include-once
#include <Array.au3>
;_MySplashOn
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
Opt("MustDeclareVars", 0)
Global Const $AC_SRC_ALPHA = 1
$First = 0
Global $Fade
;_MySplashOff
Global $process = "Diablo III.exe"
AutoItSetOption("SendKeyDelay", "0")
AutoItSetOption("SendKeyDownDelay", "0")

Run($launcher)
If @error Then
    MsgBox(262160, "Diablo 3 launcher", "Erreur lors du lancement de " & $launcher & @CRLF & "Fermeture du programme", 5000)
    Exit
EndIf
$logoPath = @ScriptDir & "\diablohfr3.png"
$logo = FileExists($logoPath)
If $logo = 1 Then
    _MySplashOn($logoPath, 1)
EndIf
$ret = WinWaitActive("Diablo III", "", 30)
If $ret <> 0 And $logo = 1 Then _MySplashOff()
If $ret = 0 Then
    While 1
        $ret = MsgBox(262449, "Diablo 3 launcher", "Processus " & $process & " non trouvé" & @CRLF & "Attendre indéfiniment (maj par ex) ou quitter le programme ?", 10)
        Select
            Case $ret = 1 ;OK
                ProcessWait($process, 21600) ; max 6h
                ExitLoop
            Case $ret = 2 ;Cancel
                Exit
            Case $ret = -1 ;Timeout
                Exit
        EndSelect
    WEnd
EndIf
While 1
    Sleep(100)
    If Not ProcessExists($process) Then Exit
WEnd
Func paste()
;~  If ProcessExists($process) And WinActive($hDiablo) Then
    If ProcessExists($process) And WinActive("Diablo III") Then
        Send($pass, 1)
        Sleep(100)
        Send("{ENTER}")
    EndIf
EndFunc   ;==>paste
Func Stop()
    Exit
EndFunc   ;==>Stop


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

    AutoIt Version : 3.3.2.0
    Auteur:         DJSIR and noman

    Fonction du Script :
    Permet de faire un Splash avec une Image PNG

#ce ----------------------------------------------------------------------------
Func _MySplashOn($Path_Logo, $Fade = 0)
    _GDIPlus_Startup()
    Global $hImage = _GDIPlus_ImageLoadFromFile($Path_Logo)
    $width = _GDIPlus_ImageGetWidth($hImage)
    $height = _GDIPlus_ImageGetHeight($hImage)
    Global $GUI = GUICreate("", $width, $height, -1, -1, $WS_POPUP, $WS_EX_LAYERED, WinGetHandle(AutoItWinGetTitle()))
    SetBitmap($GUI, $hImage, 0)
    GUISetState()
    WinSetOnTop($GUI, "", 1)
    If $Fade = 1 Then
        For $i = 0 To 255 Step 10
            SetBitmap($GUI, $hImage, $i)
        Next
        SetBitmap($GUI, $hImage, 255)
    Else
    EndIf
    $First = 1
EndFunc   ;==>_MySplashOn

Func _MySplashOff()
    If Not $First = 1 Then Return -1
    If $Fade = 1 Then
        For $i = 255 To 0 Step -10
            SetBitmap($GUI, $hImage, $i)
        Next
    EndIf
    _WinAPI_DeleteObject($hImage)
    _GDIPlus_Shutdown()
    GUIDelete($GUI)
EndFunc   ;==>_MySplashOff

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   ;==>SetBitmap