Hi Ho
Ein kleines Script, Just 4 Fun Last die Fenster hüpfen!
Global $yvar, $X, $Y, $Umschaltung, $Abzug, $fPosition, $geschwindigkeit, $xvar, $richtung
$yvar = 1
$Umschaltung = 0
$Abzug = 0
$geschwindigkeit = 10
$xvar = 1
$fTitel = ""
HotKeySet("{UP}","UP")
HotKeySet("{RIGHT}","RIGHT")
HotKeySet("{LEFT}","LEFT")
HotKeySet("{DOWN}","DOWN")
HotKeySet("{ESC}","Escape")
While 1
Fenster()
Berechnung()
Neue_Position()
Sleep(1)
WEnd
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
Func Berechnung()
$fPosition = WinGetPos($fTitel)
If $fPosition[0] >= (@DesktopWidth - $fPosition[2]) Then
$richtung = 0
ElseIf $fPosition[0] <= 0 Then
$richtung = 1
EndIf
If $Umschaltung = 0 Then
$yvar = $yvar + ($yvar/$geschwindigkeit)
$Y = $Y + $yvar
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
$Umschaltung = 0
$Abzug = 0
EndIf
EndIf
If $xvar > 1 Then
If $richtung = 1 Then
$X = $X + $xvar
ElseIf $richtung = 0 Then
$X = $X - $xvar
EndIf
EndIf
EndFunc
Func Neue_Position()
WinMove($fTitel,"", $X, $Y)
EndFunc
Func UP()
$geschwindigkeit = 10
$Umschaltung = 1
$Abzug = 0
$yvar = 55
EndFunc
Func RIGHT()
If $richtung = 0 Then
$xvar = 10
$richtung = 1
Else
$xvar = $xvar + 10
$richtung = 1
EndIf
EndFunc
Func LEFT()
If $richtung = 1 Then
$xvar = 10
$richtung = 0
Else
$xvar = $xvar + 10
$richtung = 0
EndIf
EndFunc
Func DOWN()
$geschwindigkeit = 3
EndFunc
Func Escape()
WinMove($fTitel,"",0,0)
Exit
EndFunc