[R] Script composant toute possibilité

[wara]

bonjour, je voudrais créé un script capable de généré toute les combinaisons de chiffres possible avec 4 cases soit 10^4 (10 000) possibilité, j'ai créé un script mais il n'est pas complet car il ne créé pas toute les possibilités

► Afficher le texte

Code : Tout sélectionner

run("notepad.exe")
winwait("Sans titre - Notepad")
$1="-1"
$2="-1"
$3="-1"
$4="1"
$5="2"
$6="3"
$7="4"
$8="5"
$9="6"
$10="7"
$11="8"
$12="9"
$13="0"
$nb=0
$nb2=0
$nb3=0
$nb4=0
$nb5=0
$nb6=0
$nb7=0
$nb8=0
$nb9=0
$nb10=0
$nb11=0


$a=0;déclaration de variable


;incrémentation de variables puis affichage
while $1<9
    $1=$1+1
    send($1)
    sleep(500)
    send ( "{left}",0 )
send("{DEL}",0)

if $1=9 Then
    Send($a)
    $1=$1-9
    $nb=$nb+1
    EndIf
    
    if $nb=4 Then
        ExitLoop
        EndIf

wend

    send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    

while $3<9
    $3=$3+1
    send("{DEL}",0)
    send($3)
        sleep(500)
    send ( "{left}",0 )
    
    if $3=9 Then
            send("{DEL}",0)
            send($4)
            $3="1"
            $nb2=$nb2+1
        EndIf
        
        if $nb2=4 Then
            ExitLoop
            EndIf
        

    WEnd
    
send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    
    while $3<9
    $3=$3+1
    send("{DEL}",0)
    send($3)
        sleep(500)
    send ( "{left}",0 )
    
    if $3=9 Then
            send("{DEL}",0)
            send($5)
            $3="1"
            $nb3=$nb3+1
        EndIf
        
        if $nb3=4 Then
            ExitLoop
            EndIf
        

    WEnd
    
send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    
        while $3<9
    $3=$3+1
    send("{DEL}",0)
    send($3)
        sleep(500)
    send ( "{left}",0 )
    
    if $3=9 Then
            send("{DEL}",0)
            send($6)
            $3="1"
            $nb4=$nb4+1
        EndIf
        
        if $nb4=4 Then
            ExitLoop
            EndIf
        

    WEnd
    
send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    
        while $3<9
    $3=$3+1
    send("{DEL}",0)
    send($3)
        sleep(500)
    send ( "{left}",0 )
    
    if $3=9 Then
            send("{DEL}",0)
            send($7)
            $3="1"
            $nb5=$nb5+1
        EndIf
        
        if $nb5=4 Then
            ExitLoop
            EndIf
        

    WEnd
    
send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    
        while $3<9
    $3=$3+1
    send("{DEL}",0)
    send($3)
        sleep(500)
    send ( "{left}",0 )
    
    if $3=9 Then
            send("{DEL}",0)
            send($8)
            $3="1"
            $nb6=$nb6+1
        EndIf
        
        if $nb6=4 Then
            ExitLoop
            EndIf
        

    WEnd
    
send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    
    
        while $3<9
    $3=$3+1
    send("{DEL}",0)
    send($3)
        sleep(500)
    send ( "{left}",0 )
    
    if $3=9 Then
            send("{DEL}",0)
            send($9)
            $3="1"
            $nb7=$nb7+1
        EndIf
        
        if $nb7=4 Then
            ExitLoop
            EndIf
        

    WEnd
    
send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    
        while $3<9
    $3=$3+1
    send("{DEL}",0)
    send($3)
        sleep(500)
    send ( "{left}",0 )
    
    if $3=9 Then
            send("{DEL}",0)
            send($10)
            $3="1"
            $nb8=$nb8+1
        EndIf
        
        if $nb8=4 Then
            ExitLoop
            EndIf
        

    WEnd
    
send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    
    
        while $3<9
    $3=$3+1
    send("{DEL}",0)
    send($3)
        sleep(500)
    send ( "{left}",0 )
    
    if $3=9 Then
            send("{DEL}",0)
            send($11)
            $3="1"
            $nb9=$nb9+1
        EndIf
        
        if $nb9=4 Then
            ExitLoop
            EndIf
        

    WEnd
    
send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    
    
        while $3<9
    $3=$3+1
    send("{DEL}",0)
    send($3)
        sleep(500)
    send ( "{left}",0 )
    
    if $3=9 Then
            send("{DEL}",0)
            send($12)
            $3="1"
            $nb10=$nb10+1
        EndIf
        
        if $nb10=4 Then
            ExitLoop
            EndIf
        

    WEnd
    
send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    
        while $3<9
    $3=$3+1
    send("{DEL}",0)
    send($3)
        sleep(500)
    send ( "{left}",0 )
    
    if $3=9 Then
            send("{DEL}",0)
            send($13)
            $3="1"
            $nb11=$nb11+1
        EndIf
        
        if $nb11=4 Then
            ExitLoop
            EndIf
        

    WEnd
    
send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )
    send ( "{left}",0 )

    

 

merci de bien vouloir m'aider

[Tlem]

Ceci devrait aller :

Code : Tout sélectionner

Dim $Liste
$file = FileOpen("test.txt", 2)

If $file = -1 Then
    MsgBox(0, "Erreur", "Impossible de créér le fichier.")
    Exit
EndIf

For $j = 0 To 9
    For $k = 0 To 9
        For $l = 0 To 9
            For $m = 0 To 9
                FileWrite($file, $j & $k & $l & $m & @CRLF)
            Next
        Next
    Next
Next

FileClose($file)

ShellExecute("test.txt")

[wara]

Ok, merci beaucoup pour la réponse rapide, impréssionnant le script est très court moi qui me casser la tête à faire un script compliquer