something not working right....

[-TS-]

im trying to make a random set 5 to 15letters/numbers

$A = Random( 5 , 15 )

$a2 = 1

do

$a2 = $a2 + 1

$Abc123 = Random( 1 , 36 )

if $Abc123 = 1 then

Endif

send("a")

if $Abc123 = 2 then

Endif

send("b")

if $Abc123 = 3 then

Endif

...

if $Abc123 = 36 then

Endif

send("0")

until $a2 = $A

but it alweys comes up with abcde.....

THX *TS*

[-TS-]

o my nvm that i saw the problem.... LMAO

[CyberSlug]

So what was the problem?

Anyway, you could greatly simply your code with the CHR command....

$Abc123 = Random( 1 , 36 )

If $Abc123 > 26 Then;numbers 0-9
    Send( Chr(27 + $Abc123) )
Else;letters a-z
    Send( Chr(96 + $Abc123) )
EndIf

Here's a chart for your reference:

Chr(48) == "0" ... Chr(57) == "9"

...

Chr(65)== "A" ... Chr(90) == "Z"

...

Chr(97) = "a" ... Chr(122) == "z"

Maybe you will find this useful

EDIT: Also, the select case command could come in handy.

Edited December 7, 2003 by CyberSlug

[-TS-]

na i found out what i was doing wrong the endif statement is befor the if command

[CyberSlug]

Thanks for replying--I overlooked that!

Still, take a look at my suggested code.....

[-TS-]

thx, that looks like it would save 200+ lines of codes

[CyberSlug]

I just realized a slightly more straight-forward way:

$alphabet = "abcdefghijklmnopqrstuvwxyz1234567890"

$Abc123 = ""
For $i = 1 to Random(5,15)
  $Abc123 = $Abc123 & StringMid($alphabet, Random(1,36), 1) 
Next

Send($Abc123)

[-TS-]

o wow, i guess i should read and play with all the commands... THX