/\/\1|<3 Posted February 10, 2005 Posted February 10, 2005 (edited) hi, i coded a new function. maybe you know it from some annoying sites in the internet expandcollapse popupFunc 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 Posted February 10, 2005 Posted February 10, 2005 (edited) 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 [font="Times"] If anyone remembers me, I am back. Maybe to stay, maybe not.----------------------------------------------------------------------------------------------------------[/font][font="Times"]Things I am proud of: Pong! in AutoIt | SearchbarMy website: F.R.I.E.S.A little website that is trying to get started: http://thepiratelounge.net/ (not mine)[/font][font="Times"] ----------------------------------------------------------------------------------------------------------[/font][font="Arial"]The newbies need to stop stealing avatars!!! It is confusing!![/font]
sarkar112 Posted February 10, 2005 Posted February 10, 2005 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 Posted February 10, 2005 Author Posted February 10, 2005 works fine for me but i had to change it in german language ... but it works thanks Mike
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now