Beiträge von Nathax

  • Windowtool

    ne funktion zum maximieren gibt es soweit ich weiß ja nicht nur diese minimizeallundo oder so aber die klappt ja nur ,wenn man vorher eins minimert hat mit winminimize
    zu der idee mit den hotkeys eigentlich ist das ja gar nicht so schwer man kann es ja ganz einfach machen das am anfang ein paar inputboxen erscheinen und dann die hotkeys für ein nächstes mal in eine ini geschrieben werden :)

  • Windowtool

    Hi ich habe ein kleines aber nützliches skript geschrieben, das das arbeiten auf windows vista oder älter erleichtern soll. Soweit ich weiß gibt es so ein ähnliches tool ja nur in windows 7, welches bei der installation dabei ist, deshalb habe ich es so ähnlich nachgebaut um es auch leuten möglich zu machen die kein windows 7 haben.

    Hier der Code:

    Spoiler anzeigen
    [autoit]

    Hotkeyset("!{esc}", "ende")
    Hotkeyset("!{space}", "allemini")
    Hotkeyset("!m", "mini")
    Hotkeyset("!y", "transan")
    Hotkeyset("!x", "transaus")
    Hotkeyset("!k", "kill")
    Hotkeyset("!{left}", "links")
    Hotkeyset("!{right}", "rechts")
    Hotkeyset("!{up}", "hoch")
    Hotkeyset("!{down}", "runter")
    Hotkeyset("!1", "hochlinks")
    Hotkeyset("!2", "hochrechts")
    Hotkeyset("!3", "runterlinks")
    Hotkeyset("!4", "runterrechts")

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

    While 1
    Sleep(50)
    WEnd

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

    Func transan()
    WinSetTrans("[active]", "", 170)
    Endfunc

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

    Func transaus()
    WinSetTrans("[active]", "", 255)
    Endfunc

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

    Func allemini()
    WinMinimizeAll()
    Endfunc

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

    Func mini()
    WinSetState( "[active]", "", @SW_MINIMIZE)
    Endfunc

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

    Func kill()
    WinKill("[active]")
    EndFunc

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

    Func links()
    WinMove("[active]", "", 0, 0, @DesktopWidth/2-30, @DesktopHeight)
    Endfunc

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

    Func rechts()
    WinMove("[active]", "", @DesktopWidth/2-30, 0, @DesktopWidth/2+30, @DesktopHeight)
    Endfunc

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

    Func hoch()
    WinMove("[active]", "", 0, 0, @DesktopWidth, @DesktopHeight/2-30)
    Endfunc

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

    Func runter()
    WinMove("[active]", "", 0, @DesktopHeight/2-30, @DesktopWidth, @DesktopHeight)
    Endfunc

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

    Func hochlinks()
    WinMove("[active]", "", 0, 0, @DesktopWidth/2-30, @DesktopHeight/2-30)
    Endfunc

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

    Func hochrechts()
    WinMove("[active]", "", @DesktopWidth/2-30, 0, @DesktopWidth/2+30, @DesktopHeight/2-30)
    Endfunc

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

    Func runterlinks()
    WinMove("[active]", "", 0, @DesktopHeight/2-30, @DesktopWidth/2-30, @DesktopHeight/2)
    Endfunc

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

    Func runterrechts()
    WinMove("[active]", "", @DesktopWidth/2-30, @DesktopHeight/2-30, @DesktopWidth/2+30, @DesktopHeight/2)
    Endfunc

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

    Func ende()
    Exit
    EndFunc

    [/autoit]

  • RectCollison

    thx aber komisch finde ich das es nicht klappt wenn man anstatt der msg das fiutterpic löscht dann kommt nämlich error

    und wie downloade ich das ehergesagt kannste mir den link zu dem thread geben

    ah es klappt doch sorry ich muss das fiutter dabnach einfach nochmal erstellen damit die abfrage weiterlaufen kann.

  • RectCollison

    das funkt bei mir iwie nicht

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>
    #include <StaticConstants.au3>
    #include <Array.au3>
    #Include <Misc.au3>
    HotKeySet("{ESC}", "ende")
    ; Hauptvariablen-------------------------
    $f = 0
    Global $guix, $guiy
    Global $fischx = 200, $fischy = 300, $movex = 10, $movey = 10
    ; ---------------------------------------

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

    ; Guierstellung--------------------------
    $gui1 = GUICreate ("Aquarium",(@DesktopWidth), (@DesktopHeight-65),0,0)
    GUISetBkColor(0x0000ff,$gui1)
    $hintergrund = GUICtrlCreatepic("bilder\hintergrund.gif",0,0,@DesktopWidth,@DesktopHeight-50)
    $fisch1 = GUICtrlCreatepic("bilder\fischrechts1.gif",$fischx,$fischy, 120,100)
    $futter = GUICtrlCreatePic("bilder\futter.gif",-200,-200,100,100)
    GUISetState (@SW_SHOW)
    ; ---------------------------------------
    AdlibEnable("move_fisch", 20)

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

    ; Hauptfunktion des Guis-----------------
    While 1
    $c = GUIGetCursorInfo()
    $f1pos = ControlGetPos( "Aquarium", "", $fisch1)
    $fupos = ControlGetPos( "Aquarium", "", $futter)
    $msg = GUIGetMsg()
    _RectCollision($f1pos[0], $f1pos[1], $f1pos[0]+200, $f1pos[1]+300, $fupos[0], $fupos[1], $fupos[0]+100, $fupos[1]+100)
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    If _IsPressed("01") and $f = 1 Then
    GUICtrlDelete($futter)
    $futter = GUICtrlCreatePic("bilder\futter.gif",$c[0]-40,$c[1]-40,100,100)
    $f = 1
    ElseIf _IsPressed("01") and $f = 0 then
    $futter = GUICtrlCreatePic("bilder\futter.gif",$c[0]-40,$c[1]-40,100,100)
    $f = 1
    Endif
    Wend
    ; ---------------------------------------
    ; Funktionen-----------------------------
    Func ende()
    Exit
    EndFunc
    Func move_fisch()
    Select
    Case $fischx < 0
    GUICtrlSetImage($fisch1,"bilder\fischrechts1.gif")
    $movex = Random(0, 10, 1)
    Case $fischx > @DesktopWidth - 120
    GUICtrlSetImage($fisch1,"bilder\fischlinks1.gif")
    $movex = Random(-10, 0, 1)
    EndSelect
    Select
    Case $fischy < 0
    $movey = Random(0, 10, 1)
    Case $fischy > @DesktopHeight - 100
    $movey = Random(-10, 0, 1)
    EndSelect
    $fischx = $fischx + $movex
    $fischy = $fischy + $movey
    GUICtrlSetPos($fisch1, $fischx, $fischy)
    EndFunc
    ; ---------------------------------------

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

    ;noch unwichtig-------------------------
    Func _RectCollision($Rect1X1, $Rect1Y1, $Rect1X2, $Rect1Y2, $Rect2X1, $Rect2Y1, $Rect2X2, $Rect2Y2)
    ; Prog@ndy
    Local Const $tagRECT = "long;long;long;long"
    Local $1 = DllStructCreate($tagRECT)
    Local $2 = DllStructCreate($tagRECT)
    Local $3 = DllStructCreate($tagRECT)
    DllStructSetData($1, 1, $Rect1X1)
    DllStructSetData($1, 2, $Rect1Y1)
    DllStructSetData($1, 3, $Rect1X2)
    DllStructSetData($1, 4, $Rect1Y2)
    DllStructSetData($2, 1, $Rect2X1)
    DllStructSetData($2, 2, $Rect2Y1)
    DllStructSetData($2, 3, $Rect2X2)
    DllStructSetData($2, 4, $Rect2Y2)
    Local $r = DllCall("User32.dll", "int", "IntersectRect", "ptr", DllStructGetPtr($3), "ptr", DllStructGetPtr($1), "ptr", DllStructGetPtr($2))
    If @error Then Return SetError(1, 0, 0)
    Return $r[0] <> 0
    If _RectCollision($Rect1X1, $Rect1Y1, $Rect1X2, $Rect1Y2, $Rect2X1, $Rect2Y1, $Rect2X2, $Rect2Y2) Then
    MsgBox(0,"warnung","zsstoß")
    Endif
    EndFunc ;==>_RectCollision

    [/autoit]