Bonjours.

je me suis récement mis au VBS (j'ai eu du mal, trop habitué au VB6).

voici un petit code d'entrainement, le but êtant de sortir un mot différent à l'arrivée.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
<HTML>
<HEAD>
<SCRIPT language="VBscript">
<!--
Option explicit
Sub ok_Onclick
dim Entre
dim listN 
dim numero 
dim rep
dim nums(32)
rep=Inputbox("Entrez votre Pseudo")
Entre=""
numero="1,2,8,3,14,7,14,13,3,1,14,22,17,22,17,22,17,22,17,22, 17,22,17,22,17,22,17,22,17,22,17,22"
listN ="1"
if replace(ListN,rep,"")<>listN then
        rep=Inputbox("Entrez le mot de passe")
        rep=replace(rep," ","")
        if len(rep)<32 then
                msgbox mid(rep,len(rep),1) & " ?"
                for i= 1 to len(rep)
                        nums(i-1)=mid(rep,i,1)
                next
                msgbox "ok"
                for i= 0 to 32
                        Entre=Entre & nums(val(split(numero,",")(i)))
                next
        end if
end if
msgbox Entre
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<FORM name="commande">
<INPUT name="ok" type="button"
value="Cliquez ici">
</FORM>
</BODY>
</HTML>
Malheuresement, il bloque sur cette partie(enfin je pense, vu qu'il m'affiche la msgbox de code juste avantetr pas celle après):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
for i= 1 to len(rep)
        nums(i-1)=mid(rep,i,1)
next
Si vous avez une idée...

Merci