Programming'z fury Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Speed Travel De nouveau pour Dofus

 
Répondre au sujet    Programming'z fury Index du Forum » Apprentis-Programmeurs » Projets Sujet précédent
Sujet suivant
Speed Travel De nouveau pour Dofus
Auteur Message
Oxyder
Programmeur

Hors ligne

Inscrit le: 23 Avr 2010
Messages: 70
Sexe: Masculin

Message Speed Travel De nouveau pour Dofus Répondre en citant
Alors voilà ... j'aimerais faire en sorte que en cliquant sur les flèches haut,bas,gauche,droite l'ordinateur clique tout seul sour le socle de changement de map.
Seul problème il faut mettre l'ordi en attente qu'on tape sur une touche ...

Code:

#Include <Misc.au3>
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         myName

 Script Function:
   Template AutoIt script.

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

; Script Start - Add your code below here

Dim $hexMap_change = 0x93B91F
Dim $coord_change_map[2] = [0, 0]

WinExists("Dofus")

While 1
   WinExists("Dofus")

If _IsPressed (119) Then ;Si on appuie sur la touche"w"
   While 1
      $coord_change_map = PixelSearch(197, 47, 786, 75, $hexMap_change)
      If ($coord_change_map <> @error) Then ExitLoop
   WEnd
   MouseClick("left", $coord_change_map[0], $coord_change_map[1], 1, 5)
EndIf

If _IsPressed (115) Then ;Si on appuie sur la touche"s"
   While 1
      $coord_change_map = PixelSearch(197, 550, 868, 583, $hexMap_change)
      If ($coord_change_map <> @error) Then ExitLoop
   WEnd
   MouseClick("left", $coord_change_map[0], $coord_change_map[1], 1, 5)
EndIf

If _IsPressed (100) Then ;Si on appuie sur la touche"d"
   While 1
      $coord_change_map = PixelSearch(909, 130, 973, 513, $hexMap_change)
      If ($coord_change_map <> @error) Then ExitLoop
   WEnd
   MouseClick("left", $coord_change_map[0], $coord_change_map[1], 1, 5)
EndIf

If _IsPressed (97) Then ;Si on appuie sur la touche"a"
   While 1
      $coord_change_map = PixelSearch(52, 130, 109, 513, $hexMap_change)
      If ($coord_change_map <> @error) Then ExitLoop
   WEnd
   MouseClick("left", $coord_change_map[0], $coord_change_map[1], 1, 5)
EndIf

If _IsPressed ("{ESC}") Then ;Si on appuie sur la touche"Escape"
    ExitLoop
EndIf
WEnd





Dernière édition par Oxyder le Sam 1 Mai - 13:59 (2010); édité 1 fois
Sam 1 Mai - 12:17 (2010)
Publicité






Message Publicité
PublicitéSupprimer les publicités ?

Sam 1 Mai - 12:17 (2010)
Djrix
Administrateur

Hors ligne

Inscrit le: 30 Oct 2008
Messages: 170
Localisation: ...
Sexe: Masculin
Poissons (20fev-20mar) 龍 Dragon

Message Speed Travel De nouveau pour Dofus Répondre en citant
Salut !
Alors, je pense que tu vas remplacer les HotKeySet par des _IsPressed.
Pour utiliser cette commande, il faut inclure l'include <misc.au3>
Elle prend pour paramètre le code hexadécimal de la touche et renvoie un booléen pour te dire si la touche est pressée ou pas.
Par exemple:

Code:
#include <misc.au3> ;L'include sinon ça marche pas
While 1 ;boucle infinie
     If _IsPressed(71) Then ExitLoop ;Si on appuie sur F2, on quitte la boucle.
Wend ;Fin de la boucle



Sam 1 Mai - 13:02 (2010)
Oxyder
Programmeur

Hors ligne

Inscrit le: 23 Avr 2010
Messages: 70
Sexe: Masculin

Message Speed Travel De nouveau pour Dofus Répondre en citant
Voilà le nouveau code mais essai de le run il y à une erreur avec le If pour escape
Il dit :
If _IsPressed (1B) Then
If _IsPressed (^ERROR
Error : Unable parse Line.


Code:

#Include <Misc.au3>
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         myName

 Script Function:
   Template AutoIt script.

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

; Script Start - Add your code below here

Dim $hexMap_change = 0x93B91F
Dim $coord_change_map[2] = [0, 0]

WinExists("Dofus")

While 1
   WinExists("Dofus")

If _IsPressed (77) Then ;Si on appuie sur la touche"w"
   While 1
      $coord_change_map = PixelSearch(197, 47, 786, 75, $hexMap_change)
      If ($coord_change_map <> @error) Then ExitLoop
   WEnd
   MouseClick("left", $coord_change_map[0], $coord_change_map[1], 1, 5)
EndIf

If _IsPressed (73) Then ;Si on appuie sur la touche"s"
   While 1
      $coord_change_map = PixelSearch(197, 550, 868, 583, $hexMap_change)
      If ($coord_change_map <> @error) Then ExitLoop
   WEnd
   MouseClick("left", $coord_change_map[0], $coord_change_map[1], 1, 5)
EndIf

If _IsPressed (64) Then ;Si on appuie sur la touche"d"
   While 1
      $coord_change_map = PixelSearch(909, 130, 973, 513, $hexMap_change)
      If ($coord_change_map <> @error) Then ExitLoop
   WEnd
   MouseClick("left", $coord_change_map[0], $coord_change_map[1], 1, 5)
EndIf

If _IsPressed (61) Then ;Si on appuie sur la touche"a"
   While 1
      $coord_change_map = PixelSearch(52, 130, 109, 513, $hexMap_change)
      If ($coord_change_map <> @error) Then ExitLoop
   WEnd
   MouseClick("left", $coord_change_map[0], $coord_change_map[1], 1, 5)
EndIf

If _IsPressed (1B) Then ;Si on appuie sur la touche"Escape"
    ExitLoop
EndIf
WEnd






Sam 1 Mai - 14:09 (2010)
Djrix
Administrateur

Hors ligne

Inscrit le: 30 Oct 2008
Messages: 170
Localisation: ...
Sexe: Masculin
Poissons (20fev-20mar) 龍 Dragon

Message Speed Travel De nouveau pour Dofus Répondre en citant
Comme c'est du code Hexa, si il y a une lettre, tu dois mettre des guillemets:
If _IsPressed ("1B") Then


Sam 1 Mai - 14:24 (2010)
Oxyder
Programmeur

Hors ligne

Inscrit le: 23 Avr 2010
Messages: 70
Sexe: Masculin

Message Speed Travel De nouveau pour Dofus Répondre en citant
Bon j'ai changé ça ... pour quitter ça marche mais pas le reste .... je vais mettre de msg box partout pour voir ou 4a coince


Sam 1 Mai - 14:45 (2010)
Djrix
Administrateur

Hors ligne

Inscrit le: 30 Oct 2008
Messages: 170
Localisation: ...
Sexe: Masculin
Poissons (20fev-20mar) 龍 Dragon

Message Speed Travel De nouveau pour Dofus Répondre en citant
Content de voir que tu assimiles bien ce que je te dis Wink


Sam 1 Mai - 14:46 (2010)
Oxyder
Programmeur

Hors ligne

Inscrit le: 23 Avr 2010
Messages: 70
Sexe: Masculin

Message Speed Travel De nouveau pour Dofus Répondre en citant
Alors ... esc marche ... et j'ai mis ds msgBox dedans les If_IsPressed XXXX
Et quand j'appuie sur une touche ... il rentre même pas dans le If ça le msgBox ne s'affiche pas


Sam 1 Mai - 14:50 (2010)
Oxyder
Programmeur

Hors ligne

Inscrit le: 23 Avr 2010
Messages: 70
Sexe: Masculin

Message Speed Travel De nouveau pour Dofus Répondre en citant

Code:

#Include <Misc.au3>
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         Oxyder

 Script Function:
   Template AutoIt script.

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

; Script Start - Add your code below here

Dim $hexMap_change = 0x93B91F
Dim $coord_change_map[2] = [0, 0]

WinExists("Dofus")
MsgBox(0, "srskgnkj", "dofus connecté")
While 1
   WinExists("Dofus")

If _IsPressed (119) Then ;Si on appuie sur la touche"w" 77

     MsgBox(0, "srskgnkj", "W")

   While 1
      $coord_change_map = PixelSearch(197, 47, 786, 75, $hexMap_change)
      If ($coord_change_map <> @error) Then ExitLoop
   WEnd
   MouseClick("left", $coord_change_map[0], $coord_change_map[1], 1, 5)
EndIf

If _IsPressed (73) Then ;Si on appuie sur la touche"s"
   MsgBox(0, "srskgnkj", "S")
   While 1
      $coord_change_map = PixelSearch(197, 550, 868, 583, $hexMap_change)
      If ($coord_change_map <> @error) Then ExitLoop
   WEnd
   MouseClick("left", $coord_change_map[0], $coord_change_map[1], 1, 5)
EndIf

If _IsPressed (64) Then ;Si on appuie sur la touche"d"
   MsgBox(0, "srskgnkj", "D")
   While 1
      $coord_change_map = PixelSearch(909, 130, 973, 513, $hexMap_change)
      If ($coord_change_map <> @error) Then ExitLoop
   WEnd
   MouseClick("left", $coord_change_map[0], $coord_change_map[1], 1, 5)
EndIf

If _IsPressed (61) Then ;Si on appuie sur la touche"a"
   MsgBox(0, "srskgnkj", "A")
   While 1
      $coord_change_map = PixelSearch(52, 130, 109, 513, $hexMap_change)
      If ($coord_change_map <> @error) Then ExitLoop
   WEnd
   MouseClick("left", $coord_change_map[0], $coord_change_map[1], 1, 5)
EndIf

If _IsPressed ("1B") Then ;Si on appuie sur la touche"Escape"
    ExitLoop
EndIf
WEnd






Sam 1 Mai - 15:01 (2010)
Oxyder
Programmeur

Hors ligne

Inscrit le: 23 Avr 2010
Messages: 70
Sexe: Masculin

Message Speed Travel De nouveau pour Dofus Répondre en citant
Bon je pense que celui là seras fait avec les sockets.


Sam 15 Mai - 16:55 (2010)
Contenu Sponsorisé






Message Speed Travel De nouveau pour Dofus

Aujourd’hui à 00:46 (2018)
Montrer les messages depuis:    
Répondre au sujet    Programming'z fury Index du Forum » Apprentis-Programmeurs » Projets Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers: 

Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Design by Freestyle XL / Music Lyrics.Traduction par : phpBB-fr.com