Circles in Paint

[AlmarM]

This script will make some circles in Paint:

Notice: That there is xxx in the script, place there the name of your paint

Example:

Dutch: naamloos - Paint

English: untitled - Paint (Not sure about this one )

expandcollapse popup

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.6.0
 Author:         myName

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

HotKeySet('{ESC}', '_Exit') 
$Click = "Left"

Run("mspaint.exe") 
WinWait("xxx") ;xxx = Name of paint when its activated
If Not WinActive("xxx") Then WinActivate("xxx") 
Sleep(2000) 
MsgBox("64", "Miximized?", "Is MSPaint maximized??" & @CRLF & "Yes: Do nothing just wait" & @CRLF & "No: Maximize it" & @CRLF & "You got 5 seconds to maximize") 
Sleep(5000)  
Send("{ALT}") 
Sleep(1000)
Send("{RIGHT 3}") 
Sleep(1000)
Send("{DOWN 4}") 
Sleep(1000) 
Send("{ENTER}") 
Send("600") 
Sleep(500)
Send("{TAB}") 
Sleep(500) 
Send("600") 
Sleep(1000)
Send("{ENTER}") 
Sleep(1500) 
MouseClick($Click, 14, 189, 1, 30) 
Sleep(1500)
MouseClick($Click, 32, 292, 1, 30) 
Sleep(1500) 
MouseClick($Click, 13, 240, 1, 30) 
Sleep(1500) 
MouseClick($Click, 247, 953, 1, 30) 
Sleep(1500) 
MouseClickDrag($Click, 112, 92, 562, 563, 30) 
Sleep(1500) 
MouseClick($Click, 88, 953, 1, 30) 
Sleep(1500) 
MouseClickDrag($Click, 114, 94, 564, 565, 30) 
Sleep(1500) 
MouseClick($Click, 247, 953, 1, 30) 
Sleep(1500) 
MouseClickDrag($Click, 118, 98, 568, 567, 30) 
Sleep(1500) 
MouseClick($Click, 88, 953, 1, 30) 
Sleep(1500) 
MouseClickDrag($Click, 120, 100, 570, 571, 30) 
Sleep(1500) 
MouseClick($Click, 247, 953, 1, 30) 
Sleep(1500) 
MouseClickDrag($Click, 122, 102, 572, 573, 30) 
Sleep(1500) 
MouseClick($Click, 88, 953, 1, 30) 
Sleep(1500) 
MouseClickDrag($Click, 124, 104, 574, 575, 30) 
Sleep(1500) 
MouseClick($Click, 247, 953, 1, 30) 
Sleep(1500) 
MouseClickDrag($Click, 126, 106, 576, 577, 30) 
Sleep(1500) 

Func _Exit()
;ToolTip(' '&@CRLF&' EXITING '&@CRLF&' ')
Sleep(500)
Exit
EndFunc

[jvanegmond]

Does not work on my resolution. I'm on 1280x800 widescreen. It clicks the taskbar in stead of selecting a color.

Edited September 14, 2007 by Manadar

[therks]

You know what you could have done? Instead of having 'xxx' multiple times in the script for someone to replace, you could try it like this:

$PaintTitle = 'xxx' ;xxx = Name of paint when its activated
Run("mspaint.exe") 
WinWait($PaintTitle)
If Not WinActive($PaintTitle) Then WinActivate($PaintTitle)

Then you just have to change one variable and the whole thing will work.