Beiträge von Bakku

  • Alle Fenster schliessen

    Naja, du musst alle Fenster ermitteln und danach schließen.

    Ermitteln würde mit der Funktion aus der Hilfe gehen :) :

    Spoiler anzeigen
    [autoit]


    $var = WinList()

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

    For $i = 1 to $var[0][0]
    ; Listet nur die sichtbaren Fenster auf, die einen Titel haben
    If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
    MsgBox(0, "Details", "Titel=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1])
    EndIf
    Next

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

    Func IsVisible($handle)
    If BitAnd( WinGetState($handle), 2 ) Then
    Return 1
    Else
    Return 0
    EndIf

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

    EndFunc

    [/autoit]

    Und dann mit WinClose die Fenster schließen.

  • Objekt Orientierte Programmierung

    Hallo!
    Mal ne Frage generell über Objekt Orientierte Programmierung. Von C++ kenn ich das auch, aber ich finde es sehr schwer.
    Hat es viele Vorteile, sodass man es können sollte??
    Und was ist denn ein Vorteil, gegenüber normalem Programmieren (Keine Ahnung wie ich es ausdrücken soll ;) ) ???

  • AutoItObject - OOP für AutoIt

    Mal ne Frage generell über Objekt Orientierte Programmierung. Von C++ kenn ich das auch, aber ich finde es sehr schwer.
    Hat es viele Vorteile, sodass man es können sollte??
    Und was ist denn ein Vorteil, gegenüber normalem Programmieren (Keine Ahnung wie ich es ausdrücken soll ;) ) ???

  • If Bedingung - Fehler

    Hallo. Ich bin seit ein 1-2 Tagen schon auf der Suche nach einem Fehler in einem Teil meines Scriptes, jedoch finde ich ihn einfach nicht.

    Hier ist der Teil:

    [autoit]

    $xoldArraynum1 = 1
    $yoldArraynum1 = 2

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

    If $xoldArraynum1 <> 1 And $xoldArraynum1 = 9 And $yoldArraynum1 = 0 Or $yoldArraynum1 = 2 Or $yoldArraynum1 = 4 Or $yoldArraynum1 = 6 Or $yoldArraynum1 = 8 Then
    MsgBox(0, "2", "2te")
    MsgBox(0, "Nummern", $xoldArraynum1 & ", " & $yoldArraynum1)
    $xhelp1 = $xoldArraynum1
    $yhelp1 = $yoldArraynum1+1
    $xoldArraynum1 = $xhelp1
    $yoldArraynum1 = $yhelp1
    MsgBox(0, "Nummern", $xoldArraynum1 & ", " & $yoldArraynum1)
    Sleep(500)
    EndIf

    [/autoit]

    Das $xoldArraynum1 <> 1 hab ich als Probe reingetan um zu schauen ob es so auch nicht funktioniert.
    Eigentlich dürfte er If nicht ausführen oder. $xoldArraynum1 ist 1. <> 1 ist die erste Bedingung, aber er führt es trotzdem aus.
    Ich hoffe ihr könnt mir helfen. Was ich will, dass die Bedingung so bleibt, er aber nicht das If ausführt.
    Bis bald.

  • 2 Bilder übereinander ohne HIntergrund

    Nur für die Leute die es wissen wollen.
    Ich hab mal ähnliche Threads gesucht. Und bin dadurch auf die Lösung gekommen.
    Hier ist die Lösung mit der UDF __SetIconAlpha

    Spoiler anzeigen
    [autoit]

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

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

    AutoIt Version: 3.3.4.0
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------
    #include <GUIConstantsEx.au3>
    #include <WinAPI.au3>

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

    $hGUI = GUICreate("2 Bilder", 400, 400)
    GUISetBkColor(0xFF0000)
    GUICtrlCreatePic(@DesktopDir & "\Hund.jpg", 10, 10, 300, 300)
    $hPic = GUICtrlCreatePic('', 50, 50, 50, 50)
    __SetIconAlpha($hPic, @DesktopDir & "\Player 1.ico", 0, 50, 50)

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

    GUISetState()

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

    DO
    Sleep(10)
    until GUIGetMsg() = -3
    Exit

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

    Func __SetIconAlpha($hWnd, $sIcon, $iIndex, $iWidth, $iHeight)
    If Not IsHWnd($hWnd) Then
    $hWnd = GUICtrlGetHandle($hWnd)
    If $hWnd = 0 Then
    Return SetError(1, 0, 0)
    EndIf
    EndIf
    Local $hIcon = __WinAPI_ShellExtractIcons($sIcon, $iIndex, $iWidth, $iHeight)
    If $hIcon = 0 Then
    Return SetError(1, 0, 0)
    EndIf
    Local $hBitmap, $hObj, $hDC, $hMem, $hSv
    $hDC = _WinAPI_GetDC($hWnd)
    $hMem = _WinAPI_CreateCompatibleDC($hDC)
    $hBitmap = _WinAPI_CreateCompatibleBitmap($hDC, $iWidth, $iHeight)
    $hSv = _WinAPI_SelectObject($hMem, $hBitmap)
    _WinAPI_DrawIconEx($hMem, 0, 0, $hIcon, $iWidth, $iHeight, 0, 0, 2)
    _WinAPI_ReleaseDC($hWnd, $hDC)
    _WinAPI_SelectObject($hMem, $hSv)
    _WinAPI_DeleteDC($hMem)
    _WinAPI_DestroyIcon($hIcon)
    _WinAPI_DeleteObject(_SendMessage($hWnd, 0x0172, 0, 0))
    _SendMessage($hWnd, 0x0172, 0, $hBitmap)
    $hObj = _SendMessage($hWnd, 0x0173)
    If $hObj <> $hBitmap Then
    _WinAPI_DeleteObject($hBitmap)
    EndIf
    Return 1
    EndFunc ;==>_SetIconAlpha

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

    Func __WinAPI_ShellExtractIcons($sIcon, $iIndex, $iWidth, $iHeight)
    Local $Ret = DllCall('shell32.dll', 'int', 'SHExtractIconsW', 'wstr', $sIcon, 'int', $iIndex, 'int', $iWidth, 'int', $iHeight, 'ptr*', 0, 'ptr*', 0, 'int', 1, 'int', 0)
    If (@error) Or ($Ret[0] = 0) Or ($Ret[5] = Ptr(0)) Then
    Return SetError(1, 0, 0)
    EndIf
    Return $Ret[5]
    EndFunc ;==>_WinAPI_ShellExtractIcons

    [/autoit]

    Danke an alle

  • 2 Bilder übereinander ohne HIntergrund

    Hi Alizame.
    Das Problem ist, (glaube ich zumindest ;) ), dass dieses Figürchen keinen Hintergrund hat.
    Aber weil sie 50x50 dargestellt wird:

    GUICtrlCreateIcon(@DesktopDir & "\Player 1.ico", -1, 50, 50, 50, 50)

    ist sie trotzdem ein Rechteck. Deshalb scheint glaub ich der rote Hintergrund der GUI durch. Und außerdem ist das eigentlich nur ein Beispielskript. In meinem anderen Skript sollen sich die Bilder auch ab und zu
    auf dem anderen Bild bewegen, und ich kann ja nicht dauernd den Hintergrund verändern.

  • 2 Bilder übereinander ohne HIntergrund

    Hallo.
    Ich versuche schon seit gestern etwas, was ich nicht hinbekomme.
    Ich würde gerne 2 Bilder in einer GUI übereinander erstellen. Doch beim zweiten Bild drückt sich der Hintergrund immer durch das erste Bild durch.
    Gibt es eine möglichkeit das zu unterlassen.
    So kann man sich das Vorstellen (s.Anhang)
    Das Script zu diesem Beispiel wäre jetzt:

    Spoiler anzeigen
    [autoit]

    $hGUI = GUICreate("2 Bilder", 400, 400)
    GUISetBkColor(0xFF0000)
    GUICtrlCreatePic(@DesktopDir & "\Hund.jpg", 10, 10, 300, 300)
    GUICtrlCreateIcon(@DesktopDir & "\Player 1.ico", -1, 50, 50, 50, 50)
    GUISetState()

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

    DO
    Sleep(10)
    until GUIGetMsg() = -3
    Exit

    [/autoit]

    [Blockierte Grafik: http://www.autoit.de/file:///C:/Users/Christian/Desktop/2_2%20Bilder.jpg]

    Edit: Ich will, dass dieser rote Hinterteil des schwarzen Männchens weggeht ;)

  • ListView Problem

    Wozu willst du denn bei Button3 eine neue Zeile anfangen. Hat doch gar kein Sinn?? Machts doch automatisch.
    Das einfügen geht so. Ich weiß zwar nicht ob du das meinst, aber egal.

    Spoiler anzeigen
    [autoit]

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

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

    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Form2", 413, 298, 302, 218)
    $ListView1 = GUICtrlCreateListView("1|2", 170, 88, 104, 150)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 50)
    $Button1 = GUICtrlCreateButton("Button1", 96, 88, 75, 25, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Button2", 96, 214, 75, 25, $WS_GROUP)
    $Button3 = GUICtrlCreateButton("Button3", 274, 148, 75, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    GUICtrlCreateListViewItem("1|2", $ListView1)
    EndSwitch
    WEnd

    [/autoit]

  • Musik-Quiz v4

    Das Design ist wirklich Klasse.
    Spiel auch super! ;)
    Machst du eigentlich deine Icons selber, oder lädst du dir sie runter??
    Wenn ich bei mir auf Vollbild klicke, dann verändert sich die Anzeige von 1280x800 auf 1024x786 Pixel und ich habe Vista.

    Edit: Achja, hab die Exe benutzt. Und die Hilfe kann ich bei mir auch nicht lesen :( . Da steht "Die Adresse ist ungültig" im Anzeige-Teil.

  • Grafiken

    Hallo.
    Ich sehe immer wieder gute selbsterstellte Grafiken, und würde gern selbst sowas machen können.
    Wisst ihr vielleicht wie man mit so etwas anfängt herum zu probieren.
    Das einzigste Programm was ich habe, ist Ulead Photoimpact 7. (Sehr alt)
    Gibts da gute Freeware, oder Tutorials oder sowas in der Art.