Spambot Problem

[t0pcraft-]

Hey!
I'm making a Spambot atm (for fun only).
You can customize up to 10 messages which will be displayed in the given order.
Now i thought: Why don't you make a feature that allows the Bot to spam the messages randomized, meaning they are not displayed in the normal order, but in a random one.
Well, the problem is: I don't find a proper function/ I don't know how to randomize it!
(I'm using AutoIt3.)

I created some input boxes in which the user can put some text, and declared them:

$msg1_input = GuiCtrlCreateInput("1st Message Text", 85, 86, 260, 20)
$msg2_input = GuiCtrlCreateInput("2nd Message Text", 85, 110, 260, 20)
...

To handle with them, i did the following thing:

$msg1 = GUICtrlRead($msg1_input)
$msg2 = GUICtrlRead($msg2_input)
...

Now, the Spambot works really fine, BUT JUST IN THE NORMAL MODE:

Func Spambot ()
    Select
    Case $mode = 1
        While $stop > 2
       // Not Important
        WEnd
    Case $mode = 2
        While $stop > 2
        Send(Random($msg1, $msg2, $msg3, $msg4, $msg5, $msg6, $msg7, $msg8, $msg9, $msg10))
        Send ("{ENTER}")
        Sleep ($interval)
        WEnd
    EndSelect
EndFunc

The red code is the problem code (the Random part)
(PS: $mode is only the mode which i declared earlier (Normal or Random))

I know: the 'Random' function has to be like this here:

Random(-10, 10, 1)  ; generate an integer between -10 and 10

but I don't know how to do that with my variables...

Can any1 help me please?
I will highly appreciate answers that help me.

Regards, t0pcraft-

[X-FreeLoOsE-X]

I think there is no " Random " option in AutoIT v3 (even in the Beta). You should try Macro-Scheduler, you may found how to.

[t0pcraft-]

Originally Posted by X-FreeLoOsE-X

I think there is no " Random " option in AutoIT v3 (even in the Beta). You should try Macro-Scheduler, you may found how to.

there is one, i posted it
Random(-10, 10, 1) ; generate an integer between -10 and 10

when i have to use macro scheduler, i have to remake EVERYTHING... what i dont want
any1 else help?


€dit #1:
I tried to do it myself.. and it kinda works, but i got 1 problem more regarding this

Func Spambot ()
    Select
    Case $mode = 1
        While $stop > 2
        // Not Important
        WEnd
    Case $mode = 2
        While $stop > 2
            $randommessage = (Random(1, 10))
            If $randommessage = 1 Then
            Send($msg1)
            ElseIf
            If $randommessage = 2 Then
            Send($msg2)
            ElseIf
            If $randommessage = 3 Then
            Send($msg3)
            ElseIf
            If $randommessage = 4 Then
            Send($msg4)
            ElseIf
            If $randommessage = 5 Then
            Send($msg5)
            ElseIf    
            If $randommessage = 6 Then
            Send($msg6)
            ElseIf    
            If $randommessage = 7 Then
            Send($msg7)
            ElseIf    
            If $randommessage = 8 Then
            Send($msg8)
            ElseIf
            If $randommessage = 9 Then
            Send($msg9)
            ElseIf
            If $randommessage = 10 Then
            Send($msg10)
            ElseIf
            Send ("{ENTER}")
            Sleep ($interval)
        WEnd
    EndSelect
EndFunc

this would be fine, i think... but there is one error:

"Wend" statement with no matching "While" statement.:

i really dont understand why it says its wrong.. because it is not!


€dit #2:

i reworked it, and now there is NO more error

the new function is like this:

Func Spambot ()
    Select
        Case $mode = 1
            While $stop > 2
            // Not Important
            WEnd
        Case $mode = 2
            While $stop > 2
                $randommessage = (Random(1, 10))
                    Select
                        Case $randommessage = 1
                            Send($msg1)
                            Send ("{ENTER}")
                            Sleep ($interval)
                        Case $randommessage = 2
                            Send($msg2)
                            Send ("{ENTER}")
                            Sleep ($interval)
                        Case $randommessage = 3
                            Send($msg3)
                            Send ("{ENTER}")
                            Sleep ($interval)
                        Case $randommessage = 4
                            Send($msg4)
                            Send ("{ENTER}")
                            Sleep ($interval)
                        Case $randommessage = 5
                            Send($msg5)
                            Send ("{ENTER}")
                            Sleep ($interval)
                        Case $randommessage = 6
                            Send($msg6)
                            Send ("{ENTER}")
                            Sleep ($interval)
                        Case $randommessage = 7
                            Send($msg7)
                            Send ("{ENTER}")
                            Sleep ($interval)
                        Case $randommessage = 8
                            Send($msg8)
                            Send ("{ENTER}")
                            Sleep ($interval)
                        Case $randommessage = 9
                            Send($msg9)
                            Send ("{ENTER}")
                            Sleep ($interval)
                        Case $randommessage = 10
                            Send($msg10)
                            Send ("{ENTER}")
                            Sleep ($interval)
                    EndSelect
            WEnd
        EndSelect
EndFunc

No More Error, Fine....BUT IT DOESN'T DO ANYTHING... What Should I Do?

F I N A L_ E D I T:

Forget about everything Not important anymore

[x] close

[WinneR]

Well, i don't use spambot, but i hope you will get it to work

[t0pcraft-]

the spambot is ready, i think i'll up it here at d3scene