[R] Windows 7 lit-il différament les scipts .au3 ?

[Kikoolol]

Bonjour à tous.
Voici mon problème, j'ai crée un script assez banale sous Windows XP.
J'installe alors Windows Seven et lance mon script, et à ma grande surprise, une erreur surgit très rapidement.
La fameuse erreur "Subscript used without non-array variable".

Voici la ligne en question

Code : Tout sélectionner

    $Non = PixelSearch( $FirstPixel[0] + (492 * $CoefX), $FirstPixel[1] + (445 * $CoefY), $FirstPixel[0] + (498 * $CoefX), $FirstPixel[1] + (452 * $CoefY), 15891243)
    If $Non <> 1 Then
        MouseClick("Left", $Non[0], $Non[1], 1, 0)
    EndIf

J'ai remplacer $Non <> 1 par "Not @Error", et cela fonctionne parfaitement !
Seulement mon code est assez longs et tous remplacer serait très fastidieux... des idées pour gagner du temps et ne pas refaire la même erreur ?

Merci d'avance

[periaz]

Si il te met un message ce type, c'est que tu as oublié de déclarer une des variables suivantes : $FirstPixel, $CoefX et $CoefY

[Kikoolol]

L'erreur survient lors du MouseClick, donc les variables $FirstPixel et autre sont bien déclarer (plus haut dans le script). Désolé j'ai oublier de le préciser ^^'.

[periaz]

Je pense qu'il y a un problème au niveau du "If $Non <> 1" car normalement un pixel search renvoie une position en utilisant [0] et [1].
La tu lui demande si il est égale à 1. Je ne comprends pas ^^
Et moi je ferais à ta place :

Code : Tout sélectionner

    $Non = PixelSearch( $FirstPixel[0] + (492 * $CoefX), $FirstPixel[1] + (445 * $CoefY), $FirstPixel[0] + (498 * $CoefX), $FirstPixel[1] + (452 * $CoefY), 15891243)
    If not @error Then
        MouseClick("Left", $Non[0], $Non[1], 1, 0)
    EndIf

[Kikoolol]

Oui ton écriture fonctionne, mais chez moi sous xp le "<> 1" également !
Dans l'aide j'ai pu trouver ceci :" Failure: Sets @error to 1 if color is not found. "
J'ai du mal a comprendre pourquoi 2 lectures différentes...

Edit : J'ajoute aussi qu'une fois le script avec les "<> 1" compiler, il fonctionne parfaitement sous seven et XP !

[periaz]

Je ne sais pas t'expliquer cela par contre désolé.
Garde le If not @error Then, ce sera mieux je pense ^^

[Kikoolol]

C'est ce que je vais faire si je ne trouve pas d'autre solution.
En tout cas merci beaucoup pour ton aide.

[Tlem]

En fait, l'explication est relativement simple.
PixelSearch() renvoi deux types d'informations :
- Si le pixel est trouvé, alors la valeur de retour est un tableau.
- Si le pixel n'est pas trouvé, alors la valeur de retour est 0 et @error est mis à 1.

Dans votre code, vous dite : If $Non <> 1 Then
Le problème, c'est que $Non sera toujours différent de 1 et donc si le pixel n'est pas trouvé, alors $Non = 0 et $Non[0] ainsi que $Non[0] n'existe pas, d'où l'erreur de variable.

Vous n'avez d'autres solutions que de tester $Non pour savoir si c'est un tableau (IsArray()), ou plus simplement de vérifier @error.
Sachez qu'il existe dans Scite une fonction de remplacement de code.
Donc si vous avez cette ligne à de nombreuses reprises, utilisez la fonction remplacer.

[Kikoolol]

Pourtant j'utilise cette méthode depuis toujours et je n'ai jamais eu de problème... je vérifirais demain mais je suis presque sûr.
Mais dans ce cas la pourquoi une erreur sous Seven et pas sous XP ?

[Tlem]

Difficile de répondre comme ça.
Il faudrait analyser les résultats de $Non sur les deux OS dans les mêmes conditions.

[Kikoolol]

J'ai regarder sur les deux OS,
Sous XP, lorsque la valeur n'est pas trouvé, $Non = 1. Quand elle est trouvé $Non = "Rien"
Sous Seven, lorsque la valeur n'est pas trouvé $Non = 0. Quand elle est trouvé $Non = "Rien"

Le "If not @error Then" fonctionne très bizarrement sur les deux OS, je ne sais plus quoi écrire...
Si vous pouvez essayer chez vous cela me rendrais un grand service.

Merci d'avance.

[Tlem]

Quoi qu'il en soit, vous ne devez pas utiliser la valeur de retour pour tester si la fonction c'est bien déroulé.

Vous devez impérativement contrôler la variable @error.
Certaines fonctions sont ainsi faite.
Si vous lisez la documentation de certaines fonctions, il n'est pas fait état d'un retour de 0 ou de 1 en cas de succès ou d'échec et dans ces cas là il faut vérifier @error.

[Kikoolol]

Très bien je vais donc utiliser "If not @error"
Mais comment faire lorsque je vérifie 2 pixelsearch ?

$Search1 = PixelSearch(blabla)
$Search2 = PixelSearch(blabla)

If [Le $Search2 est bon mais pas le $search1] then

Comment écrire ceci avec des @error ?

[Tlem]

Une solution comme une autre :

► Afficher le texte

Code : Tout sélectionner

$Error = 0
$Search1 = PixelSearch(blabla)
If @error Then $Error = 1
$Search2 = PixelSearch(blabla)
If @error Then $Error = 1

If $Error = 1 Then MsgBox(16, 'Erreur', 'Il y a eu une erreur')

[Kikoolol]

Merci beaucoup, mais apparemment je ne sais pas pourquoi mais sous Seven parfois les @error fonctionne et des fois non...

Exemple, ce code ne fonctionne pas :

Code : Tout sélectionner

    $CheckFight = PixelSearch( Blabla)
    If $CheckFight <> @error Then
        MouseMove($CheckFight[0], $CheckFight[1], 5)
        $Fight = True
    EndIf

L'erreur m'indique que le MouseMove est impossible normal puisque le pixel n'as pas été trouvé !

Tandis qu'un peu plus tôt dans mon code, ceci fonctionne :

Code : Tout sélectionner

    $EchangeNon = PixelSearch(Blabla)
    If not @error Then
        MouseClick("Left", $EchangeNon[0], $EchangeNon[1], 1, 0)
    EndIf

Pas de pixel trouvé, pas d'erreur...

Je ne comprend pas, les 2 scripts sont pourtant tout les deux des includes.

[Tlem]

Vous confondez plusieurs choses.
Dans votre exemple :

Code : Tout sélectionner

    $CheckFight = PixelSearch( Blabla)
    If $CheckFight <> @error Then
        MouseMove($CheckFight[0], $CheckFight[1], 5)
        $Fight = True
    EndIf

Vous utilisez la valeur de retour du PixelSearch() qui est ici $CheckFight.
Or je vous ai dit de ne pas utiliser cette valeur pour tester une erreur.
$CheckFight ne sera jamais égal à @error.
@error est une variable à part.

Dans $CheckFight = PixelSearch( Blabla) la variable $CheckFight peut être égale à un tableau (si le pixel est trouvé) ou à une valeur bidon (1 ou 0 selon l'OS).
Donc c'est pour ça que vous ne devez pas compter sur cette valeur de retour pour effectuer un test de validité de la fonction (pour l'instant).

On récapitule :

Code : Tout sélectionner

$CheckFight = PixelSearch( Blabla)
Msgbox(0, '', '@error = ' & @error)

- Si le pixel est trouvé alors $CheckFight est un tableau à deux dimentions des coordonnées de ce pixel et @error = 0

- Si le pixel n'est pas trouvé alors $CheckFight est égal à une valeur non fixe selon l'OS (0, 1, ou '"") et @error = 1

[Kikoolol]

Ah d'accord j'ai compris !
Ca fonctionne parfaitement sur les deux OS
Merci beaucoup à vous deux !