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
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
Kommt auf dein Skript an. Vielleicht reicht eine While-Schleife...
peethebee
ok, sorry, das ich immer den Skript vergesse
$fenster = GUICreate("MSN Spammer", 380, 160)
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)
$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)
$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
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
$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)
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
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:
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
HI,
ich habe es dir mal so gemacht, dass wenn du über das X rausgehst, dein Skript neu gestartet wird.
#include<GUIConstants.au3>
$fenster = GUICreate("MSN Spammer", 380, 160)
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)
$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)
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
Func _restart()
If @Compiled = 1 Then
Run( FileGetShortName(@ScriptFullPath))
Else
Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath))
EndIf
Exit
EndFunc
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