Random Send. Kleiner Fehler?!

1. offizieller Beitrag

    Ich möchte per Zufall eine Message per send Befehl schicken,
    habe aber einen Fehler und weiß leider nicht wie ich das
    genau formulieren muss :(
    Das Skript soll per Zufall eine verschiedene Sätze schicken.

    [autoit]

    HotKeySet ( "{F9}","Start")

    [/autoit][autoit][/autoit][autoit]

    while 1
    sleep("1000")
    wend

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $message1="Hallo1"
    $message2="Hallo2"
    $message3="Hallo3"

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    func Start()
    while 1
    $random = Random(1,4,1)
    send($message[$random]) ; <---- hier ist der Fehler
    sleep("1000")
    WEnd
    endfunc

    [/autoit]

    Mit einen anderen Skript habe ich das bereits realisiert,
    nur ist das dann viel umfangreicher mit IF THEN :(

    [autoit]


    HotKeySet ( "{F9}","Start")

    while 1
    sleep("1000")
    wend

    Dim $message[3]
    $message[0]="Hallo1"
    $message[1]="Hallo2"
    $message[2]="Hallo3"


    func Start()
    while 1
    $random = Random(0,3,1)
    send($message[$random]) ; <---- hier ist der Fehler
    sleep("1000")
    WEnd
    endfunc

    [/autoit]

    nicht getestet aber du musst ein array erstellen und dann kannst du das machen

    • Offizieller Beitrag

    Hi,

    besser so:

    [autoit]

    HotKeySet("{F9}", "_start")
    HotKeySet("{F8}", "_end")
    Global $message[3] = ['Hallo1', 'Hallo2', 'Hallo3']

    [/autoit][autoit][/autoit][autoit]

    While 1
    Sleep(1000)
    WEnd

    [/autoit][autoit][/autoit][autoit]

    Func _start()
    While 1
    Send($message[Random(0, 2, 1) ])
    Sleep(1000)
    WEnd
    EndFunc ;==>_start

    [/autoit][autoit][/autoit][autoit]

    Func _end()
    Exit (0)
    EndFunc ;==>_end

    [/autoit]

    P.S.: An euch beide, Arrays fangen bei 0 an!!!

    So long,

    Mega