Beiträge von owi dowi spinn

  • Progressbar auf Error stellen

    Ich möchte meine Progressbar auf Error stellen (eigentlich möchte ich sie nur rot haben). Wie das aussieht, sieht man auf diesem Bild oder wenn beim kopieren von Dateien etwas schief läuft.Leider gibt es keinen Befehl dafür. GUICtrlSetColor funktioiert zumindest bei Vista nicht mit Progressbars.Die UDF von progandy (Progressbar mit GDIplus) wollte ich auch nicht nehmen, da man das ja auch irgendwie anders hinkriegen muss (sieht bei anderen Windows-Versionen auch blöd aus). Sonst hätten die das auf dem Screenshot ja auch nicht hinbekommen. Zudem ist es ja eine ganz normale Funktion.

    Hat irgendjemand eine Ahnung davon oder weiß, wie man das lösen könnte?

  • Doodle Jump für Pc

    Ich habe ja die vorherigen Seiten nicht verfolgt, aber:
    1. Wieso kommt man beim verlieren nicht mehr ins menü?
    2. Ist das immer so schwierig, ich komme ja nicht mal 5 Platten hoch ;)
    3. Wie komme ich nach dem Namen eintippen weiter?
    4. Wieso sind beim Namen eintippen da mehr Plattformen als vorher?
    5. Warum kann man nicht auf "Scores" klicken?
    6. Warum komme ich auf der anderen Seite nicht wieder raus, wenn ich nach z.b. links gedrückt halte?

  • GDI+ Bildergröße verändern: Finde den Fehler

    Ich habe mir jetzt folgendes Script zusammengebastelt:

    Spoiler anzeigen
    [autoit]

    #RequireAdmin
    #include <GDIPlus.au3>
    If FileExists(@TempDir&"\PU_Folder.txt") Then
    $StandPath=FileRead(@TempDir&"\PU_Folder.txt")
    Else
    $StandPath=@UserProfileDir&"\"
    EndIf
    $AllFiles=FileOpenDialog("Picture Uploader",$StandPath,"Fotos (*.jpg)",5)
    ;--Bilder zu Arrays--
    If StringInStr($AllFiles,"|") Then
    ;Mehrere Dateien
    $File=StringSplit($AllFiles,"|")
    $Path=StringTrimRight(StringLeft($AllFiles,StringInStr($AllFiles,"|")),1)
    $NuOfFiles=_GetCharacterInStr($AllFiles,"|")
    Dim $FullFile[$NuOfFiles]
    For $i=0 To $NuOfFiles-1
    $FullFile[$i]=$Path&"\"&$File[$i+2]
    Next
    Else
    Dim $FullFile[1]
    $FullFile[0]=$AllFiles
    $NuOfFiles=1
    EndIf
    ;-Bilder in Temp-Ordner kopieren-
    ProgressOn("Picture Uploader","Dateien kopieren")
    ProgressSet(0)
    DirCreate(@TempDir&"\PictureUploader")
    For $i=1 To $NuOfFiles
    ProgressSet(100/$NuOfFiles*$i)
    FileCopy($FullFile[$i-1],@TempDir&"\PictureUploader\Pic_"&$i&".jpg",1)
    Next
    ProgressOff()
    ;-Bilder verkleinern-
    ProgressOn("Picture Uploader","Bilder verkleinern")
    ProgressSet(0)
    For $i=1 To $NuOfFiles
    ProgressSet(100/$NuOfFiles*$i)
    _GDIPlus_Startup()
    $image=_GDIPlus_ImageLoadFromFile("C:\Users\Conrad\AppData\Local\Temp\PictureUploader\Pic_6.jpg")
    $width=_GDIPlus_ImageGetWidth($image)
    $height=_GDIPlus_ImageGetHeight($image)
    $ZuWidth=$width*500/$height
    _GDIPlus_Shutdown()
    _ImageResize(@TempDir&"\PictureUploader\Pic_"&$i&".jpg",@TempDir&"\PictureUploader\Pic_"&$i&"_s.jpg",$ZuWidth,500)
    Next
    Func _ImageResize($sInImage, $sOutImage, $iW, $iH)
    Local $hWnd, $hDC, $hBMP, $hImage1, $hImage2, $hGraphic, $CLSID, $i = 0
    $hWnd = _WinAPI_GetDesktopWindow()
    $hDC = _WinAPI_GetDC($hWnd)
    $hBMP = _WinAPI_CreateCompatibleBitmap($hDC, $iW, $iH)
    _WinAPI_ReleaseDC($hWnd, $hDC)
    _GDIPlus_Startup()
    $hImage1 = _GDIPlus_BitmapCreateFromHBITMAP($hBMP)
    $hImage2 = _GDIPlus_ImageLoadFromFile($sInImage)
    $hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage1)
    _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage2, 0, 0, $iW, $iH)
    $CLSID = _GDIPlus_EncodersGetCLSID("JPG")
    _GDIPlus_ImageSaveToFileEx($hImage1, $sOutImage, $CLSID)
    _GDIPlus_ImageDispose($hImage1)
    _GDIPlus_ImageDispose($hImage2)
    _GDIPlus_GraphicsDispose($hGraphic)
    _WinAPI_DeleteObject($hBMP)
    _GDIPlus_Shutdown()
    EndFunc ;==>_ImageResize
    ProgressOff()
    ;----------------------

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

    Func _GetCharacterInStr($String, $Character)
    Local $Number = 0
    $Str = StringSplit($String, "")
    For $i = 1 To $Str[0]
    $StrComp = StringCompare($Str[$i], $Character, 2)
    If $StrComp = 0 Then
    $Number += 1
    EndIf
    Next
    Return $Number
    EndFunc

    [/autoit]


    Das funktioniert bei mir leider nicht. Die Bilder werden kopiert, aber anschließend nicht mehr verkleinert :pinch: . Komischerweise funktionierte das davor aber noch (ich habs mit Strg+Z zurückgesetzt). Könnt ihr mir sagen, was falsch ist oder wenigstens, ob das bei euch funzt?

    Greetz

  • Bildgröße (Abmessungen) ermitteln

    Ich habe das Script auch mal getestet und am Anfang hat es auch funktioniert. Nach einer Weile aber nicht mehr ?( . Ich habe alles was ich geändert hatte wieder geStrg+Zet, aber das funktionierte trotzdem nicht :(. Ich habe keine Ahnung warum.

    Spoiler anzeigen
    [autoit]

    #RequireAdmin
    #include <GDIPlus.au3>
    If FileExists(@TempDir&"\PU_Folder.txt") Then
    $StandPath=FileRead(@TempDir&"\PU_Folder.txt")
    Else
    $StandPath=@UserProfileDir&"\"
    EndIf
    $AllFiles=FileOpenDialog("Picture Uploader",$StandPath,"Fotos (*.jpg)",5)
    ;--Bilder zu Arrays--
    If StringInStr($AllFiles,"|") Then
    ;Mehrere Dateien
    $File=StringSplit($AllFiles,"|")
    $Path=StringTrimRight(StringLeft($AllFiles,StringInStr($AllFiles,"|")),1)
    $NuOfFiles=_GetCharacterInStr($AllFiles,"|")
    Dim $FullFile[$NuOfFiles]
    For $i=0 To $NuOfFiles-1
    $FullFile[$i]=$Path&"\"&$File[$i+2]
    Next
    Else
    Dim $FullFile[1]
    $FullFile[0]=$AllFiles
    $NuOfFiles=1
    EndIf
    ;-Bilder in Temp-Ordner kopieren-
    ProgressOn("Picture Uploader","Dateien kopieren")
    ProgressSet(0)
    DirCreate(@TempDir&"\PictureUploader")
    For $i=1 To $NuOfFiles
    ProgressSet(100/$NuOfFiles*$i)
    FileCopy($FullFile[$i-1],@TempDir&"\PictureUploader\Pic_"&$i&".jpg",1)
    Next
    ProgressOff()
    ;-Bilder verkleinern-
    ProgressOn("Picture Uploader","Bilder verkleinern")
    ProgressSet(0)
    For $i=1 To $NuOfFiles
    ProgressSet(100/$NuOfFiles*$i)
    _GDIPlus_Startup()
    $image=_GDIPlus_ImageLoadFromFile("C:\Users\Conrad\AppData\Local\Temp\PictureUploader\Pic_6.jpg")
    $width=_GDIPlus_ImageGetWidth($image)
    $height=_GDIPlus_ImageGetHeight($image)
    $ZuWidth=$width*500/$height
    _GDIPlus_Shutdown()
    _ImageResize(@TempDir&"\PictureUploader\Pic_"&$i&".jpg",@TempDir&"\PictureUploader\Pic_"&$i&"_s.jpg",$ZuWidth,500)
    Next
    Func _ImageResize($sInImage, $sOutImage, $iW, $iH)
    Local $hWnd, $hDC, $hBMP, $hImage1, $hImage2, $hGraphic, $CLSID, $i = 0
    $hWnd = _WinAPI_GetDesktopWindow()
    $hDC = _WinAPI_GetDC($hWnd)
    $hBMP = _WinAPI_CreateCompatibleBitmap($hDC, $iW, $iH)
    _WinAPI_ReleaseDC($hWnd, $hDC)
    _GDIPlus_Startup()
    $hImage1 = _GDIPlus_BitmapCreateFromHBITMAP($hBMP)
    $hImage2 = _GDIPlus_ImageLoadFromFile($sInImage)
    $hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage1)
    _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage2, 0, 0, $iW, $iH)
    $CLSID = _GDIPlus_EncodersGetCLSID("JPG")
    _GDIPlus_ImageSaveToFileEx($hImage1, $sOutImage, $CLSID)
    _GDIPlus_ImageDispose($hImage1)
    _GDIPlus_ImageDispose($hImage2)
    _GDIPlus_GraphicsDispose($hGraphic)
    _WinAPI_DeleteObject($hBMP)
    _GDIPlus_Shutdown()
    EndFunc ;==>_ImageResize
    ProgressOff()
    ;----------------------

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

    Func _GetCharacterInStr($String, $Character)
    Local $Number = 0
    $Str = StringSplit($String, "")
    For $i = 1 To $Str[0]
    $StrComp = StringCompare($Str[$i], $Character, 2)
    If $StrComp = 0 Then
    $Number += 1
    EndIf
    Next
    Return $Number
    EndFunc

    [/autoit]

  • Internet Explorer als Object wird immer weiß

    Ich habe ein Problem, nämlich dass wenn ich den Internet-Explorer mittels GUICtrlCreateObj eingebunden habe und der dann eine andere Seite aufrufen soll, gerne mal der Bereich vom Internet Explorer einfach nur weiß ist. Wenn ich dann den Inhalt markiere, kann man alles wieder normal sehen. Wovon das abhängt, dass das manchmal nicht geht, habe ich noch nicht festgestellt - meißtens geht es ohne Probleme.

    Das Script kann ich leider nicht posten, da es schon viel zu komplex ist und ihr die Dateien nicht habt :(

    Vielleicht kann ja jemand trotzdem helfen

  • Finde den Fehler


    Was soll den

    [autoit]

    AdlibRegister

    [/autoit]


    sein?!
    Edit: AdlibEnable?

  • Finde den Fehler

    @Sprenger:
    Das ist ja so gut wie egal - ich möchte nur einfach das Fenster nicht doppelt aufgeschrieben werden, sondern dahinter die Nummer um eins erhöht wird. Und das geht mysteriöserweise nicht bei meinem Script. :(

  • Finde den Fehler

    Das folgene Script soll jede halbe Minute in eine Datei schreiben, welches Programm im Vordergrund ist.
    Eigentlich soll die Nummer hinter dem Fensternamen um 1 erhöht werden, aber stattessen wird der wieder neu aufgeschrieben. Ich hab leider nicht herausgefunden wieso. ;( Kann mir jemand helfen?

    [autoit]

    #Include <Date.au3>
    $Path=@TempDir&"\WP_Prog.txt"
    $Date="2010/01/30 11:00:00"
    While 1
    $Diff=_DateDiff("h",$Date,_NowCalc())
    If $Diff>="0" And $Diff<"10" Then
    $ActWin=WinGetTitle("")
    $ContentNow=FileRead($Path)
    StringRegExp($ContentNow,$ActWin&"(.*?)",3)
    If @error Then
    FileWrite($Path,$ActWin&": 1"&@CRLF)
    Else
    $ActNum=StringRegExp($ContentNow,$ActWin&": (.*?)\z",3)
    FileDelete($Path)
    FileWrite($Path,StringRegExpReplace($ContentNow,$ActWin&": (.*?)\z",$ActNum[0]+0.5))
    EndIf
    Sleep(0.5*60000)
    Else
    Exit
    EndIf
    WEnd

    [/autoit]