Beiträge von ISI360

  • QDesktop

    Danke für´s verschieben!

    Hab jez nochmal ne neue Version hochgeladen!
    Einzige "neuerung" (dank an DeepRed92) ist der Hover Effekt sobald man ein Icon berührt!

    8)

  • QDesktop

    Stimmt! Thema hätte eigentlich zu Skripte hinein gehört. Sorry...
    Kann ich das irgentwie verschieben?!

    Sithlord95
    Hast du den Inhalt der Zip in einen eigenen Ordner kopiert? Die Datei direkt aus der Zip starten funktioniert nicht.
    Ich hab auch W7 und bei mir läufts normal...

  • QDesktop

    Hi!

    Möchte euch hier mal wieder ein Projekt von mir vorstellen: Es nennt sich QDesktop!

    Was kann QDesktop:
    - QDesktop ist ein kleines Tool welches euch 4 Eurer Lieblingsprogramme schnell und einfach starten lässt!
    - Gesteuert wird das ganze mit der Maus: Man klickt doppelt auf das Mausrad und wählt danach das gewünschte Programm aus!
    - Kann beliebig Eingestellt werden: Einfach auf das TrayIcon klicken und das Einstellungsfenster öffnet sich


    Wo krieg ich das her:
    - Quellcode und Fertige EXE ist angehängt! ;)


    Evtl. hat einer von euch noch ein paar Verbesserungsvorschläge?!

    Have fun with it! 8)

  • PSPWaveDesktop

    komisch...habs aber mit 2 Monitore getestet...
    Welche Auflösung haben den die von dir?!

    Du hast warscheindlich die Falsche .au3 Datei geöffnet. Zum Starten ist die Run.au3. Dort sind auch die Includes drinnen.

  • PSPWaveDesktop

    Achja...das mit der "verschwindenden 2ten Welle" hab ich schon gemerkt....wird gefixt!

    Jam00:
    Versteh nich ganz was du meinst das die .exe anders is als der Source?!?
    Das einzige was in dem "Source" Paket Fehlt sind die 4 neuen Designs (Die man ja nicht unbedingt braucht beim Source. Und Falls doch kann man sie ja ganz eichfach aus dem anderen Paket kopieren!)

    Zurzeit is noch für max. 2 Monitore "Optimiert"....darum werden warscheindlich die Wellen einfach verschwinden wenn sie auf einen 3tnen oder 4ten Monitor treffen....werd aber da noch ne Einstellungsmöglichkeit machen ^^

  • PSPWaveDesktop

    admin :
    Das mit der Breite (Meinst wohl Höhe der Wellen) wird eher ein Problem, da die Höhe da von der .png Datei ausgeht.

    Du kannst aber auch manuel die Höhe der .png Datei(n) ändern! (Befinden sich im "Waves" Ordner)
    Dann wird auch die Welle Höher/Kleiner werden! 8)

  • PSPWaveDesktop

    Hab nun etwas rumgebastelt und kann euch nun die Version 0.3 meinen Tools bereitstellen:

    Was ist neu:
    -> Vista Fix (Naja....noch nicht ganz...aber seht selbst....(Zumindest die Wellen sind mal da^^))
    -> Einstellungsmöglichkeiten (Geschwindigkeit der Wellen und das Design kann mitels "Designmanager" geändert werden)
    --> Man kann leicht seine eigenen Waves hinzufügen und anwenden!

    Was noch fehlt:
    -> Funktionierender Vista Fix! :D
    -> Immer noch das Problem mit der CPU Auslastung!
    -> -> Ideen für neue Features?!? ^^

    Hier fertig als .exe + 5 Wave Designs:
    http://rapidshare.com/files/204920378/PSPWaveDesktop_0.3.rar

    Und als Source:
    http://rapidshare.com/files/20491230…_0.3_SOURCE.rar

  • PSPWaveDesktop

    also ich habs jetzt auch mal mit Vista (32 Bit) getestet (Notbook von meinem Vater) und da is auch das selbe Problem. :cursing:

    Alerding hab ichs jetzt zumindest schon mal "gschaft" das die Wellen unter Vista angezeigt werden.
    Jedoch verschwinden sie mit einem Klick auf Desktop Anzeigen wieder... ;(

    Werde das Programm auf jeden Fall noch etwas Verbessern....
    Arbeite Grade an nem GUI zum Einstellen und nem Designmanager! 8)

    Wegen der CPU Auslastung hab ich leider noch keinen Erfolg gehabt.....vielleicht fällt jemanden noch etwas dazu ein?!?

  • PSPWaveDesktop

    Habs zurzeit für 2 Monitore "optimiert". Obs mit mehr geht kann ich euch noch net sagen...
    Und auf meinem QuadCore hab ich auch nur 1-2 % Auslastung ;)
    -> Aber auf ner "normalen" CPU steigt die Auslatung ja so extrem!

    Eine Matrix?!?! KAnn mir da jemand ´n Beispiel geben?!?

  • string nach zeichenfolge durchsuchen

    hi

    Da solltest du dir die Funktion "StringInStr" etwas näher anschauen:

    [autoit]


    $string1= "{\b a}"
    $string2 = "{\i a}"

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

    if StringInStr($string1, "\b") then MsgBox(1,"","\b")
    if StringInStr($string2, "\i") then MsgBox(1,"","\i")
    if StringInStr($string1, "\u") then MsgBox(1,"","Gibts ja nicht! ;)")

    [/autoit]

    -> Müsste so gehen! ;)

  • PSPWaveDesktop

    Hi!

    Möchte euch hier eine kleines Projekt von mir vorstellen: Den PSPWaveDesktop
    Wie der Name vielleicht schon sagt zaubert dieses "Tool" den von einer PSP bekannten Wellenhintergrund auf euren Desktop!
    (Zurzeit ist es noch für eine Auflösung von 1280x1024 optimiert! Am besten seht ihr die Wellen wenn ihr euren Desktophintergrund auf Schwarz stellt!)

    Eigentlich funzt das ja schon ziehmlich gut, allerdings "frisst" das Programm ziehmlich viel der CPU-Auslastung! (Bei mir so 15-25 %!!)

    Und daher meine Frage: Gibt es ne möglichkeit die CPU Auslastung irgentwie in den Griff zu bekommen?!? ?(

    -> Programm ist als .zip angehängt! (s. weiter unten)

    Danke im Vorraus! :thumbup:

  • Bewegter Hintergrund

    Also auf meinem Testrechner (IntelCoreDuo 1,8 ghz, 2 Gb Ram) variiert die
    CPU Auslastung von 0-15%

    Allerdings ist mir noch aufgefallen, dass sobald ich das Skript Starte auch andere Fenster (Taskmanager, Startmenü, Systemeigenschaften...) die sich über dem Fenster befinden, zu flimmern beginnen. ?(

  • IS-Net Checker

    Ja sry stimmt...würde auch keine fremden .exe Dateinen ausführen!

    Hab hier mal den Source-Code gepostet:

    [autoit]


    #include "Misc.au3"

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

    $app = "IS - Net Checker"
    if _Singleton($app,1) = 0 Then
    Msgbox(16,"Fehler","IS - Net Checker läuft bereits!")
    Exit
    EndIf

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

    if FileExists ( "settings.ini" ) = 0 Then
    $file = FileOpen("settings.ini", 1)
    FileWriteLine($file, "#DIESE DATEI NICHT VERÄNDERN! ANSONSTEN KÖNNTE DEIN PC EXPLODIEREN! XD"&@CRLF)
    FileWriteLine($file, "[config]"&@CRLF)
    FileWriteLine($file, "autorun=false"&@CRLF)
    FileWriteLine($file, "action=PC Herunterfahren"&@CRLF)
    FileWriteLine($file, "minuten=5"&@CRLF)
    FileWriteLine($file, "limit=4"&@CRLF)
    FileClose($file)
    Traytip("IS - Net Checker","Hier klicken um Fenster anzuzeigen",10)
    endif

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

    #include <Constants.au3>
    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>
    #include <SliderConstants.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>

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

    TraySetToolTip("IS - Net Checker")
    Opt("GUIOnEventMode", 1)
    Opt("TrayMenuMode",1)
    Opt("TrayOnEventMode",1)

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

    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $strComputer = "localhost"
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    Global $Inspeed
    Global $outspeed
    $inmax = 0
    $outmax = 0
    $lastin = 0
    $lastout = 0

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

    #Region ### START Koda GUI section ### Form=g:\shutdowner.kxf
    $Fenster = GUICreate("IS - Net Checker", 429, 175, @DesktopWidth/2-(429/2),@Desktopheight/2-(175/2))
    WinSetOnTop($Fenster, "", 1)
    $Tab1 = GUICtrlCreateTab(8, 8, 417, 161)
    GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
    $TabSheet1 = GUICtrlCreateTabItem("Übersicht")
    $Group1 = GUICtrlCreateGroup("Shutdown Timer", 280, 104, 137, 57)
    GUICtrlCreateLabel(":", 353, 123, 12, 29)
    GUICtrlSetFont(-1, 16, 800, 0, "Tahoma")
    $Minutenzahl = GUICtrlCreateLabel(IniRead("settings.ini", "config", "minuten", "10"), 306, 123, 30, 29)
    GUICtrlSetFont(-1, 16, 800, 0, "Tahoma")
    $Sekundenzahl = GUICtrlCreateLabel("0", 374, 123, 30, 29)
    GUICtrlSetFont(-1, 16, 800, 0, "Tahoma")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlCreateIcon("C:\WINDOWS\system32\shell32.dll", -14, 16, 128, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    GUICtrlCreateLabel("Downstream", 76, 122, 73, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlCreateLabel("Upstream", 192, 122, 57, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Downprogress = GUICtrlCreateProgress(96, 40, 25, 73,BitOR($PBS_VERTICAL,$PBS_SMOOTH))
    $Upprogress = GUICtrlCreateProgress(203, 41, 25, 73,BitOR($PBS_VERTICAL,$PBS_SMOOTH) )
    $DownstreamZahl= GUICtrlCreateLabel("0 KBps", 90, 141, 82, 17)
    $UPStreamZahl = GUICtrlCreateLabel("0 KBps", 199, 141, 80, 17)
    $TabSheet2 = GUICtrlCreateTabItem("Einstellungen")
    GUICtrlCreateLabel("Timer starten wenn sich Down/Up-stream unter", 16, 48, 227, 17)
    $TimerSchwelle = GUICtrlCreateInput(IniRead("settings.ini", "config", "limit", "3"), 248, 45, 33, 21,$ES_NUMBER)
    GUICtrlCreateLabel("kbps befinden", 288, 48, 71, 17)
    GUICtrlCreateLabel("Bei Ablauf des Timers:", 16, 79, 109, 17)
    $ShotdownBOX = GUICtrlCreateCombo("", 128, 76, 169, 25,$CBS_DROPDOWNLIST)
    GUICtrlSetData(-1, "PC Herunterfahren|PC Herunterfahren (erzwingen)|PC neustarten|PC neustarten (erzwingen)|Standby Modus|Ruhezustand", IniRead("settings.ini", "config", "action", "PC Herunterfahren"))
    GUICtrlSetOnEvent(-1, "Toggle_Action")
    GUICtrlCreateLabel("Timer:", 15, 114, 33, 17)
    $TimeerVORGABE = GUICtrlCreateInput(IniRead("settings.ini", "config", "minuten", "10"), 52, 111, 33, 21,$ES_NUMBER)
    GUICtrlCreateLabel("Minuten", 91, 114, 42, 17)
    $Autostartbox = GUICtrlCreateCheckbox("IS - Net Checker mit Windows starten", 16, 136, 385, 25)
    if IniRead("settings.ini", "config", "autorun", "true") = "true" then GUICtrlSetState(-1,$GUI_CHECKED)
    if IniRead("settings.ini", "config", "autorun", "true") = "false" then GUICtrlSetState(-1,$GUI_UNCHECKED)
    GUICtrlSetOnEvent(-1, "Toggle_Autostart")
    $TabSheet3 = GUICtrlCreateTabItem("Info")
    GUICtrlCreateLabel("IS-Net Checker v. 1.0", 16, 40, 242, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlCreateLabel("Erstellt von Christian Faderl", 16, 62, 194, 117)
    GUICtrlCreateTabItem("")
    #EndRegion ### END Koda GUI section ###

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

    TraySetOnEvent ($TRAY_EVENT_PRIMARYDOWN, "Show_Window" )
    GUISetOnEvent($GUI_EVENT_CLOSE, "minimize")
    GUISetOnEvent($GUI_EVENT_MINIMIZE, "minimize")

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

    $exititem = TrayCreateItem("Beenden")
    TrayItemSetOnEvent (-1, "EXITT")
    TraySetClick(8)

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

    func minimize()
    GUISetState(@SW_HIDE,$Fenster)
    EndFunc

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

    func EXITT()
    Save_Times()
    Exit
    EndFunc

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

    func Show_Window()
    GUISetState(@SW_SHOW,$Fenster)
    EndFunc

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

    func Show_Minimenu()
    GUISetState(@SW_SHOW,$Fenster)
    EndFunc

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

    func Update_Streams()
    $colItems = $objWMIService.ExecQuery("SELECT BytesReceivedPersec,BytesSentPersec,Name,BytesTotalPersec FROM Win32_PerfRawData_Tcpip_NetworkInterface", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) then

    For $objItem In $colItems
    $in = $objItem.BytesReceivedPersec
    $NW_Cardname = $objItem.Name
    $Total = $objItem.BytesTotalPersec
    $newin = $objItem.BytesReceivedPersec
    $newout = $objItem.BytesSentPersec
    if $lastin = 0 and $lastout = 0 Then
    $lastin = $newin
    $lastout = $newout
    endif
    $Inspeed = $newin - $lastin
    $outspeed = $newout - $lastout
    $lastin = $newin
    $lastout = $newout
    Select
    Case $in < 1024
    $in = $in&' Byte'
    Case $in > 1023 And $in< 1048575
    $in = Round($in/1024,2)&' KB'
    Case $in > 1048575
    $in = $in/1024
    $in = Round($in/1024,2)&' MB'
    EndSelect
    $out = $objItem.BytesSentPersec
    Select
    Case $out< 1024
    $out = $in&' Byte'
    Case $out > 1023 And $out< 1048575
    $out = Round($out/1024,2)&' KB'
    Case $out > 1048575
    $out= $out/1024
    $out = Round($out/1024,2)&' MB'
    EndSelect
    Global $intext = int(Round($Inspeed/1024,0))
    Global $outtext = int(Round($outspeed/1024,0))
    GUICtrlSetData ($DownstreamZahl,$intext&" KBps")
    GUICtrlSetData ($UPStreamZahl,$outtext&" KBps")
    GUICtrlSetData($Downprogress, ($intext/5))
    GUICtrlSetData($Upprogress, ($outtext/3))
    ExitLoop
    Next
    EndIf
    EndFunc

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

    func Zerochecker()
    if guictrlread($TimeerVORGABE) = "0" then guictrlsetdata($TimeerVORGABE,"1")
    if guictrlread($TimerSchwelle) < 2 then guictrlsetdata($TimerSchwelle,"2")
    endfunc

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

    func Toggle_Action()
    IniWrite("settings.ini", "config", "action", guictrlread($ShotdownBOX))
    endfunc

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

    func Save_Times()
    IniWrite("settings.ini", "config", "minuten", guictrlread($TimeerVORGABE))
    IniWrite("settings.ini", "config", "limit", guictrlread($TimerSchwelle))
    endfunc

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

    func Und_Action() ;XD
    if guictrlread($ShotdownBOX) = "PC Herunterfahren" then Shutdown(9)
    if guictrlread($ShotdownBOX) = "PC Herunterfahren (erzwingen)" then Shutdown(13)
    if guictrlread($ShotdownBOX) = "PC neustarten" then Shutdown(2)
    if guictrlread($ShotdownBOX) = "PC neustarten (erzwingen)" then Shutdown(6)
    if guictrlread($ShotdownBOX) = "Standby Modus" then Shutdown(32)
    if guictrlread($ShotdownBOX) = "Ruhezustand" then Shutdown(64)
    exit ;byebye!
    endfunc

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

    func Toggle_Autostart()
    if GUICtrlRead ($Autostartbox) = $GUI_CHECKED then
    FileCreateShortcut(@AutoItExe,@StartupDir&"\IS-Networkchecker.lnk", @WorkingDir)
    IniWrite("settings.ini", "config", "autorun", "true")
    else
    FileDelete (@StartupDir&"\IS-Networkchecker.lnk")
    IniWrite("settings.ini", "config", "autorun", "false")
    endif
    endfunc

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

    Toggle_Autostart()
    AdlibEnable("Save_Times",10000)
    AdlibEnable("Zerochecker",100)

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

    While 1
    Update_Streams()
    sleep(500)
    if $intext < guictrlread($TimerSchwelle) AND $outtext < guictrlread($TimerSchwelle) Then

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

    if guictrlread($Sekundenzahl) > 0 Then
    GUICtrlSetData ($Sekundenzahl,guictrlread($Sekundenzahl)-1)
    Else
    GUICtrlSetData ($Minutenzahl,guictrlread($Minutenzahl)-1)
    GUICtrlSetData ($Sekundenzahl,59)
    endif

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

    Else
    GUICtrlSetData ($Minutenzahl,guictrlread($TimeerVORGABE))
    GUICtrlSetData ($Sekundenzahl,"0")
    endif

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

    if guictrlread($Sekundenzahl) = 0 AND guictrlread($Minutenzahl) = 0 then Und_Action()
    sleep(500)
    WEnd

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

    ...und sorry für mein Durcheinander im Skript! :D

  • IS-Net Checker

    Hi!

    Hab mal wieder ´n bissl rumprogrammiert und mir ein nettes Tool für meinen Homeserver gemacht.

    Das Tool soll den Server Herunterfahren/Neustarten.... sobald KEIN Traffik mehr auf der Netzwerkkarte gemessen werden kann. (Also der Server nicht benötigt wird (Download fertig o.ä.)). Dabei kann ein Timer angegeben werden nach dem der PC die gewünschte funktion ausführt.

    aero.zip

    Finde soetwas sehr praktisch! 8)

    Vielleicht kanns ja einer von euch auch etwas damit anfangen! ;)

    mfg. ISI360

  • Bewegter Hintergrund

    Hi!

    Ich habe versucht hinter den Textfeldern und Buttons ein Hintergrundbild einzufügen welches sich von links nach rechts bewegen sollte.
    Es sollte dabei HINTER den Buttons und Textfeldern bleiben:

    [autoit]


    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
    #Include <WinAPI.au3>

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

    Global $Fensterhoehe = 650
    Global $Fensterbreite = 900

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

    #Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\ISI\Eigene Dateien\AutoIT\ISMediaportal\main.kxf
    $hwnd = GUICreate("Moving Background", $Fensterbreite, $Fensterhoehe, 226, 158)
    $backgroundimage = GUICtrlCreatePic("C:\windows\Angler.bmp", 0, 0, 300, $Fensterhoehe,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_EX_LAYERED))
    guictrlsetstate(-1,$GUI_DISABLE)
    $Button1 = GUICtrlCreateButton("Button1", 32, 232, 121, 33, 0)
    $Button2 = GUICtrlCreateButton("Button1", 113, 325, 121, 33, 0)
    $Button3 = GUICtrlCreateButton("Button1", 377, 185, 121, 33, 0)
    $Label1 = GUICtrlCreateLabel("Text..text..text", 48, 104, 71, 17)
    $Label2 = GUICtrlCreateLabel("Text..text..text", 58, 427, 119, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
    $Label3 = GUICtrlCreateLabel("Text..text..text", 235, 263, 119, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
    $Label4 = GUICtrlCreateLabel("Text..text..text", 433, 441, 119, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    $newX = 0
    do
    $newX = $newX+5
    ;guictrlsetpos($backgroundimage,$newX,0,800,$Fensterhoehe)
    controlmove($hwnd,"",$backgroundimage,$newX,0)
    sleep(100)
    until GUIGetMsg() = $GUI_EVENT_CLOSE

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


    Allerding "reißt" das Hintergrundbild (bei controlmove) die anderen GUI-Elemente irgentwie mit.... ?( ?(
    Und wenn ich es mit guictrlsetpos versuche, flimmert das Bild extrem!

    Weiß einer von euch da ne Lösung?!?!?

    thx im Vorraus!

  • GDIPlus Frage

    Hallo!

    Habe nach laaaaaangem suchen endlich eine möglichkeit gefunden wie man .png Files (mit Alpha Channel) unkompliziert in ein GUI zeichnet.
    Nur hab ich jetzt folgendes problem: Wie kann ich das erstellte Bild wieder ausblenden/löschen ?!?!?! ?( ?(


    [autoit]


    #include <GDIPlus.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WinAPI.au3>
    _GDIPlus_Startup()

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

    $hwnd = GUICreate("test", 300, 300)
    GUICtrlCreatePic("", 10, 10, 280, 280)
    GUISetState()

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

    $graphics = _GDIPlus_GraphicsCreateFromHWND($hwnd)
    $image = _GDIPlus_ImageLoadFromFile("bmp\line.png")
    _GDIPlus_GraphicsDrawImageRect($graphics, $image, 10, 10, 280, 20)

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

    GUISetState()

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

    Do
    $msg = GUIGetMsg()
    Until $msg = -3
    _WinAPI_DeleteObject($image)
    _GDIPlus_GraphicsDispose($graphics)
    _GDIPlus_Shutdown()

    [/autoit]

    Vielleicht fällt euch ja was ein!
    thx im Vorraus!