Beiträge von UEZ

  • GDI+ Pixel Text Effect Beta Build 2010-10-21

    Zitat

    Hi UEZ!

    Wieder ein schönes beispiel, was aber für meine augen aufällt 8o , in manchen momenten stockt hackt es, ich würde mir weichere übergänge wünschen! :rolleyes:


    LG Kleiner

    Das liegt sehr wahrscheinlich an der CPU Auslastung. Versuche doch mal eine niedrigere Auflösung oder schraube die Schriftgröße ein wenig runter.

    [autoit]


    ...
    Local $iWidth = 900
    Local $iHeight = 500
    ...
    Local $aText1 = Gen_Pixel_Coordinates($hGraphics, "Pixel Text Effect", 3, 30)
    Local $aText2 = Gen_Pixel_Coordinates($hGraphics, "A new GDI+ Demo", 3, 35, 0, 1, 0, 1, 1, Random(2, 6, 1), "Comic Sans MS")
    Local $aText3 = Gen_Pixel_Coordinates($hGraphics, "Coded by", 1, 14, -1, 3) ;outlined font
    Local $aText4 = Gen_Pixel_Coordinates($hGraphics, "UEZ", 2, 50, 1, 2, 0, 1, 20, 1, "Times New Roman")
    ....

    [/autoit]

    Gruß,
    UEZ

  • GDI+ Pixel Text Effect Beta Build 2010-10-21

    ☺


    Hier ein weiteres GDI+ Beispiel!

    Benötigt wird GDIP.au3

    Source Code:

    Spoiler anzeigen
    [autoit]


    ;Coded by UEZ 2010 Beta Build 2010-10-21
    #AutoIt3Wrapper_UseX64=n
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_Run_Obfuscator=y
    #Obfuscator_Parameters=/sf /sv /om /cs=0 /cn=0
    ;~ #Obfuscator_Parameters=/striponly
    #AutoIt3Wrapper_Run_After=del /f /q "Pixel Text Effect_Obfuscated.au3"
    #AutoIt3Wrapper_Run_After=upx.exe --ultra-brute "%out%"

    [/autoit] [autoit][/autoit] [autoit]

    #include <Array.au3>
    #include <Color.au3>
    #include <GDIP.au3>
    #include <GUIConstantsEx.au3>
    #Include <Memory.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt('GUIOnEventMode', 1)

    [/autoit] [autoit][/autoit] [autoit]

    ProcessSetPriority(@AutoItPID, 4)
    Local $iWidth = 1000;Floor(@DesktopWidth * 0.75)
    Local $iHeight = 600;Floor(@DesktopHeight * 0.75)
    Local $W2 = $iWidth / 2
    Local $H2 = $iHeight / 2
    Local $fps
    _GDIPlus_Startup()

    [/autoit] [autoit][/autoit] [autoit]

    Local $GUI_title = "GDI+ Pixel Text Effect Beta by UEZ 2010 (short demo style ✌ d-|•b ✌)"
    Local $hGui = GUICreate($GUI_title, $iWidth, $iHeight, -1, -1, Default, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
    WinSetTrans($hGUI, "", 255)
    Local $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGui)
    Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $hGraphics)
    Local $hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    Local $hBrush = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)

    [/autoit] [autoit][/autoit] [autoit]

    Local $hMem_Image = Load_BMP_From_Mem(Mem_Image())
    Local $hMem_Image_x = _GDIPlus_ImageGetWidth($hMem_Image)
    Local $hMem_Image_y = _GDIPlus_ImageGetHeight($hMem_Image)

    [/autoit] [autoit][/autoit] [autoit]

    Local $hMem_Image_Bmp = _GDIPlus_BitmapCreateFromGraphics($hMem_Image_x, $hMem_Image_y, $hGraphics)
    Local $hContext = _GDIPlus_ImageGetGraphicsContext($hMem_Image_Bmp)
    _GDIPlus_GraphicsDrawImageRect($hContext, $hMem_Image, 0, 0, $iWidth, $iHeight)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

    [/autoit] [autoit][/autoit] [autoit]

    #region
    Local $playsound = 0
    If FileExists(@ScriptDir & "\fmod.dll") And FileExists(@ScriptDir & "\Images.xm") Then $playsound = 1

    [/autoit] [autoit][/autoit] [autoit]

    Local $fmod_dll
    If $playsound Then
    Local $F_dll = DllOpen("fmod.dll")
    DllCall($F_dll, "long", "_FSOUND_SetBufferSize@4", _
    "long", 200)
    DllCall($F_dll, "long", "_FSOUND_Init@12", _
    "long", 44100, _
    "long", 32, _
    "long", 0x0001)
    Local $F_RetValue = DllCall($F_dll, "long", "_FMUSIC_LoadSong@4", _
    "str" , "Images.xm")
    Local $mod = $F_RetValue[0]
    DllCall($F_dll, "long", "_FMUSIC_SetMasterVolume@8", _
    "long", $mod, _
    "long", 100)
    DllCall($F_dll, "long", "_FMUSIC_SetLooping@8", _
    "long", $mod, _
    "long", 1)
    DllCall($F_dll, "long", "_FMUSIC_PlaySong@4", _
    "long", $mod)
    EndIf
    #endregion

    [/autoit] [autoit][/autoit] [autoit]

    Local $speed = 7,$morph_steps = 75
    Local $aCoord
    Local $p = 0, $q = 7
    ProgressOn("Pixel Calculation", "Please be patient... :-)", "0 %", -1, -1)
    Local $fSize_aT1 = 40
    Local $aText1 = Gen_Pixel_Coordinates($hGraphics, "Pixel Text Effect", 3, $fSize_aT1)
    $p += 1
    ProgressSet(Round(100 * $p / $q), Round(100 * $p / $q) & " percent")
    Local $aText2 = Gen_Pixel_Coordinates($hGraphics, "A new GDI+ Demo", 3, 45, 0, 1, 0, 1, 1, 2, "Comic Sans MS")
    $p += 1
    ProgressSet(Round(100 * $p / $q), Round(100 * $p / $q) & " percent")
    Local $aText3 = Gen_Pixel_Coordinates($hGraphics, "Coded by", 1, 24, -1, 3, 0xFFFFFFFF, 1, 15, Random(2, 8, 1)) ;outlined font
    $p += 1
    ProgressSet(Round(100 * $p / $q), Round(100 * $p / $q) & " percent")
    Local $aText4 = Gen_Pixel_Coordinates($hGraphics, "UEZ", 3, 70, 1, 2, 0, 1, 20, 1, "Arial Black")
    $p += 1
    ProgressSet(Round(100 * $p / $q), Round(100 * $p / $q) & " percent")
    Local $fSize_aT5 = 60
    Local $aText5 = Gen_Pixel_Coordinates($hGraphics, "Your reached the", 4, $fSize_aT5, 0, 4)
    $p += 1
    ProgressSet(Round(100 * $p / $q), Round(100 * $p / $q) & " percent")
    Local $aText6 = Gen_Pixel_Coordinates($hGraphics, "End", 2, 72, 0, 4, 0xFFFFFFFF, 1, 7, 1, "Times New Roman")
    $p += 1
    ProgressSet(Round(100 * $p / $q), Round(100 * $p / $q) & " percent")
    Local $fSize_aT7 = 72
    Local $aText7 = Gen_Pixel_Coordinates($hGraphics, "✌ d-|•b ✌", 3, $fSize_aT7)
    $p += 1
    ProgressSet(Round(100 * $p / $q), Round(100 * $p / $q) & " percent")
    If $playsound Then
    Do
    Sleep(50)
    Until GetOrder($mod) > 1
    Else
    Sleep(1500)
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    ProgressOff()

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetCursor(16, 1)

    [/autoit] [autoit][/autoit] [autoit]

    #region Display
    WinSetTitle($hGUI, "", $GUI_title & " / #Pixels: " & UBound($aText1) - 1)
    Text_Implosion($aText1, 0, 8, $fSize_aT1 * 1.75)
    Sleep(2000)
    Text_Zoom_out2($aText1, 1.125, 8, 0, 0xA0000000)
    Sleep(1000)

    [/autoit] [autoit][/autoit] [autoit]

    WinSetTitle($hGUI, "", $GUI_title & " / #Pixels: " & UBound($aText2) - 1)
    Text_Zoom_In($aText2, 0.1, 4)
    Sleep(2000)
    Text_Explosion($aCoord, 1, 4, 0xA0000000)
    Sleep(1000)

    [/autoit] [autoit][/autoit] [autoit]

    WinSetTitle($hGUI, "", $GUI_title & " / #Pixels: " & UBound($aText3) - 1)
    Text_Zoom_In($aText3, 0.25)
    Sleep(1500)
    Text_Explosion2($aCoord, 0.25)
    Sleep(1000)

    [/autoit] [autoit][/autoit] [autoit]

    WinSetTitle($hGUI, "", $GUI_title & " / #Pixels: " & UBound($aText4) - 1)
    Text_Zoom_In($aText4, 0.05, 3)
    Sleep(3000)
    Text_Explosion($aCoord, 1, 2, 0xB0000000)
    Sleep(1000)

    [/autoit] [autoit][/autoit] [autoit]

    WinSetTitle($hGUI, "", $GUI_title & " / #Pixels: " & UBound($aText5) - 1)
    Text_Implosion($aText5, 1, 4, $fSize_aT5 * 1.75)
    Sleep(2000)

    [/autoit] [autoit][/autoit] [autoit]

    WinSetTitle($hGUI, "", $GUI_title & " / #Pixels: " & UBound($aText5) - 1 & " -> " & UBound($aText6) - 1)
    Morph($aText5, $aText6, 4, 1)
    Sleep(1500)

    [/autoit] [autoit][/autoit] [autoit]

    WinSetTitle($hGUI, "", $GUI_title & " / #Pixels: " & UBound($aText6) - 1)
    Text_Zoom_Out1($aText6, 0.25, 4)
    Sleep(1000)

    [/autoit] [autoit][/autoit] [autoit]

    WinSetTitle($hGUI, "", $GUI_title & " / #Pixels: " & UBound($aText7) - 1)
    ;~ Text_Implosion($aText7, 1, 2, $fSize_aT7)
    Text_Zoom_In($aText7, 0.25, 4)
    Sleep(4000)
    #endregion

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    _Exit()

    [/autoit] [autoit][/autoit] [autoit]

    Func Text_Zoom_In($aDisplay, $s = 0.1 , $bs = 2, $clear = 0xFF000000)
    Local $hBrushClear = _GDIPlus_BrushCreateSolid($clear)
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    Local $size = 0, $x, $y
    $aCoord = $aDisplay
    While $size <= $iWidth / $aDisplay[0][0]
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    For $i = 1 To UBound($aDisplay) - 1
    $x = $W2 - $aDisplay[0][0] * $size / 2 + $aDisplay[$i][0] * $size
    $y = $H2 - $aDisplay[0][1] * $size / 2 + $aDisplay[$i][1] * $size
    $aCoord[$i][0] = $x
    $aCoord[$i][1] = $y
    $aCoord[$i][2] = $aDisplay[$i][2]
    $aCoord[$i][3] = $aDisplay[$i][3]
    $aCoord[$i][4] = $aDisplay[$i][4]
    $aCoord[$i][5] = $aDisplay[$i][5]
    _GDIPlus_BrushSetSolidColor($hBrush, $aDisplay[$i][4])
    _GDIPlus_GraphicsFillRect($hBuffer, $x, $y, $bs, $bs, $hBrush)
    Next
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $iWidth, $iHeight)
    $size += $s
    WEnd
    _GDIPlus_BrushDispose($hBrushClear)
    Return $size - $s / 8
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Text_Zoom_Out1($aDisplay, $s = 0.1 , $bs = 2, $clear = 0xFF000000)
    Local $hBrushClear = _GDIPlus_BrushCreateSolid($clear)
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    Local $size = $iWidth / $aDisplay[0][0], $x, $y
    $aCoord = $aDisplay
    While 1
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    For $i = 1 To UBound($aDisplay) - 1
    $x = $W2 - $aDisplay[0][0] * $size / 2 + $aDisplay[$i][0] * $size
    $y = $H2 - $aDisplay[0][1] * $size / 2 + $aDisplay[$i][1] * $size
    $aCoord[$i][0] = $x
    $aCoord[$i][1] = $y
    $aCoord[$i][2] = $aDisplay[$i][2]
    $aCoord[$i][3] = $aDisplay[$i][3]
    $aCoord[$i][4] = $aDisplay[$i][4]
    $aCoord[$i][5] = $aDisplay[$i][5]
    _GDIPlus_BrushSetSolidColor($hBrush, $aDisplay[$i][4])
    _GDIPlus_GraphicsFillRect($hBuffer, $x, $y, $bs, $bs, $hBrush)
    Next
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $iWidth, $iHeight)
    $size -= $s
    If $size <= 0 Then
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $iWidth, $iHeight)
    ExitLoop
    EndIf
    WEnd
    _GDIPlus_BrushDispose($hBrushClear)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Text_Zoom_Out2($aDisplay, $s = 1.15 , $bs = 2, $size = 0, $clear = 0xFF000000)
    Local $hBrushClear = _GDIPlus_BrushCreateSolid($clear)
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    Local $x, $y
    If Not $size Then $size = $iWidth / $aDisplay[0][0]
    Local $max_zoom = ($iWidth - $aDisplay[0][0]) / 3
    $aCoord = $aDisplay
    While 1
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    For $i = 1 To UBound($aDisplay) - 1
    $x = $W2 - $aDisplay[0][0] * $size / 2 + $aDisplay[$i][0] * $size
    $y = $H2 - $aDisplay[0][1] * $size / 2 + $aDisplay[$i][1] * $size
    $aCoord[$i][0] = $x
    $aCoord[$i][1] = $y
    $aCoord[$i][2] = $aDisplay[$i][2]
    $aCoord[$i][3] = $aDisplay[$i][3]
    $aCoord[$i][4] = $aDisplay[$i][4]
    $aCoord[$i][5] = $aDisplay[$i][5]
    _GDIPlus_BrushSetSolidColor($hBrush, $aDisplay[$i][4])
    _GDIPlus_GraphicsFillRect($hBuffer, $x, $y, $bs * $size / 4, $bs * $size / 4, $hBrush)
    Next
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $iWidth, $iHeight)
    $size *= $s
    If $size > $max_zoom Then
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $iWidth, $iHeight)
    ExitLoop
    EndIf
    WEnd
    _GDIPlus_BrushDispose($hBrushClear)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Text_Explosion($aCoord, $color = 0, $bs = 2, $clear = 0xFF000000)
    Local $hBrushClear = _GDIPlus_BrushCreateSolid($clear)
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    Local $pixels = UBound($aCoord)
    Local $i, $t, $c = 0
    While 1
    For $i = 1 To UBound($aCoord) - 1
    If Not $aCoord[$i][5] Then
    $aCoord[$i][0] += $aCoord[$i][2]
    $aCoord[$i][1] += $aCoord[$i][3]
    If ($aCoord[$i][0] > -$speed And $aCoord[$i][0] < $iWidth + $speed) And ($aCoord[$i][1] > -$speed And $aCoord[$i][1] < $iHeight + $speed) Then
    If $color Then _GDIPlus_BrushSetSolidColor($hBrush, $aCoord[$i][4])
    _GDIPlus_GraphicsFillRect($hBuffer, $aCoord[$i][0], $aCoord[$i][1], $bs, $bs, $hBrush)
    ;~ _GDIPlus_GraphicsFillEllipse($hBuffer, $aCoord[$i][0], $aCoord[$i][1], $bs, $bs, $hBrush)
    Else
    $aCoord[$i][5] = 1
    EndIf
    EndIf
    $c += $aCoord[$i][5]
    Next
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $iWidth, $iHeight)
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    If $c > $pixels - 2 Then
    ExitLoop
    Else
    $c = 0
    EndIf
    WEnd
    _GDIPlus_BrushDispose($hBrushClear)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Text_Explosion2($aCoord, $color = 0, $bs = 2, $clear = 0xFF000000, $timer = 25)
    Local $hBrushClear = _GDIPlus_BrushCreateSolid($clear)
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    Local $pixels = UBound($aCoord)
    Local $i, $j = 0, $t, $c = 0
    _ArraySort($aCoord, Random(0, 1, 1), 0, 0, 0)
    $t = TimerInit()
    While 1
    For $i = 1 To UBound($aCoord) - 1
    If Not $aCoord[$i][6] Then
    $aCoord[$i][0] += $aCoord[$i][2]
    $aCoord[$i][1] += $aCoord[$i][3]
    EndIf
    If ($aCoord[$i][0] > -$speed And $aCoord[$i][0] < $iWidth + $speed) And ($aCoord[$i][1] > -$speed And $aCoord[$i][1] < $iHeight + $speed) Then
    If $color Then _GDIPlus_BrushSetSolidColor($hBrush, $aCoord[$i][4])
    _GDIPlus_GraphicsFillRect($hBuffer, $aCoord[$i][0], $aCoord[$i][1], $bs, $bs, $hBrush)
    Else
    $aCoord[$i][5] = 1
    EndIf
    $c += $aCoord[$i][5]
    If TimerDiff($t) > $timer And $j < UBound($aCoord) Then
    $aCoord[$j][6] = 0
    $j += 1
    $t = TimerInit()
    EndIf
    Next
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $iWidth, $iHeight)
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    If $c > $pixels - 3 Then
    ExitLoop
    Else
    $c = 0
    EndIf
    WEnd
    _GDIPlus_BrushDispose($hBrushClear)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Text_Implosion($aCoord, $color = 0, $bs = 2, $implode_factor = 30, $clear = 0xFF000000)
    Local $scale = $iWidth / $aCoord[0][0]
    Local $hBrushClear = _GDIPlus_BrushCreateSolid($clear)
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    Local $pixels = UBound($aCoord)
    Local $i, $t

    [/autoit] [autoit][/autoit] [autoit]

    While $t < $implode_factor
    For $i = 1 To UBound($aCoord) - 1
    $aCoord[$i][7] -= $aCoord[$i][2]
    $aCoord[$i][8] -= $aCoord[$i][3]
    If $color Then _GDIPlus_BrushSetSolidColor($hBrush, $aCoord[$i][4])
    $x = $W2 - $aCoord[0][0] * $scale / 2 + $aCoord[$i][7] * $scale
    $y = $H2 - $aCoord[0][1] * $scale / 2 + $aCoord[$i][8] * $scale
    _GDIPlus_GraphicsFillRect($hBuffer, $x, $y, $bs, $bs, $hBrush)
    Next
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $iWidth, $iHeight)
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    $t += 1
    WEnd
    _GDIPlus_BrushDispose($hBrushClear)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Morph($aDisplayA, $aDisplayB, $bs = 2, $color = 0, $clear = 0xFF000000, $shuffle = 1)
    Local $aMorphA[1][11], $aMorphB[1][11] ;x1,y1,px,py,x2,y2,color1,color2, delta_c_r, delta_c_g, delta_c_b
    Local $diff = UBound($aDisplayA) - UBound($aDisplayB)
    Switch $diff
    Case $diff > 0
    ReDim $aMorphA[UBound($aDisplayA)][11]
    ReDim $aMorphB[UBound($aDisplayA)][11]
    Case $diff < 0
    ReDim $aMorphA[UBound($aDisplayB)][11]
    ReDim $aMorphB[UBound($aDisplayB)][11]
    Case $diff = 0
    ReDim $aMorphA[UBound($aDisplayA)][11]
    ReDim $aMorphB[UBound($aDisplayB)][11]
    EndSwitch
    Local $c_aDisplayB = $aDisplayB
    If $shuffle Then Shuffel_Array($c_aDisplayB)
    Calculate_Morph($aMorphA, $aMorphB, $aDisplayA, $c_aDisplayB, $diff)
    Local $hBrushClear = _GDIPlus_BrushCreateSolid($clear)
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    Local $pixels = UBound($aMorphA)
    Local $i, $f, $c = 0, $test, $mBrush[3]

    [/autoit] [autoit][/autoit] [autoit]

    While $c < $morph_steps
    For $i = 1 To UBound($aMorphA) - 1
    $aMorphA[$i][0] += $aMorphA[$i][2]
    $aMorphA[$i][1] += $aMorphA[$i][3]
    If $color Then
    $mBrush[0] = "0x" & StringMid(Hex($aMorphA[$i][6]), 3, 2)
    $mBrush[1] = "0x" & StringMid(Hex($aMorphA[$i][6]), 5, 2)
    $mBrush[2] = "0x" & StringMid(Hex($aMorphA[$i][6]), 7, 2)
    $mBrush[0] += $aMorphA[$i][8]
    $mBrush[1] += $aMorphA[$i][9]
    $mBrush[2] += $aMorphA[$i][10]
    $f = "0xFF" & Hex(Max(0, $mBrush[0]), 2) & Hex(Max(0, $mBrush[1]), 2) & Hex(Max(0, $mBrush[2]), 2)
    _GDIPlus_BrushSetSolidColor($hBrush, $f)
    $aMorphA[$i][6] = $f
    Else
    _GDIPlus_BrushSetSolidColor($hBrush, $aMorphA[$i][6])
    EndIf
    _GDIPlus_GraphicsFillRect($hBuffer, $aMorphA[$i][0], $aMorphA[$i][1], $bs, $bs, $hBrush)
    Next
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $iWidth, $iHeight)
    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iWidth, $iHeight, $hBrushClear)
    $c += 1
    WEnd
    _GDIPlus_BrushDispose($hBrushClear)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Gen_Pixel_Coordinates($hGraphics, $text, $details = 3, $fSize = 40, $fStyle = 0, $color = 0, $pixelC = 0xFFFFFFFF, $random = 1, $speed = 7, $mode = 1, $fFamily = "Arial")
    Local $aCoords, $pcolor, $e = 2.71828182845904523536
    If $details < 1 Then $details = 3
    If $fStyle < -1 Or $fStyle > 15 Then $fStyle = 0

    [/autoit] [autoit][/autoit] [autoit]

    Local $x, $y, $bcolor[3],$RedM = 1, $BlueM = 1.25, $GreenM = 1.50, $index = Random(0, 100)
    Local $iWidth = 2.5 * $fSize, $iHeight = $fSize * 1.05, $implode_factor = $fSize * 1.75

    [/autoit] [autoit][/autoit] [autoit]

    Local $hFormat = _GDIPlus_StringFormatCreate()
    Local $hFamily = _GDIPlus_FontFamilyCreate($fFamily)
    Local $hFont = _GDIPlus_FontCreate($hFamily, $fSize, $fStyle, 2)
    Local $tLayout = _GDIPlus_RectFCreate(2, 0, 0, 0)
    Local $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, $text, $hFont, $tLayout, $hFormat)

    [/autoit] [autoit][/autoit] [autoit]

    Local $iW = Floor(DllStructGetData($aInfo[0], "Width"))
    Local $iH = Floor(DllStructGetData($aInfo[0], "Height"))
    Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($iW, $iH, $hGraphics)
    Local $hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsClear($hBuffer, 0xFFFFFFFF)

    [/autoit] [autoit][/autoit] [autoit]

    If $fStyle > -1 Then
    Local $hBrush = _GDIPlus_BrushCreateSolid(0xFF000000)
    _GDIPlus_GraphicsDrawStringEx($hBuffer, $text, $hFont, $aInfo[0], $hFormat, $hBrush)
    _GDIPlus_BrushDispose($hBrush)
    Else ;generate outlined font
    Local $hPath = _GDIPlus_PathCreate()
    _GDIPlus_PathAddString($hPath, $text, $tLayout, $hFamily, 0, $fSize, $hFormat)
    $aCoords = _GDIPlus_PathGetData($hPath)
    Local $hPen = _GDIPlus_PenCreate(0xFF000000)
    $aCoords = _GDIPlus_PathGetData($hPath)
    _GDIPlus_GraphicsDrawPath($hBuffer, $hPath, $hPen)
    _GDIPlus_PathDispose($hPath)
    _GDIPlus_PenDispose($hPen)
    EndIf
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_StringFormatDispose($hFormat)

    [/autoit] [autoit][/autoit] [autoit]

    Local $PixelData
    Local $BitmapData = _GDIPlus_BitmapLockBits($hBitmap, 0, 0, $iW, $iH, $GDIP_ILMREAD, $GDIP_PXF32ARGB)
    Local $Stride = DllStructGetData($BitmapData, "Stride")
    Local $Scan0 = DllStructGetData($BitmapData, "Scan0")
    Local $aCoords[2][9] ;x,y,px,py,pixel color,check1,check2,implodex, implodey
    $aCoords[0][0] = $iW
    $aCoords[0][1] = $iH
    If $color = 2 Then _GDIPlus_GraphicsDrawImageRect($hContext, $hMem_Image, 0, 0, $iW, $iH)
    Local $z = 1
    For $y = 0 To $iH - 1 Step $details ;get coordinates of black pixels and save it to an array
    For $x = 0 To $iW - 1 Step $details
    $PixelData = DllStructCreate("dword", $Scan0 + ($y * $Stride) + ($x * 4))
    $pcolor = DllStructGetData($PixelData, 1)
    If Hex($pcolor) <> "FFFFFFFF" Then
    ReDim $aCoords[$z + 1][9]
    $aCoords[$z][0] = $x
    $aCoords[$z][1] = $y
    If $random And $speed Then
    Switch $mode
    Case 1
    $aCoords[$z][2] = _Random(-$speed, $speed, -1.5, 1.5) ;generate random px for pixel movement
    $aCoords[$z][3] = _Random(-$speed, $speed, -1.5, 1.5) ;generate random py for pixel movement
    Case 3
    $aCoords[$z][2] = 8 + Cos($x * $y)
    $aCoords[$z][3] = Sin($x / 16) * 8
    Case 4
    $aCoords[$z][2] = -$x * Sin($x ^ (1 / $y)) / 4
    $aCoords[$z][3] = Cos($x * $y) * 5.25
    Case 5
    $aCoords[$z][2] = 0
    $aCoords[$z][3] = 2 + ATan($x / 0x40) * 0x10
    Case 6
    $aCoords[$z][2] = -Sqrt($y)
    $aCoords[$z][3] = Sqrt($x) * -1.5
    Case 7
    $aCoords[$z][2] = Max($speed, ($y * $z) / $y * Cos($x * 4096))
    $aCoords[$z][3] = Max($speed, Sin($y / $x) * 6)
    Case 8
    $aCoords[$z][2] = 8 + Cos($x * $z) * 5.25
    $aCoords[$z][3] = 11 + $x * Sin($x ^ (1 / ($z / $x))) / Random(8, 128, 1)
    Case 9
    $aCoords[$z][2] = Cos(Sqrt($e * $x) / 4) * 6
    $aCoords[$z][3] = Sin(-Sqrt($e * $x) / 4) * 4
    Case 2
    $aCoords[$z][2] = Cos(Sqrt($e * $x) / 4) * 6
    $aCoords[$z][3] = Sin(-Sqrt($e * $x) / 4) * 4

    [/autoit] [autoit][/autoit] [autoit]

    EndSwitch
    EndIf
    Switch $color
    Case 0
    $aCoords[$z][4] = 0xF0FFFFFF
    Case 1
    $aCoords[$z][4] = Random(0xFF111111, 0xFFFFFFFF, 1) ;generate random colors
    Case 2
    $aCoords[$z][4] = "0x" & Hex(_GDIPlus_BitmapGetPixel($hMem_Image_Bmp, $x, $y))
    Case 3
    $aCoords[$z][4] = $pixelC
    Case 4
    $bcolor[0] = 0xFF * ((Sin($index * $RedM) + 1) / 2)
    $bcolor[1] = 0xFF * ((Sin($index * $GreenM) + 1) / 2)
    $bcolor[2] = 0xFF * ((Cos($index * $BlueM) + 1) / 2)
    $aCoords[$z][4] = "0xD0" & Hex(_ColorSetRGB($bcolor), 6)
    $index += 0.005
    EndSwitch
    $aCoords[$z][6] = 1
    $aCoords[$z][7] = $aCoords[$z][0] + ($aCoords[$z][2] * $implode_factor)
    $aCoords[$z][8] = $aCoords[$z][1] + ($aCoords[$z][3] * $implode_factor)
    $z += 1
    EndIf
    Next
    Next
    _GDIPlus_BitmapUnlockBits($hBitmap, $BitmapData)
    $PixelData = 0
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_GraphicsDispose($hBuffer)
    Return $aCoords
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Calculate_Morph(ByRef $aM1, ByRef $aM2, $aD1, $aD2, $diff)
    Local $i, $r
    Local $scaleA = $iWidth / $aD1[0][0]
    Local $scaleB = $iWidth / $aD2[0][0]
    For $i = 1 To UBound($aM1) - Abs($diff) - 1
    $x = $W2 - $aD1[0][0] * $scaleA / 2 + $aD1[$i][0] * $scaleA
    $y = $H2 - $aD1[0][1] * $scaleA / 2 + $aD1[$i][1] * $scaleA
    $aM1[$i][0] = $x
    $aM1[$i][1] = $y

    [/autoit] [autoit][/autoit] [autoit]

    $x = $W2 - $aD2[0][0] * $scaleB / 2 + $aD2[$i][0] * $scaleB
    $y = $H2 - $aD2[0][1] * $scaleB / 2 + $aD2[$i][1] * $scaleB
    $aM1[$i][4] = $x
    $aM1[$i][5] = $y

    [/autoit] [autoit][/autoit] [autoit]

    $aM1[$i][2] = ($aM1[$i][4] - $aM1[$i][0]) / $morph_steps
    $aM1[$i][3] = ($aM1[$i][5] - $aM1[$i][1]) / $morph_steps
    $aM1[$i][6] = $aD1[$i][4]
    $aM1[$i][7] = $aD2[$i][4]
    Delta_Color($aM1, $i)
    Next
    If $diff < 0 Then
    For $i = UBound($aM1) - Abs($diff) - 1 To UBound($aM1) - 1
    $r = Random(1, UBound($aD1) - Abs($diff) - 3, 1)

    [/autoit] [autoit][/autoit] [autoit]

    $x = $W2 - $aD1[0][0] * $scaleA / 2 + $aD1[$r][0] * $scaleA
    $y = $H2 - $aD1[0][1] * $scaleA / 2 + $aD1[$r][1] * $scaleA
    $aM1[$i][0] = $x
    $aM1[$i][1] = $y

    [/autoit] [autoit][/autoit] [autoit]

    $x = $W2 - $aD2[0][0] * $scaleB / 2 + $aD2[$i][0] * $scaleB
    $y = $H2 - $aD2[0][1] * $scaleB / 2 + $aD2[$i][1] * $scaleB
    $aM1[$i][4] = $x
    $aM1[$i][5] = $y

    [/autoit] [autoit][/autoit] [autoit]

    $aM1[$i][2] = ($aM1[$i][4] - $aM1[$i][0]) / $morph_steps
    $aM1[$i][3] = ($aM1[$i][5] - $aM1[$i][1]) / $morph_steps
    $aM1[$i][6] = $aD1[$r][4]
    $aM1[$i][7] = $aD2[$i][4]
    Delta_Color($aM1, $i)
    Next
    ElseIf $diff > 0 Then
    For $i = UBound($aM1) - Abs($diff) - 1 To UBound($aM1) - 1
    $r = Random(1, UBound($aD2) - Abs($diff) - 3, 1)

    [/autoit] [autoit][/autoit] [autoit]

    $x = $W2 - $aD1[0][0] * $scaleA / 2 + $aD1[$i][0] * $scaleA
    $y = $H2 - $aD1[0][1] * $scaleA / 2 + $aD1[$i][1] * $scaleA
    $aM1[$i][0] = $x
    $aM1[$i][1] = $y

    [/autoit] [autoit][/autoit] [autoit]

    $x = $W2 - $aD2[0][0] * $scaleB / 2 + $aD2[$r][0] * $scaleB
    $y = $H2 - $aD2[0][1] * $scaleB / 2 + $aD2[$r][1] * $scaleB
    $aM1[$i][4] = $x
    $aM1[$i][5] = $y

    [/autoit] [autoit][/autoit] [autoit]

    $aM1[$i][2] = ($aM1[$i][4] - $aM1[$i][0]) / $morph_steps
    $aM1[$i][3] = ($aM1[$i][5] - $aM1[$i][1]) / $morph_steps
    $aM1[$i][6] = $aD1[$i][4]
    $aM1[$i][7] = $aD2[$r][4]
    Delta_Color($aM1, $i)
    Next
    EndIf
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Delta_Color(ByRef $aC1, $i)
    Local $mBrushA[3], $mBrushB[3]
    $mBrushA[0] = "0x" & StringMid(Hex($aC1[$i][6]), 3, 2)
    $mBrushA[1] = "0x" & StringMid(Hex($aC1[$i][6]), 5, 2)
    $mBrushA[2] = "0x" & StringMid(Hex($aC1[$i][6]), 7, 2)

    [/autoit] [autoit][/autoit] [autoit]

    $mBrushB[0] = "0x" & StringMid(Hex($aC1[$i][7]), 3, 2)
    $mBrushB[1] = "0x" & StringMid(Hex($aC1[$i][7]), 5, 2)
    $mBrushB[2] = "0x" & StringMid(Hex($aC1[$i][7]), 7, 2)

    [/autoit] [autoit][/autoit] [autoit]

    $aC1[$i][8] = ($mBrushB[0] - $mBrushA[0]) / $morph_steps
    $aC1[$i][9] = ($mBrushB[1] - $mBrushA[1]) / $morph_steps
    $aC1[$i][10] = ($mBrushB[2] - $mBrushA[2]) / $morph_steps
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Shuffel_Array(ByRef $array)
    Local $temp[1][9], $x, $y, $random
    Local $elements = UBound($array) - 1
    For $x = 1 To $elements
    For $y = 0 To 8
    $temp[0][$y] = $array[$x][$y]
    Next
    While 1
    $random = Random($x - 1, $elements, 1)
    If $random > 0 Then ExitLoop
    WEnd
    For $y = 0 To 8
    $array[$x][$y] = $array[$random][$y]
    Next
    For $y = 0 To 8
    $array[$random][$y] = $temp[0][$y]
    Next
    Next
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Max($a, $b)
    If $a > $b Then Return $a
    Return $b
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _Random($min, $max, $emin, $emax, $int = 0)
    Local $r1 = Random($min, $emin, $int)
    Local $r2 = Random($emax, $max, $int)
    If Random(0, 1, 1) Then
    Return $r1
    Else
    Return $r2
    EndIf
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func GetOrder($F_SongHandle)
    Local $F_Getorder = DllCall($F_dll, "long", "_FMUSIC_GetOrder@4", _
    "long", $F_SongHandle)
    Return $F_Getorder[0]
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func FPS()
    WinSetTitle($hGUI, "", $GUI_title & $fps)
    $fps = 0
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _Exit()
    Local $i, $steps
    _GDIPlus_GraphicsDispose($hContext)
    _GDIPlus_BitmapDispose ($hMem_Image_Bmp)
    _GDIPlus_ImageDispose($hMem_Image)
    _GDIPlus_BrushDispose($hBrush)
    _GDIPlus_GraphicsDispose($hBuffer)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_GraphicsDispose($hGraphics)
    _GDIPlus_Shutdown()
    If @OSBuild < 6000 Then
    $steps = -1
    Else
    $steps = -0.05
    EndIf
    For $i = 255 To 0 Step $steps
    WinSetTrans($hGUI, "", $i)
    If $playsound Then
    DllCall($F_dll, "long", "_FMUSIC_SetMasterVolume@8", _
    "long", $mod, _
    "long", $i * 0.390625)
    EndIf
    Next
    GUIDelete($hGui)
    If $playsound Then
    DllCall($F_dll, "long", "_FMUSIC_StopSong@4", _
    "long", $mod)
    DllCall($F_dll, "long", "_FSOUND_Close@0")
    DllClose($F_dll)
    EndIf
    Exit
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Load_BMP_From_Mem($pic) ;coded by UEZ - thanks to progandy form the MemGlobalAlloc lines
    Local $memBitmap, $len, $tMem, $hImage, $hData, $pData
    $memBitmap = Binary($pic) ;load image saved in variable (memory) and convert it to binary
    $len = BinaryLen($memBitmap) ;get length of image

    [/autoit] [autoit][/autoit] [autoit]

    $hData = _MemGlobalAlloc($len, $GMEM_MOVEABLE) ;allocates movable memory ($GMEM_MOVEABLE = 0x0002)
    $pData = _MemGlobalLock($hData) ;translate the handle into a pointer
    $tMem = DllStructCreate("byte[" & $len & "]", $pData) ;create struct
    DllStructSetData($tMem, 1, $memBitmap) ;fill struct with image data
    _MemGlobalUnlock($hData) ;decrements the lock count associated with a memory object that was allocated with GMEM_MOVEABLE

    [/autoit] [autoit][/autoit] [autoit]

    $hStream = _WinAPI_CreateStreamOnHGlobal($pData) ;Creates a stream object that uses an HGLOBAL memory handle to store the stream contents
    $hBitmapFromStream = _GDIPlus_BitmapCreateFromStream($hStream) ;Creates a Bitmap object based on an IStream COM interface
    $tMem = ""
    Return $hBitmapFromStream
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Mem_Image($save = 0)
    Local $DllBinary = '0xFFD8FFE000104A46494600010101004800480000FFDB0043000302020302020303030304030304050805050404050A070706080C0A0C0C0B0A0B0B0D0E12100D0E110E0B0B1016101113141515150C'
    $DllBinary &= '0F171816141812141514FFDB00430103040405040509050509140D0B0D1414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414FF'
    $DllBinary &= 'C2001108007800D403012200021101031101FFC4001C0000000701010000000000000000000000000102030405060708FFC4001A010002030101000000000000000000000001020003040506FFDA000C'
    $DllBinary &= '03010002100310000001E44A52F81D26D4B12254144105182D9B9600D59F70EB562F0AE87D1936AE2276A0C8C1F2FF0046244F1A53FB0382A1E704B4D4E49589104E09190E8757D64AADC198912A2390'
    $DllBinary &= '9CB0F47D89CFFB8C82B8182048045000048088A415361108E73C73D0FC55073D25A69B0800A4800C259815BA8054899F0BB532F51BB6C6AADD0D998A4957C935AA0AC65D7BF92952689BAA970C968D32'
    $DllBinary &= '2614C6193CE586F42F08CEF04CC517201891F534B05C3474EA9B3BDEC54F9CE9EC6AB0BCCFBF87BF52F98A175B9FD8B9BD46C1ABCF6E2BBAC939A953D20E874D94B22DAF8B18111CEDA88AD5F0CEFDCA'
    $DllBinary &= '6B3CDC1A726920048168935B6FFA8E6B2BE3BD3E8F1B61634E8851A5C7EDF26BCAE86EC54378CC8D95EF6D69F4BD1C19EADDE4333269D3D84185B55662CA6EEDEADB826E0F6F89239C564B8783590210'
    $DllBinary &= 'BF794B63875E9F3C8CFF0033A7ACAFCECEDD80E63EBDD89C9EF6F77E57F4D5623DF5ED2684996E32E0312B2FA1119CCB742CB594E3EDAA340046C7EF32D657CD69ABDDC3AE4002BB27BB1D745925B971'
    $DllBinary &= '29B16923D14DCE9FA4D3EDCFCF3A3696EEC1516960B0F0DC92911C65E890BCC326C22D6DFB0C9534D7164532782BAE7F6D1CEF373A9CB598AC096748581C9DCF18020BF02CAFD0000E965B8740AED94B'
    $DllBinary &= '015DA820295B6008E240755C101EBC9E8807AF88E20074C42400D000047FFFC40029100002020202010402020203000000000002030104000511120610131420212207301523314142FFDA0008010100'
    $DllBinary &= '010502E338CE3E9C7D4564C9D1F803EE0AFC0B5218AF0BD42C19E31AE24AFC2352A8F22F0DB4836E9EFA03EDC6719C6719C7DE96B6CEC59A9FE3CFD69EB2A6BFD79FA6CB47576D9E45A8AFAF9FBC7DD6'
    $DllBinary &= '04D3D178131B35EBAAA2BEB13E9CFA5AD5D3B85B4F06A0ECD9E90B5ECFEBA1ACB3B3778FF89D6D247D39CE7E9CF185333920D9CD8A7612BDCAF62533FD5468BB63674FA9569E8F3F4E7D24BAE772C8C9'
    $DllBinary &= '2C9900CF901392F1C9389CB0532AF23A82B67F4FF1ED588212ED9CE739CC67E71D7549C6ED57D67623DE3650BC5DD26605A964FB60DC8504631A2ACEEB2C640CC6D682AC2ED23E3BFEFA7F1FB3B89D76'
    $DllBinary &= 'B17ABA6BB22A4B376A5C9EF92A09F37A119BBFE4636116DEF6CF1575C47ACF94CC917D7C4BED12A919AB12761C51118F533828B08C55A5B8B6DAE272ECB66DFDFC7FC526D89DCAD483E70BB1DB12E768'
    $DllBinary &= 'F371352D398A06C2A34465B43C67FC433C7B587B5D9D95F567B3FAD7FF005C9DA35E236B19072D11B6C56433BC5AAC0F9179C67916BFE49CCF33E9CFA78AE946DB2EECBB4DBE2EAEBF8F48378256457C'
    $DllBinary &= '8AA059F0862235EAB5957C5F58BCAD5D5098A6023695EE4C506C6077233710E0ADE6529B0C11F955257B307C5A565BBC50DBC102EF54AA5CC278D2A8DBDCCA1BDB1B646625B190C599B5691C1B34A30E'
    $DllBinary &= '572414DF6228D368C7E5782C29878C1E07B4190B830BDAD671C5D5125E6D5C304C8B9F66CC2F6D5EC1C917AEA7F16ED5BED84DFC8DB15C3F76339F25ACC5D8FD2B3A04FE53257A8145C513C9A35D22B8'
    $DllBinary &= '5CFE072540C12AAA2C2A66889B16206DEF15D876A067FB581EC513BB12AE57CC2CCFA71954BACB1B8C74997C236CAEA02F153D71F5E0728C8E6B656733AAEB092B55F2A6C05F8B1C828F49FDB08FACBD'
    $DllBinary &= '62D8B7595722759F11B59111162BF617941A0D8DAAC1B007EA33D663F6C8881F5D4EB5BB6B9E435175D94B5CDE357AB985A0279504707500852B95E4C76C99E260E71C1EE4187E2CA25A095FBE9620E9'
    $DllBinary &= '3AD5981CDF41FB3B2E1F250632369D11CE7389E097E911CCE8B583A5D6BE97C9B35E842935D502B48444F4E267F0227139385C1E0F69CEFD67FEDC106B5B0A32E571BB561C5B5ADB5D89D575D3351C36'
    $DllBinary &= '73DEE3D23E9A0A7F3F6B71BD06AA6151338312311F89E79CFF00CF5900537BE3624640FB0B7FE13C1009F5B572C7F8DB31742A33C82E9E93CCB717637E8F72559ED83E0D5D4BFFC40024110001030402'
    $DllBinary &= '02020300000000000000000100021103041021122031411314223033FFDA0008010301013F01EB388C4FE89EF3D8F4E4A54E0A61F5D002E30151B427655CD2F8DE56D7E45428E8D3BC8DE950B56D112E'
    $DllBinary &= 'F2AA31AFDAAF4793A7D2FAAD27CA7DA7013CB2720EF36FFD5A4AB8B9DA37750E827D5705CB9207251C4C26911869832AA19387BA501D4AF28A985CF2F30303A1457B519FFFC400251100010402020103'
    $DllBinary &= '050000000000000000010002031104101221203041510513223132FFDA0008010201013F01F10D28342A0A822DF400B4057939A3C9A2CEE952A55B7B6BBF091ED8DBC9CB2BEA07F4D581399206724085'
    $DllBinary &= 'C9A15ABF09075B2685953E44996E35FCA8DD243F802A0C8E2CAF7432DDECDB51E4F335C7636458E91D64F71382C7C6F8430E21D9ED47034F6836956C21AAB4F69BD3858A510A04698CE23D00A97DB1F1'
    $DllBinary &= 'B8C5BBBD9DB50F0B2BFFC4003E10000103010503080706060300000000000100020311122131415104226110132032526271912330334281D1E114537282A1B105244373C1F0404463FFDA0008010100'
    $DllBinary &= '063F02F5746B4B8E810976E71D963CA31D73F242AC924FC4F45BF66B75CDCE355CDB766642DCF9B68A9F8ABB67B4757B89465D96164B1690B687CAA517C9B14F1B066E8C8FF85636685D33BBAADFF109'
    $DllBinary &= '68EFBB84FEE51FB36CF1C35C4B463D3FE65AE900C1B6A89CD60D92170F75BB4BA47F953D78631A5CE75C00CD366FE2279B8FEE0758F8E88450C6D8A31835A29EAAD4FB2C52BBB4F602517C264D95DDC1'
    $DllBinary &= '6DBE49C19B443B5347DDBB7878B71F5822D9E32F3AE4136477A7DAFEF4E5E1EAEE5F544437FF006E4B2E5FCD46E900C39F651DF039F9FAB641036D3DC99B3C62F1D67768FA8C95EB82AB881E2AEBD60B'
    $DllBinary &= '309C316AB6C6474ED35B60FC461E5EAB6B948BC06D0F9A3D13591A29C57B460F12A8257B8F7705BD4693AE2AAE361BDEC56EB458D71557342B96F0BB92E25A51A35A1D2764EEC9F54E656B4D7D455839'
    $DllBinary &= 'B841BE5761F0D5185A6D54D5CED51E192BEB5C382B4F959F951B4FB34CE89D16C16BFB9920DFB6199CDBC30E48738F79783421CE42C9FB331D9935253847380FF7A4CD6E5800E4E179F8AA16991DA5F4'
    $DllBinary &= '5BD1B18CFD550B5563791C0AB5D70ACFB3953CC346CC7167B92FD78A732516769676B177D7F7E9B769DB6B1C18B63CDFF44D8ED36268170C912CDA059E053C037F6C2361EFB2156A56A9F04E4465FD57'
    $DllBinary &= '9C11DAF6C9D8C89A2EE2A6DA79A3CC5BA8A842C0AE8AC88CF89C4ADE6823C95B6DEDD2A8020B7E0BD13CD7885E91B45561BF441DEC661E48C2FEBE8E4EDA62043DB74919C42AF47ED7B40F411F55A7DF'
    $DllBinary &= '3F258A2DAE54F156B62DACB40C627A2C237B8AABCAA5C10A5927F54DE78160ED055748E2E1A513236523A0C1ADAA6995E7C095501EFEEB4555A7B694F742B9C3E0A8D06FD5A102C940FC2550CE1C75CD'
    $DllBinary &= '56F72E6E66963B8A02D6EFBAE461DA2AD95BBBCE373191F9792760D39818788E1D063062E3451C11DCD6B68A8AA4DDA2176F64E1715BCEB5C6AACB2F3A36F281964647E2EFF4FE8B726D983B8827E4AA'
    $DllBinary &= '65807E1AFCD5613338E458DB2D1E3AADF9BC7243D09957B2B1F042A4846AEF8855C41F782AECE6CB97A473BC975839737330B1D914E68F483F7FAA2DFF00B11DCD3A8D16F7585C7A01DD9154792AE700'
    $DllBinary &= '1523DF3C16F389E0151CF753B22E0BD89929905516C49C0609933EF93BF7A74778ADD565C41589B7DE57AC95080A8636F92F426ED15F11FCA8B266189FDE6AA168A6AD5BB2DAE051A6ECADC5BDA086D7'
    $DllBinary &= '0DC1D7DDAAE7DA2CB8F5DBFE7A0E5C55197F15579F3BD6AA9914D34A05BC383916497917DBD4275877354EA91A2ACACB7FFA477AB258E6FE2571A8E5E2B8E8AA0D9764518A76D99060516BD976AB7779'
    $DllBinary &= 'BA6610ED36F054F04D76BF3462937AC958F409575DCAD822FCCED0210417868A57541E3DD5CE6792A52E57854A72D150E2AA3157754DC468856F7B7028091A986B79C78A8DF831D71EE94E961BB6880F'
    $DllBinary &= 'D7F64278BD9BB2CD8B8EA161CAFD69CB45ACF20B4F3FE1134A9CD1BB14074885476233E4A8EA9478223F5088CF169D0ADAF61B5CCED4D169BE3550996AC8E78EC3E9D68DE0FCEBFAA918C1E8C9AB4B70'
    $DllBinary &= 'A154372BC74A18E9568369DE0AE435C5594EAA1C841BD5CACB9542055791CDAE215AFE867DD51071F453DCD7655511FE8BE968774DC9AE1BBB5C3D76D7DA33B5E23FDCD50D5CDE2AA00AAA557FFFC400'
    $DllBinary &= '271001000201030304020301000000000000010011213141516171911081A1B1D1E120C1F0F1FFDA0008010100013F213D022A540F454AF4A805C741B5899AE41E6BFDBA4CCB8DD73E2A6A325AA765ED'
    $DllBinary &= 'ED1B3A610CBB85897A3D3BD8485E497783DE8FB4CE5A13C79257F0A951F44F5012BD6A54E67E03077743DE02548884C1C21F5E61B70AD18FBBD185997E977B4303206047B9989083EF442BDE24AFE350'
    $DllBinary &= '4254A81E9713C353DAB89B960B7CA3E99ED364D090FE2E3D06A7444B67FD60E032DCF72FF63C31810E683BC61F32BF884095EB51D9B41E4F2EDBF860505190C749DBBEBF51FE0894E634FA31235081E7'
    $DllBinary &= '6C29B4F68B8515AFD80CA760DA63D9F85BB4D4E2A57A54A810D654A9518ABF0718B5F885AA8BDFDD5FF6951A7ADC78915DEA01B2BD88265474A8ACB8C1C7283503AA01CE9D26E15C130FC918F98A6A9F'
    $DllBinary &= 'B13C915DA5DD3D857DEBA64952A54AFE35317ED6EB9FD4D03481B5F69DA84A0FCC6DB81D49D542B237C4B74EB458BA2FA88A79FCCECB0753DB58CD02E817E220B81EE4D2A3CAD466EAF426CCF2A956CA'
    $DllBinary &= 'F7C4408ACD8439B01D26E9B1D78BDEF4841A0B65277F4AF421084AEEA42F8727FB11D1E56297F8E9D58D4BC6996203028E1C9EB2CBC65A5741AAC6EC1DDFE9B4712D92CD53C43D19647DD716126C1A78'
    $DllBinary &= 'E91391D3FC83701A296A2F9DC203629C979D4B297921FBA5909697FA441F0196C8B9F131A0DDA3F112DAA2EB6604E2DB7C9C70D5104549F41FF7DDABE8C183E96822B465CBC7C9E90014D9940E91BABF'
    $DllBinary &= '6A41BE4052521BCDD9616FCF88E52BCAE668457101FAD32ADC5C441E5EEBF67A136F08613BFB1A43BDE1D87507F714540BB73AF7829E096D0E65691C93F6C7530F0F599D8E183EAE274C39D4815A3C0C'
    $DllBinary &= 'AB868D7543C0574C23EFFDC5B548BCC17EF467A993034CC9B5D65CB840C717DB031D5E8F97DE5D0612F47793354E25D806B71D237B9C2DEC960A31835D79FA82254E6F1D609009DF47795EE4409E3C75'
    $DllBinary &= 'D6006D9C22FC76C75811E284FDC31395BF79F12FC2D51F697281C7203ED588E63F12CEFB43EAD587F72549BD5A6A5682D0E232807958596710E0D77D4AE93033DB9B2FBC395CDAD650C5DEBDF6353BC6'
    $DllBinary &= '5C09A55C1EF30445497F680AC03CA3E34385D3EFF9826B4966A4A21CE1F922F441A577067A233FEFF84EEC14CE0231DF4D96095C35819AF89800539D49AF1CF4D46177FDE6AC1EC799A1A6EE9DE5D053'
    $DllBinary &= '6429F8859E1C532E56F86650CE13585A22180FF2A2D6E2518799FD70C267576FD62CB8108CEF0EFA7F713A911BCAC43CB3217C2F32EADE4130AD8FF4C726A8E8E34DCCCA3D6AE41D554C55280C6E70F3'
    $DllBinary &= 'FEC4C1C5B59EA12FE375AEE3A343CD4C797663048751215509C4294DE78AAC572BBF6802E74D1F99794AE1FE6155A1EECBEDB2B6F98EB1F9B39ECDC3F7E608168EE7877FBEF1F4238B591AB1AB046B7B'
    $DllBinary &= '3617E21887DD69D7BD6126BB69073E426B2EFB20FC8F1D652AB6B4D4DD3FD91884B99E7E5B3C91A72983EE18F2FF00D74EB6C57ACA33210D2540470E61A6B84CEDD40971774F781B75C907503A38879E'
    $DllBinary &= 'B14ACC2985EB5FA83F9616869D3DB7E92AF2C163ACC6947D099C828C68422803A1E8B044D729A6F2C3FD1B9D6EC60882D8D66C76BE8E60B38055710D48624DED02A3FEC3D44A658E265683E60696789A'
    $DllBinary &= 'A5E6080C0D47853BCED2F03433836AFEB3ECF10252E89CBA3D9D19BEB9AE68A1D46C42BC846BC9C7535F0CB8F958653855D6125A506E837BCD25C4205AE08D4686E1F114E5072E38216532E2058A8B70'
    $DllBinary &= '46E2459082478E620D4E1E22D83CC99AAF72055CB1BAE1977E1D69B416E1AA4DC97368E0EA5A24DD7DC3140DF6B0F307F103A8FCF029CD455A5B9C1B474D35D2B98E2CE860B1C9DEBD67ADA5E082151A'
    $DllBinary &= 'B63AED009CEA3CB3481B470D515FDA50C2ED84E95325654D256429398FF345AFBE4E194E3A7233177897A646A76C5C067A9D3EEF1ACA2DB5FDDD0F79B2C703AAF0DF82106590BB21D86CE1B8A77ED384'
    $DllBinary &= '1543A21701C833FFDA000C03010002000300000010836F7B99C0352ECB90830382BB1948879FBEEADBFD58B5F30C2B06892057AB06189FF3BAE3A01DD5AE00B2768D0C294C9BDFFC0F0AFD15565E875A'
    $DllBinary &= '577BDDF16DEC72519FC64006FB0F271F7FD780FC2FBEF81741FFC400221100030100030002010500000000000000000111211031412091F0516171A1B1FFDA0008010301013F10835F069E0EBEC824D4'
    $DllBinary &= '2DC7C51948420E33E1786264E733978B0938B3B1A782566BA1B18430B9F701011F6BFC332FD1BF034EB309693623D150F052865288D9276C5FDC4655D75B19419AAFB3C4AFE7BFECB0C9F9F9E11128B9'
    $DllBinary &= '83C2885A174B874BC077EB46E051488692BDF68D9B46C8C4EF25770D1D2B1E44B86293C2134FBE288896896127283C614D8BA0AFD5F2C6B453A08EC4668CE2626D52FD88D3D8447FFFC4002411010101'
    $DllBinary &= '00020103040301000000000000010011213141105161208191F0A1B1C1E1FFDA0008010201013F1062DF5577C40EEF8258CCB192C8B0B6DB67A3D7E9CDEEC1A167D3C54667165CA1F997E80209946E7D'
    $DllBinary &= '152611C7407DBFD6741CE7FCB073224DE7C7CC2E49443231B2BA24B206E821A29EC865F8FC09F71FECE4B29F4FC433507B9C9FC6D881EFEFEF391A4C63E6CF69BDC5D9B2089E4CFCF170609CE75F82E9'
    $DllBinary &= '871E308CF12074BC7130BA41E2E0C20252D85979B60391827D1ED936EA5F421F16626C72E7C96DE1FBF79F41226733E8EA7AB904396CDE187A8EB63DEBFFC40026100100020202020202020301000000'
    $DllBinary &= '00000100112131415161817191A1B1C1F010D1F1E1FFDA0008010100013F108184381344041FFD80260468B53646FC47BDE0AB16800CAC030B45A3C051F91EC21E3688AFCB17A2A3C69BFA3A0129E297'
    $DllBinary &= 'CDC0EE2F444257D230256A6AF5C5849E312CA47E45521ECB2F8866229ADDA8542BE624037510A8DFC471FF000B94E4A807E2142A60615950278C1FCC5C5A5E05ABB5AF60B9AF9E054DA416EB068ADAF0'
    $DllBinary &= '5C2C036000764C6AF76ED62D18C04419B9694347332CC52B3B8AC4C3B59712607C08EB78B2D3C4A639037E804DF4CEFF00C0D18970205CAC711CE26E0B31368D6649747F818AEA575A00655788072E33'
    $DllBinary &= '61C0EA1AB134B328022A84F2A8E7B76CFB97C45F171CC5B2E3A82945BE621B4957B7C4DC147CCC284A28CEA85992185172F2DD1E80EA56365EE8EB3BA01CB1FF0002A6895D4B0FF1DB19FF00C9BF3FE3'
    $DllBinary &= '4808FAC55CC3AC617C270C02952D0A94AF4A52D95B90690DF11BEE5D55C06E0ED02F7570E441AD5C70609E56F82501A3C751678CE0FBA810CBD2A57E3F30487AC51C684DEEC7A4DC5414F684313D05E5'
    $DllBinary &= '83456A3A788C567118BCA4208D25B119500C34004878013EA34BE172F85EDE68038038814EDD1CB35BCB143E3CC0060C46BA75EDC11BFA563BCAE97F8B8A7809B37E5BFE2302BF043707E652CEA9D3FE'
    $DllBinary &= 'F8253F525D01AE2F331CEF253F1922FF0077950566AE5F157702AAEDEB2E7786C0C5AA311825C267CCB216D41F706E6D0AFA446B057F0FB817658D27254224ACA1E6BC4B377655ACB330A576A545F250'
    $DllBinary &= '28158B3DE068B7A96D5A20BC754865E2EB52DE9A8B79928904DD005A37EAAEAF6D7E2588DE4F422D7E9F11DA915552F1C7BCFC4420F225A1F550C255C8D43455715B1EE5CD2F197EF5048152E579C5C5'
    $DllBinary &= '9FB80E4F074F02C8A64669452FAB0EFF007868BA2A98F48915C414C598AC952C06147903207060C5B6801EA09C05D6853B25F631AFA56950602833590F532983C80669451958F5635582D06ABA5E4DC4'
    $DllBinary &= 'FEE9779E9F93FF0011743430EC197795C57119411AA5F61E5CD669D9994C562B2D212B4ACDE43E2DCF43E35580A5F79DE365BC415661E3319D5B5D18A974F04ED61CC0F385F10F257220DF0084DE73FB'
    $DllBinary &= '9DC902A9F62A1A02F753E982A1C4731F0D34C5B0E7A3E0158FC5752D4CECD8DC0FD89EA39FDF161AA56B29A085E206B429AA5CB628673AE46F1B798CDE2DCB209DC31B7C8D644DB7158325294BF70E10'
    $DllBinary &= 'B4030506A3963AB13D9836CABDBD37AD2BC965E85326237728ABB7B776DF3FB582CA56E98DB9FF00C892B0B4357FCC7305B13999281C9575755D0A811976CE96E8D5CABE29A955491C8574BA2F27261D'
    $DllBinary &= '8AFA814466840033CAAFC56EA790EC1D8B5DD73C661A183A233432DAD6CFC6A58472E871FB7C7EE058DE50699C1BF900891E15827E11F942073BA599EB64BFB9DEFC52FA510F4AEC53B86A076F5BC61A'
    $DllBinary &= 'BC00BAE474B0EC002E4C985F41B013BC125DBDFCC7CE51D9F98951AE040A1BE0F21DF29AA0C80948B428E2E2491A1159DD84AF12F3202D2B680CFC38659971571C2C16E7E3501241CA5509492C4C69C7'
    $DllBinary &= '35B369DDFF00113BFD69880CAD2D3CD301656C5BA25B8E01A457B19CBA6516EDF148AEC4AE2D28B367A23759C9C5E1014BC5517A371504F04F8B4B01D0D4B4594605E32A17EBF11AC6A271E40B4EB3BC'
    $DllBinary &= 'F10104E0A27B5E5BDB707649117EF30FFB12978535DDF59FAF52AC7A825DD5F315013B1E97FE434008458FB8E72E175AFDBAF12CD09FF662A59BD014D7586AF73C3A7561A055B6E394C7E2093969D0AA'
    $DllBinary &= 'B7C1B652A3C0C5E32BE5557CAC6C24D2DCB0F2C06BDA2E30E087A06CF163DC3968840AF25F9DBEC8F1FC968DED0151E0C4D2C38846DB140EBD350FBAA0E35A4F4FA40D642F050BE00F7DC05063F008A8'
    $DllBinary &= '814E86B5C372952DB32B6294A7C4BD7E848F4637EAAA32406D65B6F29FA894D6F2145F368FFD9946CACE93E16FEAA6A85565C1F63E236C90FE50E7EE35C929A15F80BFC4287222D67A4A7EE3810D19E8'
    $DllBinary &= '9DC7ECCBA66705E8E2F7A778AEA3B3206FE394E8EAD892A9B529A385E5BE738F46489B98CFE26BEEDDFD34BEA614AA556F72C268E6787C4C3F71B45C40C7CAB15F170E40C0A0F85DBF8894562BB65342'
    $DllBinary &= '56ED33FDB690EE1D1434D8AD2D11C62A894F6DD3B20EFC5DD271470B6E68C81429592CCB4D19DDB2F22B63D6F2C37CF9D372F6C1956C395C65970C7E573EC610D823B5199DF8808F98BF012CCC77FA99'
    $DllBinary &= '8C25356E22A1863D577ABDEB38D42A13925BAC0B9AD84A82EEC0E1BD99F518806F584DE1EE1426C63867B016D6EAFCC615430AABEE5FB5C03C00051D4BAC84341E045B8ADEDFB9411983613F71C8CD72'
    $DllBinary &= '4BA6EA730F8683CC20CE8B51FDF328D440C381F5166350A03087EE5BDDD0B02ADD735421F273285C85D9A8413B0327C1DC0A0F20F589AED4EC464E87166D68392F264E139412DEA69C17BBBBA450A29C'
    $DllBinary &= 'B09C9D2022F4C18F0F8998C75AA6FE47EBFEC057AF6D4A6616AD95CE1AEA03124653435CC0B039464F5D88FD29ED387775AE6BCC056948B77B58FA6C43F9841DD8A476577F1FB85BFD0036E1DDAFE613'
    $DllBinary &= '985D010C19E560DD8344A5273291787C894E30C680A70CC392921DDC51F5605E42FE71FCC33D3804B2A0CA65AAA31FFA8E584A8D36C667F957E8977793660B93DE71282C0B6B54A287869C7899C87B5B'
    $DllBinary &= 'A604F2693E2191E2EC4FEF571E8116BAD3FDB8E9B9BEC80A8AE1314725D4B94347C2015F86CD70FF00A6384C2BF20FAD7EA2C3FB4D01D0DEB8AF32A3EEAAA8A63B8186DCAE06CF2EA2DF852E7AE80BC4'
    $DllBinary &= '2F3980F1A6054AE0DB1D9BF962EA6B9ADB6AEBE6807560602C6240E4C4BCF502BC3B453FC40F4528BC33FC4294532E74C0EDE2050703284C1E0FDDB00CC2BF49FF00A3EA1F2EA038038F8D10D300B71B'
    $DllBinary &= 'B160E976735DC0DADC577DFEA5525957BFEFF4809C08E5E89F21B0267251325AB8FEFEC8E7500094E1A78ECE3F29620405B55CBFDFF5176D6333F24094E687385DD7DC4525D3E8BCD7C7EF6C30231DC9'
    $DllBinary &= '33B1FC29A61EC5AA02503CAE1E729965534934811CB6C169A171670CA1B8B6C54A2B20B466F5C069FF0052D929DA3FC086E2B8C8658A9B980C57E0CADFCEA33CA681ADB03D02FA94548DADAEDFBC7A96'
    $DllBinary &= '37402FCF35FAFB8E70E001AF8F895F6C53287384A586CB050734DDDEEF9FB8045675E44DE0F7550D1388AF1FCD387D3CC5AE8940F2E7F0FEFB943C1691A7933D567D8FC1A88AAB21ABC3F7300B528AF8'
    $DllBinary &= '351EFC60BCE87C956684BDAD9DF4BC366CB06B25D17782EC4F934D405578A18BDD56D0468A5E06AF52F650F7558B10725B2A185972653B6C2A08AF16BCD975C63E3128C2734CD7C771578B549EFA9FFF'
    $DllBinary &= 'D9'
    If $save Then
    $hFile = FileOpen(@ScriptDir & "\PTE_Eagle.jpg", 18)
    FileWrite($hFile, $DllBinary)
    FileClose($hFile)
    EndIf
    Return $DllBinary
    EndFunc

    [/autoit]

    Version mit ♫ Chip Sound ♬ den Link unten benutzen. ▼

    Oder hier: http://www.4shared.com/archive/YIoy9N…amples_AiO.html (mehr GDI+ Zeugs)

    Gruß,
    UEZ

    PS: bitte mal abstimmen, wie ihr zu GDI+ steht :D

  • Splashimage mit Alpha Werten

    Suchst du so was?

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    HotKeySet("{ESC}", "On_Exit")

    [/autoit] [autoit][/autoit] [autoit]

    $sPic = "c:\Program Files\AutoIt3\Examples\GUI\logo4.gif"
    $sFile = StringRight($sPic, StringLen($sPic) - StringInStr($sPic, "\", 0, -1))
    $sPath = StringLeft($sPic, StringInStr($sPic, "\", 0, -1) - 1)

    [/autoit] [autoit][/autoit] [autoit]

    $sDimensions = ""
    $oShellApp = ObjCreate("shell.application")
    If IsObj($oShellApp) Then
    Local $oDir = $oShellApp.NameSpace($sPath)
    If IsObj($oDir) Then
    Local $oFile = $oDir.Parsename($sFile)
    If IsObj($oFile) Then
    If @OSBuild > 6000 Then
    $sDimensions = $oDir.GetDetailsOf($oFile, 31)
    ElseIf @OSVersion = "WIN_XP" Then
    $sDimensions = $oDir.GetDetailsOf($oFile, 26)
    EndIf
    EndIf
    EndIf
    EndIf
    If $sDimensions = "" Then Exit MsgBox(0, "Error", "Object creation failed")

    [/autoit] [autoit][/autoit] [autoit]

    $aDimensions = StringRegExp($sDimensions, "(?i)[\d]*x*[\d]", 3)
    If Not IsArray($aDimensions) Then Exit MsgBox(0, "Error", "Cannot get image resolution!")

    [/autoit] [autoit][/autoit] [autoit]

    $hGUI = GUICreate("Splash", $aDimensions[0], $aDimensions[1], Default, Default, $WS_POPUP)
    GUICtrlCreatePic($sPic, 0, 0, $aDimensions[0], $aDimensions[1])

    [/autoit] [autoit][/autoit] [autoit]

    Dim $Gui_Effects_in[10] = [0x00090000, 0x00040001, 0x00040002, 0x00040005, 0x00040004, 0x00040006, 0x00040008, 0x00040009, 0x0004000a, 0x00040010]
    Dim $Gui_Effects_out[9] = [0x00050001, 0x00050002, 0x00050004, 0x00050006, 0x00050005, 0x00050008, 0x00050009, 0x0005000a, 0x00050010]

    [/autoit] [autoit][/autoit] [autoit]

    $effect = Random(0, 1, 1)

    [/autoit] [autoit][/autoit] [autoit]

    If $effect = 1 Then
    WinSetTrans($hGUI, "", 0)
    Else
    DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGUI, "int", 500, "short", $Gui_Effects_in[Random(1, 9, 1)])
    EndIf
    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    If $effect = 1 Then
    For $i = 1 To 255 Step 2
    WinSetTrans($hGUI, "", $i)
    Sleep(10)
    Next
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    Sleep(3500)

    [/autoit] [autoit][/autoit] [autoit]

    On_Exit()

    [/autoit] [autoit][/autoit] [autoit]

    Func On_Exit()
    $effect = Random(0, 1, 1)
    Switch $effect
    Case 0
    For $i = 255 To 0 Step -2
    WinSetTrans($hGUI, "", $i)
    Sleep(5)
    Next
    Case 1
    GUISetState(@SW_DISABLE, $hGUI)
    $hGUI = GUICreate("Test", $aDimensions[0], $aDimensions[1], Default, Default, $WS_POPUP, 0)
    DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGUI, "int", 500, "short", $Gui_Effects_out[Random(0, 8, 1)])
    GUISetState(@SW_DISABLE, $hGUI)
    EndSwitch
    Exit
    EndFunc

    [/autoit]

    Gruß,
    UEZ

  • Seriennummer Abfrage

    Zitat

    ...
    Wenn man nun mit einem Disassembler (was nach eurer Aussage ja ein Kinderspiel ist) ...

    Ich habe nie gesagt, dass das Disassemblieren ein Kinderspiel ist, für den Reverser viel eher. ;)

    Gibt es ein unknackbaren Code? Ich sage mal NEIN!

    Gruß,
    UEZ

  • Seriennummer Abfrage

    Zitat

    UEZ du willst doch jetzt nicht ernsthaft Autoit und Assembler auf eine Stufe stellen? Es ist schlicht Fakt, dass so etwas wie eine Seriennummer Abfrage in Autoit zu machen humbug ist weil es wirklich jeder und noch dazu im Klartext decompilieren kann.


    Du muss über den Tellerrand hinausschauen! Es ist kein Vergleich zwischen Assembler und AutoIt, sondern das jeder Code knackbar ist, unabhängig von der Programmiersprache!

    Mit jedem Disassembler kann ich auch in den Assembler Code reinschauen und den Code nachvollziehen!


    Gruß,
    UEZ

  • Seriennummer Abfrage

    Welche Sprache ist denn dafür geeignet?

    Jeden Code kann man reversen, ob nun AutoIt, C/C++, Delphi, Assembler, etc. und z.B. einen Keygenerator erstellen!

    Mag sein, dass es in AutoIt etwas leichter geht...


    Gruß,
    UEZ

  • Koordinate (mehr oder weniger) spiegeln

    Die Darstellung der Spiegelung mittel GDI+:

    Spoiler anzeigen
    [autoit]


    #include <GDIPlus.au3>
    #include <GUIConstantsEx.au3>
    Opt("MustDeclareVars", 1)
    Opt("GUIOnEventMode", 1)

    [/autoit] [autoit][/autoit] [autoit]

    Local $hGUI, $hGraphics, $hBackbuffer, $hBitmap, $hBrush, $hPen
    Local $iX = 800, $iY = 600

    [/autoit] [autoit][/autoit] [autoit]

    ; Initialize GDI+
    _GDIPlus_Startup()

    [/autoit] [autoit][/autoit] [autoit]

    $hGUI = GUICreate("Spiegeln von P1 an der Achse P2 von UEZ 2010", $iX, $iY)
    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGUI)
    $hBitmap = _GDIPlus_BitmapCreateFromGraphics($iX, $iY, $hGraphics)
    $hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)

    [/autoit] [autoit][/autoit] [autoit]

    ; Using antialiasing
    _GDIPlus_GraphicsSetSmoothingMode($hBackbuffer, 2)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ; Create a Pen object
    $hBrush = _GDIPlus_BrushCreateSolid(0)
    $hPen = _GDIPlus_PenCreate(0xFF000000)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

    [/autoit] [autoit][/autoit] [autoit]

    Local $deg = ACos(-1) / 180
    Local $rad = 180 / ACos(-1)
    Local $P1_x = 300
    Local $P1_y = 100
    Local $P2_x = 150
    Local $P2_y = 500
    Local $alpha = 60
    Local $P3_x, $P3_y
    Local $radius = Pixel_Distance($P1_x, $P1_y, $P2_x, $P2_y)

    [/autoit] [autoit][/autoit] [autoit]

    ;Winkel von Punkt1 berechnen
    Local $mwx = $P1_x - $P2_x
    Local $mwy = $P2_y - $P1_y
    Local $P1angle = -ATan($mwy / $mwx) * $rad
    If $mwx < 0 Then
    $P1angle = -180 + $P1angle
    ElseIf $mwx >= 0 And $mwy < 0 Then
    $P1angle = -360 + $P1angle
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    ;Spiegel berechnen
    Local $PT_x = $P2_x + Cos(($alpha / 2 + $P1angle) * $deg) * $radius * 1.25
    Local $PT_y = $P2_y + Sin(($alpha / 2 + $P1angle) * $deg) * $radius * 1.25

    [/autoit] [autoit][/autoit] [autoit]

    While Sleep(40)
    _GDIPlus_GraphicsClear($hBackbuffer, 0xFFFFFFFF)

    [/autoit] [autoit][/autoit] [autoit]

    $P3_x = $P2_x + Cos(($alpha + $P1angle) * $deg) * $radius
    $P3_y = $P2_y + Sin(($alpha + $P1angle) * $deg) * $radius

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_PenSetColor($hPen, 0xFF000000)
    _GDIPlus_GraphicsDrawLine($hBackbuffer, $P1_x, $P1_y, $P2_x, $P2_y, $hPen)
    _GDIPlus_GraphicsDrawLine($hBackbuffer, $P2_x, $P2_y, $P3_x, $P3_y, $hPen)

    [/autoit] [autoit][/autoit] [autoit]

    ;~ _GDIPlus_GraphicsDrawEllipse($hBackbuffer, $P2_x - $radius, $P2_y - $radius, 2 * $radius, 2 * $radius, $hPen)
    _GDIPlus_PenSetColor($hPen, 0xFF0000FF)
    _GDIPlus_GraphicsDrawLine($hBackbuffer, $P2_x, $P2_y, $PT_x, $PT_y, $hPen)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ;Punkt 1
    _GDIPlus_BrushSetSolidColor($hBrush, 0xFFFF0000)
    _GDIPlus_GraphicsFillEllipse($hBackbuffer, $P1_x - 5, $P1_y - 5, 10, 10, $hBrush)

    [/autoit] [autoit][/autoit] [autoit]

    ;Punkt 2
    _GDIPlus_BrushSetSolidColor($hBrush, 0xFF00FF00)
    _GDIPlus_GraphicsFillEllipse($hBackbuffer, $P2_x - 5, $P2_y - 5, 10, 10, $hBrush)

    [/autoit] [autoit][/autoit] [autoit]

    ;Punkt 3 (Spiegel von Punkt 1)
    _GDIPlus_BrushSetSolidColor($hBrush, 0xFF0000FF)
    _GDIPlus_GraphicsFillEllipse($hBackbuffer, $P3_x - 5, $P3_y - 5, 10, 10, $hBrush)

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_GraphicsDrawString($hBackbuffer, "P1" & @CRLF & "(" & Int($P1_x) & "," & Int($P1_y) & ")", $P1_x - 25, $P1_y - 40)
    _GDIPlus_GraphicsDrawString($hBackbuffer, "P2" & @CRLF & "(" & Int($P2_x) & "," & Int($P2_y) & ")", $P2_x - 25, $P2_y - 40)
    _GDIPlus_GraphicsDrawString($hBackbuffer, "Winkel alpha = " & $alpha, $P2_x - 45, $P2_y + 10)
    _GDIPlus_GraphicsDrawString($hBackbuffer, "P3" & @CRLF & "(" & Int($P3_x) & "," & Int($P3_y) & ")", $P3_x - 25, $P3_y - 40)

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $iX, $iY)
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func Pixel_Distance($x1, $y1, $x2, $y2) ;Pythagoras theorem
    Local $a, $b, $c
    If $x2 = $x1 And $y2 = $y1 Then
    Return 0
    Else
    $a = $y2 - $y1
    $b = $x2 - $x1
    $c = Sqrt($a * $a + $b * $b)
    Return $c
    EndIf
    EndFunc ;==>Pixel_Distance

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _Exit()
    ; Clean up
    _GDIPlus_PenDispose($hPen)
    _GDIPlus_BrushDispose($hBrush)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_GraphicsDispose($hBackbuffer)
    _GDIPlus_GraphicsDispose($hGraphics)

    [/autoit] [autoit][/autoit] [autoit]

    ; Uninitialize GDI+
    _GDIPlus_Shutdown()
    Exit
    EndFunc

    [/autoit]


    Gruß,
    UEZ

  • Koordinate (mehr oder weniger) spiegeln

    Zitat

    ich brauch nur den rechenweg, nix mit GDI+.. trotzdem thx..

    GDI+ ist doch nicht der Rechner, sondern die Projektion des Gerechneten! Der Rechenweg steht doch dort geschrieben!

    Du musst nur beachten, dass hier P(0,0) oben links in der Ecke ist - in der Schule ist ja der Mittelpunkt i.d.R. wo anders. ;)

    Gruß,
    UEZ

  • Koordinate (mehr oder weniger) spiegeln

    So?

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    #include <GDIPlus.au3>
    #include <GUIConstantsEx.au3>
    Opt("MustDeclareVars", 1)
    Opt("GUIOnEventMode", 1)

    [/autoit] [autoit][/autoit] [autoit]

    Local $hGUI, $hGraphics, $hBackbuffer, $hBitmap, $hBrush, $hPen
    Local $iX = 800, $iY = 600

    [/autoit] [autoit][/autoit] [autoit]

    ; Initialize GDI+
    _GDIPlus_Startup()

    [/autoit] [autoit][/autoit] [autoit]

    $hGUI = GUICreate("Spiegeln", $iX, $iY)
    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGUI)
    $hBitmap = _GDIPlus_BitmapCreateFromGraphics($iX, $iY, $hGraphics)
    $hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)

    [/autoit] [autoit][/autoit] [autoit]

    ; Using antialiasing
    _GDIPlus_GraphicsSetSmoothingMode($hBackbuffer, 2)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ; Create a Pen object
    $hBrush = _GDIPlus_BrushCreateSolid(0)
    $hPen = _GDIPlus_PenCreate(0xFF000000)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

    [/autoit] [autoit][/autoit] [autoit]

    Local $P1_x = 100
    Local $P1_y = 100
    Local $P2_x = 300
    Local $P2_y = 400
    Local $P3_x, $P3_y, $PT_x, $PT_y

    [/autoit] [autoit][/autoit] [autoit]

    While Sleep(20)
    _GDIPlus_GraphicsClear($hBackbuffer, 0xFFFFFFFF)

    [/autoit] [autoit][/autoit] [autoit]

    $P3_x = $P1_x + 2 * ($P2_x - $P1_x)
    $P3_y = $P1_y - 5

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_PenSetColor($hPen, 0xFF000000)
    _GDIPlus_GraphicsDrawLine($hBackbuffer, $P1_x, $P1_y, $P2_x, $P2_y, $hPen)
    _GDIPlus_GraphicsDrawLine($hBackbuffer, $P2_x, $P2_y, $P3_x, $P3_y, $hPen)
    _GDIPlus_PenSetColor($hPen, 0xFF0000FF)
    _GDIPlus_GraphicsDrawLine($hBackbuffer, $P2_x, $P1_y - 40, $P2_x, $P2_y + 40, $hPen)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ;Punkt 1
    _GDIPlus_BrushSetSolidColor($hBrush, 0xFFFF0000)
    _GDIPlus_GraphicsFillEllipse($hBackbuffer, $P1_x - 5, $P1_y - 5, 10, 10, $hBrush)

    [/autoit] [autoit][/autoit] [autoit]

    ;Punkt 2
    _GDIPlus_BrushSetSolidColor($hBrush, 0xFF00FF00)
    _GDIPlus_GraphicsFillEllipse($hBackbuffer, $P2_x - 5, $P2_y - 5, 10, 10, $hBrush)

    [/autoit] [autoit][/autoit] [autoit]

    ;Punkt 3 (Spiegel von Punkt 1)
    _GDIPlus_BrushSetSolidColor($hBrush, 0xFF0000FF)
    _GDIPlus_GraphicsFillEllipse($hBackbuffer, $P3_x - 5, $P3_y - 5, 10, 10, $hBrush)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $iX, $iY)
    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _Exit()
    ; Clean up
    _GDIPlus_PenDispose($hPen)
    _GDIPlus_BrushDispose($hBrush)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_GraphicsDispose($hBackbuffer)
    _GDIPlus_GraphicsDispose($hGraphics)

    [/autoit] [autoit][/autoit] [autoit]

    ; Uninitialize GDI+
    _GDIPlus_Shutdown()
    Exit
    EndFunc

    [/autoit]

    Gruß,
    UEZ

  • GDI+, von _GDIPlus_ImageLoadFromFile($sFileName) die Breite ändern (nicht zoomen)

    In der Tat ist der Code mit _GDIPlus_BitmapCloneArea() kürzer:

    Spoiler anzeigen
    [autoit]


    #include <GDIPlus.au3>
    Opt("GUIOnEventMode", 1)

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_Startup ()

    [/autoit] [autoit][/autoit] [autoit]

    $hIFile = _GDIPlus_ImageLoadFromFile("c:\Program Files\AutoIt3\Examples\GUI\mslogo.jpg")
    $iW = _GDIPlus_ImageGetWidth($hIFile)
    $iH = _GDIPlus_ImageGetHeight($hIFile)

    [/autoit] [autoit][/autoit] [autoit]

    $crop_x1 = 46
    $crop_y1 = 4
    $crop_x2 = 88
    $crop_y2 = 13
    $width = $crop_x2 - $crop_x1
    $height = $crop_y2 - $crop_y1

    [/autoit] [autoit][/autoit] [autoit]

    $hgui = GUICreate("GDI+ Image Cropping by UEZ", $iW, $iH)
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
    $hClone = _GDIPlus_BitmapCloneArea($hIFile, $crop_x1, $crop_y1, $width, $height)
    GUISetOnEvent(-3, "_Exit")
    GUISetBkColor($hgui, 0)
    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_GraphicsDrawImage($hGraphic, $hClone, $iW / 2 - $width / 2, $iH / 2 - $height / 2)
    ;~ _GDIPlus_ImageSaveToFile ($hClone, "Cropped.jpg")

    [/autoit] [autoit][/autoit] [autoit]

    While Sleep(1000)

    [/autoit] [autoit][/autoit] [autoit]

    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _Exit()
    _GDIPlus_BitmapDispose($hClone)
    _GDIPlus_ImageDispose($hIFile)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_Shutdown()
    Exit
    EndFunc

    [/autoit]

    Danke autoBert! ;)

    Gruß,
    UEZ

  • GDI+, von _GDIPlus_ImageLoadFromFile($sFileName) die Breite ändern (nicht zoomen)

    Vielleicht so:

    Spoiler anzeigen
    [autoit]


    #include <GDIPlus.au3>
    Opt("GUIOnEventMode", 1)

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_Startup ()

    [/autoit] [autoit][/autoit] [autoit]

    $hIFile = _GDIPlus_ImageLoadFromFile("c:\Program Files\AutoIt3\Examples\GUI\mslogo.jpg")
    $iW = _GDIPlus_ImageGetWidth($hIFile)
    $iH = _GDIPlus_ImageGetHeight($hIFile)

    [/autoit] [autoit][/autoit] [autoit]

    $crop_x1 = 46
    $crop_y1 = 4
    $crop_x2 = 88
    $crop_y2 = 13
    $width = $crop_x2 - $crop_x1
    $height = $crop_y2 - $crop_y1

    [/autoit] [autoit][/autoit] [autoit]

    $hgui = GUICreate("GDI+ Image Cropping by UEZ", $iW, $iH)
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
    $hBitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $hGraphic)
    $hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    GUISetOnEvent(-3, "_Exit")
    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_GraphicsDrawImageRectRect($hBackbuffer, $hIFile, $crop_x1, $crop_y1, $width, $height, 0, 0, $width, $height)
    _GDIPlus_GraphicsDrawImage($hGraphic, $hBitmap, $iW / 2 - $width / 2, $iH / 2 - $height / 2)
    ;~ _GDIPlus_ImageSaveToFile ($hBitmap, "Cropped.jpg")

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    While Sleep(1000)

    [/autoit] [autoit][/autoit] [autoit]

    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _Exit()
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_GraphicsDispose($hBackbuffer)
    _GDIPlus_ImageDispose($hIFile)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_Shutdown()
    Exit
    EndFunc

    [/autoit]


    Gruß,
    UEZ