WinCrazyMove function

[/\/\1|<3 0]

hi, i coded a new function. maybe you know it from some annoying sites in the internet

expandcollapse popup

Func WinCrazyMove($Title, $Text, $EndXPosition, $EndYPosition, $SleepDelay = 0)
    If IsString($Title) = 0 Or IsString($Text) = 0 Or IsNumber($EndXPosition) = 0 Or IsNumber($EndYPosition) = 0 Or IsNumber($SleepDelay) = 0 Then
        SetError(2)
    ElseIf WinExists($Title, $Text) = 0 Then
        SetError(1)
    Else
        
        Local $WindowPosition
        Local $MoveLeft = 1
        Local $MoveUp = 1
        Local $MoveRight = 0
        Local $MoveDown = 0
        Local $XPos
        Local $YPos
        Local $WindowXSize
        Local $WindowYSize
        Local $MoveToX
        Local $MoveToY
        
        $WindowPosition = WinGetPos($Title, $Text)
        $XPos = $WindowPosition[0]
        $YPos = $WindowPosition[1]
        $WindowXSize = $WindowPosition[2]
        $WindowYSize = $WindowPosition[3]
        
        Do
            Select
                Case $MoveLeft = 1
                    $XPos = $XPos - 1
                Case $MoveRight = 1
                    $XPos = $XPos + 1
                EndSelect
            Select
                Case $MoveUp = 1
                    $YPos = $YPos - 1
                Case $MoveDown = 1
                    $YPos = $YPos + 1
                EndSelect
            WinMove($Title, $Text, $XPos, $YPos)
            Select
                Case $XPos = 0
                    $MoveLeft = 0
                    $MoveRight = 1
                Case $XPos + $WindowXSize = @DesktopWidth
                    $MoveRight = 0
                    $MoveLeft = 1
            EndSelect
            Select
                Case $YPos = 0
                    $MoveUp = 0
                    $MoveDown = 1
                Case $YPos + $WindowYSize = @DesktopHeight
                    $MoveDown = 0
                    $MoveUp = 1
                EndSelect
                Sleep($SleepDelay)
        Until ($XPos = $EndXPosition And $YPos = $EndYPosition) Or WinExists($Title, $Text) = 0
    EndIf
EndFunc

Title = the title of the window you want to move

Text = the text of the window you want to move

EndXPosition = the X-position where to stop

EndYPosition = the Y-position where to stop

SleepDelay = the sleepdelay (the lower the sleepdelay is the faster the window will move)

NOTE: it will only stop moving the window when the window arrives at the X and the Y position at the same time, so usually it will never stop

Mike.

Edited February 10, 2005 by /\/\1|<3

[zcoacoaz 0]

i think i have a program like this somewhere that i got off the net where it says to buy beer and you cant close it because it moves away

edit: every time i try it i get an error

how come this doesnt work

Run ( "notepad" )
WinWait ( "Untitled - Notepad" )
send ( "text" )
WinCrazyMove ( "Unitled - Notepad", "text", 1, 1, 1 )
If @error = 1 or @error = 2 then 
    WinKill ( "Untitled - Notepad" )
    msgbox ( 0, "error", "error" )
EndIf

Edited February 10, 2005 by Xenogis

[sarkar112 0]

try...

Run ( "notepad.exe" )
WinWait ( "Untitled - Notepad" )
send ( "text" )
WinCrazyMove ( "Unitled - Notepad", "text", 1, 1, 1 )
If @error = 1 or @error = 2 then
    WinKill ( "Untitled - Notepad" )
    msgbox ( 0, "error", "error" )
EndIf

im not sure if it'll work im a noob at this

tell me if it works

[/\/\1|<3 0]

works fine for me but i had to change it in german language ... but it works

thanks

Mike