Dessin sur paint (lol)

[code]
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.2.0
Author: myName

Script Function:
Template AutoIt script.

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

; Script Start - Add your code below here


HotKeySet("{ESC}", "lol")

ShellExecute("mspaint.exe")
WinActivate ("Immagine - Paint")
sleep(400)
WinSetState("Immagine - Paint", "", @SW_MAXIMIZE)

$x = MouseGetPos(0)
$y = MouseGetPos(1)

do
$x = $x + 100
MouseMove(MouseGetPos(0)+100, MouseGetPos(1), 1)
until MouseGetPos(0) < $x

do
$y = $y + 100
MouseMove(MouseGetPos(0), MouseGetPos(1)+100, 1)
until MouseGetPos(1) < $y

$x = MouseGetPos(0)+1
$y = MouseGetPos(1)+1

;("X = " & $x & " e Y = " & $y)

$s = PixelSearch(70, 60, $x, $y-100, 0x316ac5)
if NOT @error then
MouseMove($s[0], $s[1], 5)
$b = PixelSearch($s[0]+10, $s[1]-1, $x, $y, 0x316ac5)
if @error Then
$b = PixelSearch($s[0]-1, $s[1]+10, $x, $y, 0x316ac5)
EndIf
MouseMove($b[0], $b[1], 1)
MouseClickDrag("left", MouseGetPos(0), MouseGetPos(1), $x-5, $y-110, 1);
EndIf

MouseMove(40, 165)
MouseClick("left")
MouseMove(70, 60)
MouseClick("left")
Send("Premi esc x uscire")

MouseMove(71, 58)
for $c = 71 to $x-5 step +3
MouseMove($c, MouseGetPos(1))
if MouseGetCursor() = 10 then ExitLoop
Next
for $d = 61 to $y-110 step +3
MouseMove($c, $d, 1)
if MouseGetCursor() = 12 then ExitLoop
Next
MouseClickDrag("left", MouseGetPos(0), MouseGetPos(1), $x-5, MouseGetPos(1), 1);

MouseMove(MouseGetPos(0)-20, MouseGetPos(1)+20)
MouseClick("left")

; ORA SI INIZIAA!!

MouseMove(25, 140)
MouseClick("left")

$a = 3

$scale = 1
$cx = 150
$cy = 150
$pi = 3.14159265358979
$radToDeg = 180 / $pi
$degToRad = $pi / 180

#cs
$del = 7
$i = 0
Do
$i = $i + $del
$scale = $scale + 1
$y = $cy + floor(sin($i * $degToRad) * $scale)
$y1 = $cy + floor(sin(($i+$del) * $degToRad) * $scale)
$x = $cx + floor(cos($i * $degToRad) * $scale)
$x1 = $cx + floor(cos(($i+$del) * $degToRad) * $scale)
;MouseMove($x, $y, $a)
;MouseClickDrag("left", $x, $y, $x1, $y1, 1);
MouseClickDrag("left", $x, $y, $x1, $y1, 1);
if $i = 360 then
$i = 1
$a = $a - 1
endif
until $scale = 100

$i = 360
$cx = $cx + $scale
Do
$i = $i - $del
$scale = $scale - 1
$y = $cy + floor(sin($i * $degToRad) * $scale)
$y1 = $cy + floor(sin(($i-$del) * $degToRad) * $scale)
$x = $cx + floor(cos($i * $degToRad) * $scale)
$x1 = $cx + floor(cos(($i-$del) * $degToRad) * $scale)
;MouseMove($x, $y, $a)
MouseClickDrag("left", $x, $y, $x1, $y1, 0.02);
if $i = 0 then
$i = 360
$a = $a - 1
endif
until $scale = 0
#ce

$scale = 10
$max = 30

; ALTO SINISTRA
$i = 0
Do
$x = $cx + 0*$scale
$y = $cy + ($max - $i)*$scale
$x1 = $cx + $i*$scale
$y1 = $cy + 0*$scale
$i = $i + 1

MouseClickDrag("left", $x, $y, $x1, $y1, 1);

Until $i = $max + 1

; BASSO SINISTRA
$i = 0
;$cx = $cx + $max *$scale
$cy = $cy + $max *$scale*2
Do
$x = $cx + 0*$scale
$y = $cy - ($max - $i)*$scale
$x1 = $cx + $i*$scale
$y1 = $cy + 0*$scale
$i = $i + 1

MouseClickDrag("left", $x, $y, $x1, $y1, 1);

Until $i = $max + 1

; BASSO Destra
$i = 0
$cx = $cx + $max *$scale*2
;$cy = $cy + $max *$scale*2
Do
$x = $cx + 0*$scale
$y = $cy - ($max - $i)*$scale
$x1 = $cx - $i*$scale
$y1 = $cy + 0*$scale
$i = $i + 1

MouseClickDrag("left", $x, $y, $x1, $y1, 1);

Until $i = $max + 1

; ALTO Destra
$i = 0
$cy = $cy - $max *$scale*2
Do
$x = $cx + 0*$scale
$y = $cy + ($max - $i)*$scale
$x1 = $cx - $i*$scale
$y1 = $cy + 0*$scale
$i = $i + 1

MouseClickDrag("left", $x, $y, $x1, $y1, 1);

Until $i = $max + 1

;centrali!!!

$cx = 150 + $max * $scale
$cy = 150 + $max * $scale

$max = 20
; BASSO DESTRA
$i = 0
Do
$x = $cx + 0*$scale
$y = $cy + ($max - $i)*$scale
$x1 = $cx + $i*$scale
$y1 = $cy + 0*$scale
$i = $i + 1

MouseClickDrag("left", $x, $y, $x1, $y1, 1);

Until $i = $max + 1

; ALTO DESTRA
$i = 0
Do
$x = $cx + 0*$scale
$y = $cy - ($max - $i)*$scale
$x1 = $cx + $i*$scale
$y1 = $cy + 0*$scale
$i = $i + 1

MouseClickDrag("left", $x, $y, $x1, $y1, 1);

Until $i = $max + 1

; ALTO SINISTRA
$i = 0
Do
$x = $cx + 0*$scale
$y = $cy - ($max - $i)*$scale
$x1 = $cx - $i*$scale
$y1 = $cy + 0*$scale
$i = $i + 1

MouseClickDrag("left", $x, $y, $x1, $y1, 1);

Until $i = $max + 1

; BASSO SINISTRA
$i = 0
Do
$x = $cx + 0*$scale
$y = $cy + ($max - $i)*$scale
$x1 = $cx - $i*$scale
$y1 = $cy + 0*$scale
$i = $i + 1

MouseClickDrag("left", $x, $y, $x1, $y1, 1);

Until $i = $max + 1

Func lol()
Exit
EndFunc
[/code]

trouver sur emule lol

si sa te gave appui sur echap

@+ Vins

Je vais peut être avoir l'air de precher pour ma paroisse mais n'oubliez pas qu'un serveur ftp à été monté pour pouvoir stocker vos script dessus ( voir ce [url=https://autoit-fr.1fr1.net/General-c1/Vos-idees-pour-le-forum-f8/Serveur-FTP-t156.htm]Topic[/url])

Sinon le script est bien marrant

::)

vins t'aurai pu le traduire quand même, je reviend du test alors problème si la disposition des menu est differente il loupe completement le dessins .... meme si je vire les menu et bien le dessin n'est pas bien disposé (le gars doit avoir un ecran au dessus du mien (800*600)

Sinon c'est du top , j'ai une top idée la dessus
a discuter

ps:faudra indiquer le descriptif du script(et surtout bien le détailler !! Oublié pas les novices !! merci d'avance)
Et un petit screen

vous en pensez quoi?

Sympas !
Mais même remarque qu'Ani sur la résolution : en 1024 * 768 il ya un petit pb aussi

suit pas le seul ^^

sinon y a la possibilité de faire des spiral y a un block de commentaire a débloquer

donc pour le dessin faudra le repositionner.

; ORA SI INIZIAA!!
MouseMove(25, 140)
MouseClick("left")
$a = 3
$scale = 1
$cx = 50
$cy = 50
$pi = 3.14159265358979
$radToDeg = 180 / $pi
$degToRad = $pi / 180

et le petit dessin idem

;centré!!!
$cx = 50 + $max * $scale
$cy = 50 + $max * $scale

a 50 c'est quazi centré

suis encore sur ... telement que je trouve sa beau

question de novice, je vois qui fait une recherche de pixel, peut il faire la meme chose sur un photo exemple et de la reproduire ?

bo le dessain

bo le dessain