Page 1 sur 1

[..] Ecriture de nombre avec "Send"

Posté : jeu. 21 août 2008 17:29
par Sakoz
Bonjour,

Voilà je n'arrive pas à automatiser l'écriture de nombres avec la fonction "Send", qui remplace les chiffres par le caractère correspondant sur le clavier : ex : 5 => (

Existe-t-il une fonction qui permette d'écrire une variable numérique ?

Merci d'avance.

Re: Ecriture de nombre avec "Send"

Posté : jeu. 21 août 2008 17:50
par Ahbadiane
Est-ce que le code suivant (adaptation de l'exemple send) fonctionne ?

Code : Tout sélectionner

Send("#r")
WinWaitActive("Exécuter")
Send("notepad.exe{Enter}")
WinWaitActive("Sans titre -")
Send("1, 2, 3, 4, 5, 6, ...")

Re: Ecriture de nombre avec "Send"

Posté : jeu. 21 août 2008 20:24
par jbnh
hé non Ahbadiane.

Ton script écrira 1 2 3 4 5 et non & é " ' (

Bref, pourquoi ne pas passer direct par le send pour envoyé une parenthèse:

exemple:

Code : Tout sélectionner

Send("{ASC 40}")
tu trouves tous ca ici: http://www.autoitscript.fr/autoit3/docs ... /ascii.htm

Re: [..] Ecriture de nombre avec "Send"

Posté : ven. 22 août 2008 16:52
par Sakoz
Je viens de me rendre compte que ça marche très bien dans le bloc note, mais pas là où je veux l'écrire.
Veuillez m'excuser pr le dérangement.

Re: [..] Ecriture de nombre avec "Send"

Posté : ven. 22 août 2008 17:22
par jbnh
Quel dérangement? :)

Code : Tout sélectionner

Dim $n[10]
$var = "5986"

$n[1] = "&" 
$n[2] = "é" 
$n[3] = '"' 
$n[4] = "'" 
$n[5] = "(" 
$n[6] = "§" 
$n[7] = "è" 
$n[8] = "!" 
$n[9] = "ç" 
$n[0] = "à" 


$newvar = ""
$y = StringSplit($var, "")
For $x = 1 To $y[0]
    $newvar &= $n[$y[$x]]
Next
msgBox(0, "Modification",'$newvar = ' & $newvar & @CRLF)
Ça devrait marcher