random numbers

[Noobcube]

i want a script what will generate a 9 digit random number

e.g 123456987

but i cant seem to find anything useful in help

can anyone help me ?

[DCCD]

$Generate=InputBox("XXX", "How many?", "1000", "", 15, 15)
If @error Then Exit
$String=""
$hnd=FileOpen("Keys.txt", 1)
$i=0
Do
    $i=$i+1
    $String=""
    Do
        $Random=Random(0, 9, 1)
        $String=$String&$Random
    Until StringLen($String) > 9
If $i=$Generate Then
    FileWrite($hnd, $String)
Else
FileWrite($hnd, $String&@CRLF)
EndIf
Until $i=$Generate
FileClose($hnd)

Edited May 1, 2009 by DCCD

[Noobcube]

$Generate=InputBox("XXX", "How many?", "1000", "", 15, 15)
If @error Then Exit
$String=""
$hnd=FileOpen("Keys.txt", 1)
$i=0
Do
    $i=$i+1
    $String=""
    Do
        $Random=Random(0, 9, 1)
        $String=$String&$Random
    Until StringLen($String) > 9
If $i=$Generate Then
    FileWrite($hnd, $String)
Else
FileWrite($hnd, $String&@CRLF)
EndIf
Until $i=$Generate
FileClose($hnd)

thanks alot m8

how do i get it so it will just send the numbers straight to notepad?

[Noobcube]

thanks alot m8

how do i get it so it will just send the numbers straight to notepad?

can anyone help with that?

[DCCD]

$Generate=InputBox("Key Gen", "How many keys be made?", "1000", "", 15, 15)
If @error Then Exit
$String=""
Run("notepad.exe")
$i=0
Do
    $i=$i+1
    $String=""
    Do
        $Random=Random(0, 9, 1)
        $String=$String&$Random
    Until StringLen($String) > 9
If $i=$Generate Then
    WinWaitActive("Untitled -")
    Send($Sting)
Else
    WinWaitActive("Untitled -")
    Send($String&@CRLF)
EndIf
Until $i=$Generate

Edited May 1, 2009 by DCCD

[andybiochem]

WinActivate("[CLASS:Notepad]")
Send(Random(100000000,999999999,1))

[WideBoyDixon]

I see your two lines and raise you:

ControlSend("[CLASS:Notepad]", "", "[CLASS:Edit; INSTANCE:1]", Random(100000000,999999999,1) & @CR)

WBD

[andybiochem]

I see your two lines and raise you:

ControlSend("[CLASS:Notepad]", "", "[CLASS:Edit; INSTANCE:1]", Random(100000000,999999999,1) & @CR)

WBD

check!

$a = WinActivate("[CLASS:Notepad]") + Send(Random(100000000,999999999,1))

[CodyBarrett]

i Fold...