Nachrichten Script schließt sich

1. offizieller Beitrag

    Hallo alle miteinander.
    Also ich bin neu bei Autoit und wollte mal ein Programm schreiben, mitdem ich zb. über ICQ eine gewisse Nachricht beliebig oft etc. schreiben kann. Nu hab ich ein Problem:
    Mein Script schließt sich, sobal ich die Maus bewege (y?) und selbst wenn ich mit der Tastatur auf "send" drücke, dann passiert auch nichts.

    Wo ist der Fehler?

    [autoit]


    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("SendMessage", 251, 251, 193, 115)
    $number = GUICtrlCreateInput("10", 16, 24, 217, 21)
    $abstand = GUICtrlCreateInput("0,5", 16, 88, 217, 21)
    $nachricht = GUICtrlCreateInput("Hallo", 17, 161, 217, 21)
    $send = GUICtrlCreateButton("Send", 80, 200, 73, 41, 0)
    $Label1 = GUICtrlCreateLabel("Anzahl der Nachrichten:", 16, 8, 118, 17)
    $Label2 = GUICtrlCreateLabel("Abstand zw. den Nachrichten in Sek.:", 16, 72, 183, 17)
    $Label3 = GUICtrlCreateLabel("Die Nachricht:", 16, 136, 72, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $msg = GUIGetMsg()
    If $msg <> 0 Then
    $n = GUICtrlRead($number)
    $a = GUICtrlRead($abstand)
    $m = GUICtrlRead($nachricht)
    Select

    Case $msg = $send
    If $n > 1 then
    $n = $n - 1
    sleep ($a*1000)
    Send($m)
    send("{ENTER}")
    endif

    Case $GUI_EVENT_CLOSE
    Exit

    Case $number = 0
    Exit

    EndSelect
    EndIf
    WEnd

    [/autoit]

    Ps. ich hab mich an dem Tutorial versucht zu orientieren, hat mich aber auch nicht weitergebracht
    http://www.autoit.de/jgs_db.php?action=download&download_id=2&sid=

    Hi, habs dir bisschen umgebaut :)

    [autoit]

    #include <GUIConstants.au3>

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

    $Form1 = GUICreate("SendMessage", 251, 251, 193, 115)
    $number = GUICtrlCreateInput("10", 16, 24, 217, 21)
    $abstand = GUICtrlCreateInput("0,5", 16, 88, 217, 21)
    $nachricht = GUICtrlCreateInput("Hallo", 17, 161, 217, 21)
    $send = GUICtrlCreateButton("Send", 80, 200, 73, 41, 0)
    $Label1 = GUICtrlCreateLabel("Anzahl der Nachrichten:", 16, 8, 118, 17)
    $Label2 = GUICtrlCreateLabel("Abstand zw. den Nachrichten in Sek.:", 16, 72, 183, 17)
    $Label3 = GUICtrlCreateLabel("Die Nachricht:", 16, 136, 72, 17)
    GUISetState(@SW_SHOW)

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

    Do
    $msg = GUIGetMsg()


    Select

    Case $msg = $send

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

    $n = GUICtrlRead($number)
    $a = GUICtrlRead($abstand)
    $m = GUICtrlRead($nachricht)

    SplashTextOn("AKTIVIEREN", "Bitte ICQ Fenster Aktivieren!", 100,100)
    sleep(3000)
    SplashOff()


    If $n > 1 Then
    Do
    $n = $n - 1
    Sleep($a * 1000)
    Send($m)
    Send("{ENTER}")
    Until $n = 0
    EndIf


    EndSelect

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

    Until $msg = $GUI_EVENT_CLOSE

    [/autoit]

    Fehler: du musst das ICQ fenster aktivieren bzw in die box klicken wo du reinschreibst :)

    mfg

    Huggy

    • Offizieller Beitrag

    Hallo

    Du hast bei GuiEventClose das $msg = vergessen ;) So ist es richtig:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("SendMessage", 251, 251, 193, 115)
    $number = GUICtrlCreateInput("10", 16, 24, 217, 21)
    $abstand = GUICtrlCreateInput("0,5", 16, 88, 217, 21)
    $nachricht = GUICtrlCreateInput("Hallo", 17, 161, 217, 21)
    $send = GUICtrlCreateButton("Send", 80, 200, 73, 41, 0)
    $Label1 = GUICtrlCreateLabel("Anzahl der Nachrichten:", 16, 8, 118, 17)
    $Label2 = GUICtrlCreateLabel("Abstand zw. den Nachrichten in Sek.:", 16, 72, 183, 17)
    $Label3 = GUICtrlCreateLabel("Die Nachricht:", 16, 136, 72, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $msg = GUIGetMsg()
    If $msg <> 0 Then
    ConsoleWrite($msg & @CRLF)
    $n = GUICtrlRead($number)
    $a = GUICtrlRead($abstand)
    $m = GUICtrlRead($nachricht)
    Select
    Case $msg = $send
    If $n > 1 Then
    $n = $n - 1
    Sleep($a * 1000)
    Send($m)
    Send("{ENTER}")
    EndIf

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

    Case $msg = $GUI_EVENT_CLOSE;$msg = nicht vergessen ;)
    Exit

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

    Case $number = 0
    Exit
    EndSelect
    EndIf
    WEnd

    [/autoit]

    Mfg Spider

    Ok tausend dank ^^ is richtig gut geworden.

    Aber ich habs mit dem Fenster getestet. jetzt verlgeiche ich die scripte und gucke mal wie man scripte besser macht.