Using Random

[Penisaurus]

I'm a bit confused with the Random function.

I looked over the help file and I get the basics, but I don't want numbers.

I've tried this.

$Ran = Random(10, 20)

Run("Notepad")
WinWait("Untitled - Notepad")
Send($Ran)

Then it gives a random number; in this case: 14.0981190651655

If I loop it, it keeps giving me the same number.

I'd like to make it so it displays random letters, how would I do that?

I'd also like it if it displays random letters, but not the same.

I'd like it to send the randoms so when it types it notepad it would type this, or something similar:

elekrjelkjlkrfjrlfkrjgwlkjd

dfjkrlgjrglkrgjrglkejtlkgjt

cedkjflrfjr54ltgkrjgtlkgjkj

Just whatever gibberish specified.

Help?

[somdcomputerguy]

Look over the help file some more. The example there shows how to get letters with the Function Random.

Edited March 11, 2010 by snowmaker

[JohnOne]

The way to go about this, id to generate a random to number and assign it to a variable ($i).

The variable then is used to represent an ascii decimal charactor number for a letter.

So the number will have to be withing the range of those letters you want to use.

[z0mgItsJohn]

I'm guessing this is what your trying to achieve.

Local $Alph = StringSplit ('ABCDEFGHIJKLMNOPQRSTUVWXYZ', ''); Puts the letters A-Z in to an array.
Local $MaxChar = 10, $Str = '', $Last = ''; $MaxChar = Max letters of gibberish.
For $A = 1 To $MaxChar; Start a for loop from 1 to $MaxChar
    Do
        $Ran = Random (1, $Alph[0], 1); Produce a random number within range of the $Alph array.
        Sleep (15); Sleep 15 milli-seconds to insure 0% CPU usage.
    Until $Ran <> $Last; Make sure the same number is not used twice.
    $Last = $Ran; Set the current random number to $Last so it is not used twice.
    Sleep (15); Sleep 15 milli-seconds to insure 0% CPU usage.
    $Str = $Str & $Alph[$Ran]; Update $Str with the newest letter of gibberish.
Next
Run ('Notepad'); Run notepad.
WinWait ('[CLASS:Notepad]'); Wait for notepad to open.
WinActivate ('[CLASS:Notepad]'); Make sure notepad is on top.
Send ($Str); Set $Str to notepad.

Hope this helps!

- John

[jchd]

To avoid repetitive results, use SRandom(@AutoitPID) before using Random(). Not completely foulproof, but better than no seed.

@John2010zz, Penisaurus

FYI, avoiding duplicate letters in a row gives a _less_ random output than when no such filtering is used.

[ALFJ]

I'm guessing this is what your trying to achieve.

Local $Alph = StringSplit ('ABCDEFGHIJKLMNOPQRSTUVWXYZ', ''); 
Local $MaxChar = 10, $Str = '', $Last = ''; $MaxChar = Max letters of gibberish.
For $A = 1 To $MaxChar; Start a for loop from 1 to $MaxChar
    Do
        $Ran = Random (1, $Alph[0], 1); Produce a random number within range of the $Alph array.
        Sleep (15); Sleep 15 milli-seconds to insure 0% CPU usage.
    Until $Ran <> $Last; Make sure the same number is not used twice.
    $Last = $Ran; Set the current random number to $Last so it is not used twice.
    Sleep (15); Sleep 15 milli-seconds to insure 0% CPU usage.
    $Str = $Str & $Alph[$Ran]; Update $Str with the newest letter of gibberish.
Next
Run ('Notepad'); Run notepad.
WinWait ('[CLASS:Notepad]'); Wait for notepad to open.
WinActivate ('[CLASS:Notepad]'); Make sure notepad is on top.
Send ($Str); Set $Str to notepad.

Hope this helps!

- John

Pretty good one, use it all the time for Random session generation

Changed it a lil so you can choose the # of random characters to generate and return 10random characters if the $MaxChar is left blank when called.

Func _RandSession($MaxChar=10)

Local $Alph = StringSplit ('ABCDEFabcdef123456789', ''); Use these characters in the returned random string ($Str).

Local $Str = '', $Last = ''
For $A = 1 To $MaxChar; Start a for loop from 1 to $MaxChar
    Do
        $Ran = Random (1, $Alph[0], 1); Produce a random number within range of the $Alph array.
        Sleep (15); Sleep 15 milli-seconds to insure 0% CPU usage.
    Until $Ran <> $Last; Make sure the same number is not used twice.
    $Last = $Ran; Set the current random number to $Last so it is not used twice.
    Sleep (15); Sleep 15 milli-seconds to insure 0% CPU usage.
    $Str = $Str & $Alph[$Ran]; Update $Str with the newest random character.
Next
Return $Str
EndFunc

Example:

ConsoleWrite('Random Session using 4 = ' & _RandSession(4) & @CRLF);Returns 4 random characters
ConsoleWrite('Random Session using no input = ' & _RandSession() & @CRLF) ;Returns 10 Random Characters

Edited March 21, 2011 by ALFJ