Jump to content
Sign in to follow this  
AlmarM

Circles in Paint

Recommended Posts

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 :))

#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

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


Link to post
Share on other sites
jvanegmond

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

Edited by Manadar

Share this post


Link to post
Share on other sites
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. :)

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×