Frage zu meinem MultiTool

[FrEakY.]

Hey, ich hatte in den letzten zwei Tagen die Idee mich ein wenig mehr mit AUtoIt zu befassen und das ist dabei herausgekommen:

 Spoiler

#include <GUIConstants.au3> 
#include <EditConstants.au3> 
#include <GUIConstantsEx.au3> 
GUICreate("Multi Tool 0.1 by Coladose", 600, 120) 
$spam = GUICtrlCreateInput ("",10,20, 580,20) 
$button1 = GUICtrlCreateButton("Destop anzeigen", 50, 40, 100, 75) 
$button2 = GUICtrlCreateButton("Chat-Spammer", 150, 40, 100, 75) 
$button3 = GUICtrlCreateButton("Laggen", 250, 40, 100, 75) 
$button4 = GUICtrlCreateButton("Deine Zeit", 350, 40, 100, 75) 
$button5 = GUICtrlCreateButton("Herunterfahren", 450, 40, 100, 75)
GUISetState() 

While 1 
    _nMsg() 
    Sleep (10) 
WEnd 

Func _nMsg() 
    $nMsg = GUIGetMsg() 
    Switch $nMsg 
        Case $button1 
                         desktop()
Send("#{d}")						 
                Case $button2 
            spam() 
                Case $button3 
                        lag() 
                Case $button4 
                        zeit() 
                Case $button5 
                        _shutdown()
    EndSwitch 
EndFunc 

Func spam() 

While 1 
Send (GUICtrlRead($spam)) 
Send ("{enter}") 
WEnd 

EndFunc 

Func desktop() 
EndFunc  

Func lag() 

    Local $count = 0 
    Do 
        $count = $count + 1 
        ShellExecute("http://www.youtube.com/watch?v=9kl6r65NgVk") 
        Send ("{enter}") 
                sleep (200) 

    Until $count = GUICtrlRead ( $spam ) 

EndFunc 

Func _shutdown() 
MsgBox (0x1, "Shutdown", "Achtung ihr PC wird nun Heruntergefahren")
If MsgBox = 1 Then
shutdown (1)
ElseIf MsgBox = 2 Then
	Exit
	EndIf
EndFunc 

Func zeit()
	$uhrzeit = MsgBox(36, "Es ist jetzt...", _
@HOUR & ":" & @MIN & ":" & @SEC & " Uhr. " _
& @LF & "Möchten Sie das aktuelle Datum anzeigen lassen?")
 
IF $uhrzeit = 6 Then
MsgBox(0, "Aktuelles Datum", @MDAY & "." & @MON & "." & @YEAR)
EndIf
EndFunc

Nun habe ich folgende Fragen...
->Wie kann ich die Spammzeilen in eine Endlosschleife setzten?
->Wie kann man den Hintergrund des Fensters verändern ?
->Wie kann ich die Warnung aktivieren (ohne das wEnd Fehler kommt)
->Was kann man noch verbessern/ändern?

Hoffe auf Hilfe
Eure Coladose

[epiTR]

Originally Posted by coladose

[B][CENTER][SIZE="4"]
Nun habe ich folgende Fragen...
->Wie kann ich die Spammzeilen in eine Endlosschleife setzten?
->Wie kann man den Hintergrund des Fensters verändern ?
->Wie kann ich die Warnung aktivieren (ohne das wEnd Fehler kommt)
->Was kann man noch verbessern/ändern?

Hoffe auf Hilfe
Eure Coladose

1. Whileschleife, do until schleife
2. In Koda ist das ziemlich einfach (müsste man sehen, wenn nicht fragen!)
3. Verstehe ich nicht ganz, sehe auf dem ersten Blick kein Wend..
4. -

[Al Kappaccino]

Hallu,
ok zunächst, mach einen Input rein! Das ist verdammt sinnvoll für einen Spambot, der auch anständig spammen soll, lass mich mal "einiges" umschreiben.

 Spoiler

PHP Code:

#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
GUICreate("Multi Tool 0.1 by Coladose", 600, 100)
$spam = GUICtrlCreateInput ("",10,20, 580,20)
$button1 = GUICtrlCreateButton("Destop anzeigen", 50, 40, 100, 75)
$button2 = GUICtrlCreateButton("Chat-Spammer", 150, 40, 100, 75)
$button3 = GUICtrlCreateButton("Laggen", 250, 40, 100, 75)
$button4 = GUICtrlCreateButton("Hi", 350, 40, 100, 75)
$button5 = GUICtrlCreateButton("Herunterfahren", 450, 40, 100, 75)
GUISetState()

While 1
    _nMsg()
    Sleep (10)
WEnd

Func _nMsg()
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $button1
                         desktop()
                Case $button2
            spam()
                Case $button3
                        lag()
                Case $button4
                        hi()
                Case $button5
                        _shutdown()
    EndSwitch
EndFunc

Func spam()

While 1
Send (GUICtrlRead($spam))
Send ("{enter}")
WEnd

EndFunc

Func desktop()
EndFunc 

Func lag()

    Local $count = 0
    Do
        $count = $count + 1
        ShellExecute("http://www.youtube.com/watch?v=9kl6r65NgVk")
        Send ("{enter}")
                sleep (200)

    Until $count = GUICtrlRead ( $spam )

EndFunc

Func _shutdown()
MsgBox (4096, "Shutdown", "Achtung ihr PC wird nun Heruntergefahren")
shutdown (1)
EndFunc

etc... 


Ich hoffe das hilft dir erstmal weiter, Farben kann man mit "GUISetBKcolor" einstellen.

Edit:
Um den Spam zu pausieren oder ganz zu beenden, baue einfach eine Pause, sowie eine Exit funktion per hotkey ein.

 Spoiler

PHP Code:

HotKeySet ("{F3}", "TogglePause")

Func TogglePause()

    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc 


[FrEakY.]

Jetzt gehn die Buttons "Desktop anzeigen" und "hi" Nichtmehr genauso wie der x knopf .... wtf
€dit: Funktioniert wieder alles prima, nur die neuen 2 Tasten wollen nicht

[xmoeglll]

wenn ich das richtig versteh willst du nur eine endlosschleife darum dann mach das doch
Case $Button2
while 1
msgBox(blablaa)
msgBox(blablaa)
wend
case $button3

ich versteh glaub ich eher dein prob nicht

Do kannst ja auch eine andere Schleife verwenden do ...until oder For.... (also dann mit einer bestimmten anzahl der wiederholungen)


zu verbesserungsvorschlage deinen script aufräumen und ordnen (strg+t).



oh der erste teil fällt weg hat grad schon jmd gepostet hab ich übersehn aber das mit dem ordnen wäre noch praktisch und das mit der Warnung mit Wend check ich nicht was du meinst, einen syntaxerror oder ka was du da meinst...

(ich würde dir noch die anfängerTut raten von Remus und das weitergehende von Shadow992) die habe ich am anfang auch genutzt da werden ein paar befehle behandelt die man oft bis sehr oft braucht

[FrEakY.]

Schleife funzt prima. Einzigstes Problem ist, warum das mit dem Dialog bei shutdown nicht gehen will... ?!