Skript Nochmal beginnen

1. offizieller Beitrag

    Hallo, ich wollte fragen, ob es eine Funktion gibt, damit der Skript einfach von ganz oben wieder neu anfängt???

    Hoffentlich kann mir jemand helfen ?(

    Mit freundlichen Grüßen
    morfi93

    ok, sorry, das ich immer den Skript vergesse

    Spoiler anzeigen
    [autoit]


    $fenster = GUICreate("MSN Spammer", 380, 160)

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

    GUISetState(@SW_SHOW)

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

    $label1 = GUICtrlCreateLabel("Freund eingeben:", 10, 20)
    $label2 = GUICtrlCreateLabel("Nachricht eingeben:", 10, 45)
    $label3 = GUICtrlCreateLabel("Wiederholungen eingeben:", 10, 70)
    $label4 = GUICtrlCreateLabel("Pause eingeben:", 10, 95)

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

    $edit1 = GUICtrlCreateInput("", 150, 15, 200)
    $edit2 = GUICtrlCreateInput("", 150, 40, 200)
    $edit3 = GUICtrlCreateInput("", 150, 65, 200)
    $edit4 = GUICtrlCreateInput("", 150, 90, 200)

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

    $button1 = GUICtrlCreateButton("Starten", 10, 125, 100)
    $Button2 = GUICtrlCreateButton("Stop", 110, 125, 100)
    $Button3 = GUICtrlCreateButton("Beenden", 220, 125, 100)

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

    $freund = GUICtrlRead($edit1)
    $nachricht = GUICtrlRead($edit2)
    $wiederholungen = GUICtrlRead($edit3)
    $pause = GUICtrlRead($edit4)

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

    $msg = GUIGetmsg()

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

    Select
    Case $msg = $button1
    IF Not @error then
    WinActivate($freund & " - Unterhaltung")
    Else
    MsgBox(1024, "Fehler", "Es ist leider ein Fehler beim aktivieren des Fensters aufgetreten")
    EndIf
    WinWaitActive($freund & " - Unterhaltung")
    ControlClick($freund & " - Unterhaltung", "", , "left", 1, 800, 800)
    For $i = 1 to $wiederholungen
    ControlSend($freund & " - Unterhaltung", "", , $nachricht)
    Next
    Case $msg = $button2

    Case $msg = $button3
    GUIDelete($fenster)
    Exit 0
    EndSelect

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

    Sleep(3000)

    [/autoit]

    Ich möchte nämlich einen MSN Spammer machen einfach mal so weil mir gerade fad ist und ich habe mir gedacht das ginge einfach

    • Offizieller Beitrag
    [autoit]

    $fenster = GUICreate("MSN Spammer", 380, 160)

    GUISetState(@SW_SHOW)

    $label1 = GUICtrlCreateLabel("Freund eingeben:", 10, 20)
    $label2 = GUICtrlCreateLabel("Nachricht eingeben:", 10, 45)
    $label3 = GUICtrlCreateLabel("Wiederholungen eingeben:", 10, 70)
    $label4 = GUICtrlCreateLabel("Pause eingeben:", 10, 95)

    $edit1 = GUICtrlCreateInput("", 150, 15, 200)
    $edit2 = GUICtrlCreateInput("", 150, 40, 200)
    $edit3 = GUICtrlCreateInput("", 150, 65, 200)
    $edit4 = GUICtrlCreateInput("", 150, 90, 200)

    $button1 = GUICtrlCreateButton("Starten", 10, 125, 100)
    $Button2 = GUICtrlCreateButton("Stop", 110, 125, 100)
    $Button3 = GUICtrlCreateButton("Beenden", 220, 125, 100)

    $freund = GUICtrlRead($edit1)
    $nachricht = GUICtrlRead($edit2)
    $wiederholungen = GUICtrlRead($edit3)
    $pause = GUICtrlRead($edit4)

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

    While 1
    $msg = GUIGetmsg()

    Select
    Case $msg = $button1
    IF Not @error then
    WinActivate($freund & " - Unterhaltung")
    Else
    MsgBox(1024, "Fehler", "Es ist leider ein Fehler beim aktivieren des Fensters aufgetreten")
    EndIf
    WinWaitActive($freund & " - Unterhaltung")
    ControlClick($freund & " - Unterhaltung", "", , "left", 1, 800, 800)
    For $i = 1 to $wiederholungen
    ControlSend($freund & " - Unterhaltung", "", , $nachricht)
    Next
    Case $msg = $button2

    Case $msg = $button3
    GUIDelete($fenster)
    Exit 0
    EndSelect
    WEnd

    [/autoit]

    Du hattest die While-Schleife für die GUI vergessen...

    peethebee

    Dankesehr für deine Hilfe, aber das löst noch immer nicht das Problem

    Mit freundlichen Grüßen
    morfi93

    ich mach das immer so:

    Spoiler anzeigen

    while 1
    ###################
    ###hier steht deins skript###
    ###################
    While 1
    if $msg = "yes" Then
    MsgBox(0,"Yes","Ja gedrückt")
    exitloop
    elseif $msg = "no" then
    MsgBox(0,"No","Nein gedrückt")
    ExitLoop
    endif
    wend
    wend


    wen man exitloop sagt wird die innere schleife bendet und die äusere schleifen beginnt von vorne

    • Offizieller Beitrag

    HI,

    ich habe es dir mal so gemacht, dass wenn du über das X rausgehst, dein Skript neu gestartet wird.

    Spoiler anzeigen
    [autoit]

    #include<GUIConstants.au3>
    $fenster = GUICreate("MSN Spammer", 380, 160)

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

    GUISetState(@SW_SHOW)

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

    $label1 = GUICtrlCreateLabel("Freund eingeben:", 10, 20)
    $label2 = GUICtrlCreateLabel("Nachricht eingeben:", 10, 45)
    $label3 = GUICtrlCreateLabel("Wiederholungen eingeben:", 10, 70)
    $label4 = GUICtrlCreateLabel("Pause eingeben:", 10, 95)

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

    $edit1 = GUICtrlCreateInput("", 150, 15, 200)
    $edit2 = GUICtrlCreateInput("", 150, 40, 200)
    $edit3 = GUICtrlCreateInput("", 150, 65, 200)
    $edit4 = GUICtrlCreateInput("", 150, 90, 200)

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

    $button1 = GUICtrlCreateButton("Starten", 10, 125, 100)
    $Button2 = GUICtrlCreateButton("Stop", 110, 125, 100)
    $Button3 = GUICtrlCreateButton("Beenden", 220, 125, 100)

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

    $freund = GUICtrlRead($edit1)
    $nachricht = GUICtrlRead($edit2)
    $wiederholungen = GUICtrlRead($edit3)
    $pause = GUICtrlRead($edit4)

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $button1
    If Not @error Then
    WinActivate($freund & " - Unterhaltung")
    Else
    MsgBox(1024, "Fehler", "Es ist leider ein Fehler beim aktivieren des Fensters aufgetreten")
    EndIf
    WinWaitActive($freund & " - Unterhaltung")
    ControlClick($freund & " - Unterhaltung", "", "left", 1, 800, 800)
    For $i = 1 To $wiederholungen
    ControlSend($freund & " - Unterhaltung", "", "", $nachricht)
    Next
    Case $msg = $Button2

    Case $msg = $Button3
    GUIDelete($fenster)
    Exit 0
    case $msg = $GUI_EVENT_CLOSE
    _restart()
    EndSelect
    WEnd

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

    Func _restart()
    If @Compiled = 1 Then
    Run( FileGetShortName(@ScriptFullPath))
    Else
    Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath))
    EndIf
    Exit
    EndFunc

    [/autoit]

    So long,

    Mega

    Vielen vielen dank für eure hilfe jetzt weiß ich wie ich es machen kann
    danke nochmal
    :]

    Mit freundlichen Grüßen
    morfi93