AutoIt Français

Nouveau forum : http://www.autoitscript.fr/
 
AccueilFAQRechercherS'enregistrerMembresGroupesConnexionhttp://www.autoitscript.fr

Partagez | 
 

 Dessin sur paint (lol)

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Vins83
Membre affirmé


Nombre de messages : 106
Localisation : Hyeres (83)
Date d'inscription : 28/02/2007

MessageSujet: Dessin sur paint (lol)   2007-03-16, 13:54

[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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Crad-Vador
Membre


Nombre de messages : 23
Age : 30
Localisation : Clermont-Ferrand
Date d'inscription : 04/01/2007

MessageSujet: Re: Dessin sur paint (lol)   2007-03-16, 14:15

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=http://autoit-fr.realbb.net/General-c1/Vos-idees-pour-le-forum-f8/Serveur-FTP-t156.htm]Topic[/url])

Sinon le script est bien marrant
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.crad-vador.net
ani
Modérateur
Modérateur


Nombre de messages : 563
Date d'inscription : 23/01/2007

MessageSujet: Re: Dessin sur paint (lol)   2007-03-17, 12:52

::)

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?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
sylvanie
Modérateur
Modérateur


Nombre de messages : 300
Date d'inscription : 10/03/2007

MessageSujet: Re: Dessin sur paint (lol)   2007-03-17, 13:59

Sympas !
Mais même remarque qu'Ani sur la résolution : en 1024 * 768 il ya un petit pb aussi
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
ani
Modérateur
Modérateur


Nombre de messages : 563
Date d'inscription : 23/01/2007

MessageSujet: Re: Dessin sur paint (lol)   2007-03-17, 14:15

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 ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
lechat!!!
Débutant
Débutant


Nombre de messages : 4
Date d'inscription : 28/07/2007

MessageSujet: Re: Dessin sur paint (lol)   2007-07-29, 00:06

bo le dessain
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
lechat!!!
Débutant
Débutant


Nombre de messages : 4
Date d'inscription : 28/07/2007

MessageSujet: Re: Dessin sur paint (lol)   2007-07-29, 00:06

bo le dessain
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Dessin sur paint (lol)   Aujourd'hui à 22:39

Revenir en haut Aller en bas
 
Dessin sur paint (lol)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [Résolu]supression paint-net
» Ce n'est plus seulement un dessin...
» pixel art ?
» Librairie "Dessin dynamique"
» Logiciels de 3D comme Body Paint 3D ou Deep Paint 3D... ?

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
AutoIt Français :: AutoIt v3 :: Scripts-
Sauter vers: