Windowgravity

    Hi Ho

    Ein kleines Script, Just 4 Fun ;) Last die Fenster hüpfen! 8)


    [autoit]


    Global $yvar, $X, $Y, $Umschaltung, $Abzug, $fPosition, $geschwindigkeit, $xvar, $richtung
    $yvar = 1
    $Umschaltung = 0
    $Abzug = 0
    $geschwindigkeit = 10
    $xvar = 1
    $fTitel = ""

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

    HotKeySet("{UP}","UP")
    HotKeySet("{RIGHT}","RIGHT")
    HotKeySet("{LEFT}","LEFT")
    HotKeySet("{DOWN}","DOWN")
    HotKeySet("{ESC}","Escape")

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

    While 1
    Fenster()
    Berechnung()
    Neue_Position()
    Sleep(1)
    WEnd

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

    Func Fenster()
    $fTitelneu = WinGetTitle("[ACTIVE]")
    If $fTitelneu <> $fTitel Then
    WinMove($fTitel,"",0,0)
    $fTitel = $fTitelneu
    $geschwindigkeit = 10
    $yVar = 1
    $xVar = 1
    $Umschaltung = 0
    $Abzug = 0
    EndIf
    $fPosition = WinGetPos($fTitel)
    EndFunc

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

    Func Berechnung()
    $fPosition = WinGetPos($fTitel)
    If $fPosition[0] >= (@DesktopWidth - $fPosition[2]) Then
    $richtung = 0
    ElseIf $fPosition[0] <= 0 Then
    $richtung = 1
    EndIf

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

    If $Umschaltung = 0 Then
    $yvar = $yvar + ($yvar/$geschwindigkeit)
    $Y = $Y + $yvar

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

    If $Y >= (@DesktopHeight - $fPosition[3]) Then
    $xvar = $xvar - ($xvar/5)
    $Umschaltung = 1
    EndIf
    ElseIf $Umschaltung = 1 Then
    If $Abzug = 0 Then
    $yvar = $yvar - ($yvar/5)
    $Abzug = 1
    EndIf
    $yvar = $yvar - ($yvar/$geschwindigkeit)
    $Y = $Y - $yvar
    If $yvar <= 2 Then

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

    $Umschaltung = 0
    $Abzug = 0
    EndIf
    EndIf

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

    If $xvar > 1 Then
    If $richtung = 1 Then
    $X = $X + $xvar
    ElseIf $richtung = 0 Then
    $X = $X - $xvar
    EndIf
    EndIf
    EndFunc

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

    Func Neue_Position()
    WinMove($fTitel,"", $X, $Y)
    EndFunc

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

    Func UP()
    $geschwindigkeit = 10
    $Umschaltung = 1
    $Abzug = 0
    $yvar = 55
    EndFunc

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

    Func RIGHT()
    If $richtung = 0 Then
    $xvar = 10
    $richtung = 1
    Else
    $xvar = $xvar + 10
    $richtung = 1
    EndIf
    EndFunc

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

    Func LEFT()
    If $richtung = 1 Then
    $xvar = 10
    $richtung = 0
    Else
    $xvar = $xvar + 10
    $richtung = 0
    EndIf
    EndFunc

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

    Func DOWN()
    $geschwindigkeit = 3
    EndFunc

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

    Func Escape()
    WinMove($fTitel,"",0,0)
    Exit
    EndFunc

    [/autoit]

    *lach* lustige Sache :D

    Andy hat mir ein Schnitzel gebacken aber da war ein Raupi drauf und bevor Oscar das Bugfixen konnte kam Alina und gab mir ein AspirinJunkie.

    Nett...aber warum verschiebst du die Fenster auf den linken Bildschirmrand um sie hüpfen zu lassen...wäre noch cooler wenn es wirklich so aussehen würde also ob das Fenster runterfallen würde. Ausserdem wäre es noch cool, wenn man das Fenster während und nach dem herunterfallen mit dem Cursor wieder aufheben kann. Und noch ganz cooler, am coolsten, geil wäre es, wenn das ganze sich wie hier verhalten würde. Also wenn man das Fenster an einzelnen Ecken aufheben könnte und dann quasi so herumschweiffen, vieleicht sogar die Icons usw. im Fenster physisch korrekt herumwirbeln würden...aber das wäre wahrscheinlich nicht so einfach (ich denke mit dem Originalfenster sogar unmöglich, aber vieleicht mit einem screenshot des Fensters und der einzelnen symbole...naja das wäre jetzt was, wenn du dieses Progrämmchen tatsächlich ernsthaft meinst und nicht nur so als ausprobiererchen/spassprogramm (spass nicht scherz!).

    Bild1: Ich beim debuggen