|
Mise à jour : 10/11/2011
3 274 visites depuis 7 jours,
dont 110 sur ce chapitre
classé 50/786
|



1 | HotKeySet ( "key" [, "function"] ) |
1 | HotKeySet("{ESC}", "Quitter") |
1 | Send ( "keys" ) |
1 | Send ( "aze" ) |

1 | Send ( "aze{ENTER}{ESC}" ) |
1 2 | Send("!f")
Send("^!a")
|
{!} et {{} feront l'affaire !
1 | MouseMove ( x, y [, speed] ) |
1 | MouseMove (@DesktopWidth/2,@DesktopHeight/2 );Déplace le curseur au milieu de l'écran. |
1 | MouseClick ( "button" [, x, y [, clicks [, speed ]]] ) |
)1 2 | ; Double click à 0,500
MouseClick("left", 0, 500, 2) |
1 | MouseGetPos ( [dimension] ) |
1 2 | $pos = MouseGetPos() MsgBox(0, "Mouse x,y:", $pos[0] & "," & $pos[1]) |

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | ;/////////////////////////////////////
;Libellé : Tutoriel Site Du Zéro
;Auteur : Malossane Timothée
;Fonction : Jouons avec le Bloc-Notes
;Date : 18/09/2011
;//////////////////////////////////////
HotKeySet("^q","quitter") ; Si on appuie sur Ctrl+Q , on ferme le jeu
Global $quitter = false,$nbEssai = 0 ; Déclaration des variables globales
If @OSBuild >= 5513 Then ;Si Windows Vista ou supérieur, on agrandit le champ de recherche pour s'adapter au style AERO.
$interval = 70
Else
$interval = 30
EndIF
$Pid = Run("notepad.exe") ; On lance le bloc-notes
$Handle = WinWaitActive("[CLASS:Notepad]");On attend qu'il soit bien lancé.
Send("Ceci est un jeu créé pour le tutoriel du SiteDuZero par timmalos."&@CRLF)
Send("Le but est simple : fermer cette fenêtre !"&@CRLF)
Send("Si tu n'y arrive pas, appuie sur Ctrl+Q, nous t'aiderons"&@CRLF)
While Not $quitter ; Tant que l'utilisateur n'a pas appuyé sur Ctrl+q
;On récupère les coordonnées de notre fenêtre.
$Fenetre = WInGetPos("[CLASS:Notepad]") ;WinGetPos renvoie un tableau [X, Y, Largeur, Hauteur]
;On calcule les coordonnées de la croix rouge.
$FenetreX1 = $Fenetre[0]+ $Fenetre[2]-$interval
$FenetreX2 = $Fenetre[0]+ $Fenetre[2]
$FenetreY1 = $Fenetre[1]
$FenetreY2 = $Fenetre[1]+ 30
;On récupère les coordonnées de la souris.
$Souris = MouseGetPos()
If ($Souris[0] >= $FenetreX1 AND $Souris[0] <= $FenetreX2) AND ($Souris[1] >= $FenetreY1 AND $Souris[1] <= $FenetreY2)Then
$NbEssai +=1
WinMove("[CLASS:Notepad]","",Random(1,@DesktopWidth-$Fenetre[2],1),Random(1,@DesktopHeight-$Fenetre[3],1),$Fenetre[2],$Fenetre[3]) ; On bouge la fenêtre aléatoirement
WinSetTitle("[CLASS:Notepad]", "", "C'etait ton essai n° "&$NbEssai&". Essaye encore ! (Ctrl+q pour abandonner et quitter.)") ; On change le titre.
EndIf
Sleep(200)
WEnd
;Si on arrive là, c'est que l'utilisateur a appuyé sur Ctrl+q
Send("Tu t'avoues vaincu ?, je vais la fermer pour toi !"&@CRLF)
Sleep(2000)
ProcessClose($pid)
Func quitter()
$quitter = True
EndFunc |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | Run("notepad.exe")
$texte = "0x2020205F5F5F5F5F205F205F20202020"& _
"202020205F5F5F5F5F20202020202020205F5F5F5F5F5"& _
"F2020202020202020202020202020200A20202F205F5F"& _
"5F5F285F29207C2020202020207C20205F5F205C20202"& _
"02020207C5F5F5F20202F202020202020202020202020"& _
"2020200A207C20285F5F5F20205F7C207C5F20205F5F5"& _
"F7C207C20207C207C5F2020205F2020202F202F20205F"& _
"5F5F205F205F5F205F5F5F20200A20205C5F5F5F205C7"& _
"C207C205F5F7C2F205F205C207C20207C207C207C207C"& _
"207C202F202F20202F205F205C20275F5F2F205F205C2"& _
"00A20205F5F5F5F29207C207C207C5F7C20205F5F2F20"& _
"7C5F5F7C207C207C5F7C207C2F202F5F5F7C20205F5F2"& _
"F207C207C20285F29207C0A207C5F5F5F5F5F2F7C5F7C"& _
"5C5F5F7C5C5F5F5F7C5F5F5F5F5F2F205C5F5F2C5F2F5"& _
"F5F5F5F5F7C5C5F5F5F7C5F7C20205C5F5F5F2F200A0A"& _
"0A20205F5F5F5F5F202020202020205F2020202020202"& _
"0202020202020205F2020202020205F2020202020205F"& _
"2020202020202020205F20202020202020205F5F5F205"& _
"F5F5F5F5F200A207C5F2020205F7C5F2020205F7C207C"& _
"5F20205F5F5F20205F205F5F285F29205F5F5F7C207C2"& _
"02020202F205C20205F2020205F7C207C5F20205F5F5F"& _
"7C5F205F7C5F2020205F7C0A2020207C207C207C207C2"& _
"07C207C205F5F7C2F205F205C7C20275F5F7C207C2F20"& _
"5F205C207C2020202F205F205C7C207C207C207C205F5"& _
"F7C2F205F205C7C207C20207C207C20200A2020207C20"& _
"7C207C207C5F7C207C207C5F7C20285F29207C207C202"& _
"07C207C20205F5F2F207C20202F205F5F5F205C207C5F"& _
"7C207C207C5F7C20285F29207C207C20207C207C20200"& _
"A2020207C5F7C20205C5F5F2C5F7C5C5F5F7C5C5F5F5F"& _
"2F7C5F7C20207C5F7C5C5F5F5F7C5F7C202F5F2F20202"& _
"05C5F5C5F5F2C5F7C5C5F5F7C5C5F5F5F2F5F5F5F7C20"& _
"7C5F7C202020202020202020202020202020202020202"& _
"0202020202020202020202020202020202020202020"
$texte = BinaryToString($texte)
WinWaitActive("[CLASS:Notepad]")
WinSetTitle("[CLASS:Notepad]", "", "Tutoriel Autoit du SiteDuZero")
Send($texte) |

