Spambot Problem

[ηice]

HotKeySet(" (1) ", "_1")
HotKeySet(" (2) ", "_2")
HotKeySet(" (3) ", "_3")
HotKeySet(" (4) ", "_4")

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=Form1.kxf
$Form1 = GUICreate("Spambot", 592, 234, 845, 274)
$Label1 = GUICtrlCreateLabel("Spamnaricht:", 8, 8, 66, 17)
$Label2 = GUICtrlCreateLabel("Spamabstand", 8, 128, 69, 17)
$Edit1 = GUICtrlCreateEdit("", 24, 32, 321, 81)
GUICtrlSetData(-1, "Schreib was rein")
$Input1 = GUICtrlCreateInput("Input1", 24, 152, 321, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Form1
Case $Form1
Case $Form1
Case $Form1
Case $Label1
Case $Label2
Case $Edit1
Case $Input1
EndSwitch
WEnd

Func _1()
Sleep(5000)
Send(GUICtrlRead($Edit1))
Send("(ENTER)")
EndFunc

Func _2()
Sleep(5000)
While 1
Send(GUICtrlRead($Edit1))
Send("(ENTER)")
Sleep(GUICtrlRead($Input1))
WEnd
EndFunc

Func _3()
While 1
Sleep(500)
TrayTip("Spambot","Der Bot wurde pasuiert", 0,0)
WEnd
EndFunc

Func _4()
Exit
EndFunc

Ist das so richtig ?
Weil wenn ich als was im oberen Feld schreibe schließt es sich.

Und wenn ich 1 Drücke kommt nix im Editor.

Kann wer helfen?

[Havelock_Vetinari]

Originally Posted by WΛNTED

Ist das so richtig ?
Weil wenn ich als was im oberen Feld schreibe schließt es sich.

Und wenn ich 1 Drücke kommt nix im Editor.

Kann wer helfen?

Du musst die Funktionen schon Aufrufen^^ ( in der Switch anweisung) , ansonsten werden diese nicht ausgefürht

[ηice]

Switch $nMsg

Da?

€: er läuft nicht und geht bei Leertaste immer weg :/

[Havelock_Vetinari]

oh , pardon . Ich habe mich verlesen . Du versuchst die Funktionen ja mit einem HotKey auszulösen .

HotKeySet(" x ", "Func_1")
HotKeySet(" x", "Func_2")
HotKeySet("x ", "Func_3")
HotKeySet(" x ", "Func_4")

so ists richtig ( bei x bitte die entsprechende Taste einfügen)

[ηice]

Da kommt nun sowas

C:\Users\LAPTOP\Desktop\Spam.au3(1,26) : ERROR: Func_1(): undefined function.

[Havelock_Vetinari]

Originally Posted by WΛNTED

Da kommt nun sowas

Bin etwas müde^^ . Vergiss was ich gesagt habe .

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=Form1.kxf
$Form1 = GUICreate("Spambot", 592, 234, 845, 274)
$Label1 = GUICtrlCreateLabel("Spamnaricht:", 8, 8, 66, 17)
$Label2 = GUICtrlCreateLabel("Spamabstand", 8, 128, 69, 17)
$Edit1 = GUICtrlCreateEdit("", 24, 32, 321, 81)
GUICtrlSetData(-1, "Schreib was rein")
$Input1 = GUICtrlCreateInput("Input1", 24, 152, 321, 21)
$spam1 = GUICtrlCreateButton("Spam 1",24,200,50,25)
$spam2 = GUICtrlCreateButton("Spam 2",80,200,50,25)
$pause = GUICtrlCreateButton("pause",140,200,50,25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_4()
Case $spam1
	_1()
Case $spam2
	_2()
case $pause
	_3()

EndSwitch
WEnd

Func _1()
Sleep(5000)
Send(GUICtrlRead($Edit1))
Send("(ENTER)")
EndFunc

Func _2()
Sleep(5000)
While 1
Send(GUICtrlRead($Edit1))
Send("(ENTER)")
Sleep(GUICtrlRead($Input1))
WEnd
EndFunc

Func _3()
While 1
Sleep(500)
TrayTip("Spambot","Der Bot wurde pasuiert", 0,0)
WEnd
EndFunc

Func _4()
Exit
EndFunc

So funktioniert es , da haste die Hotkeys weg und gleich paar buttons dafür. Solltest aber evtl. die While-Schleifen aus den Funktionen rausmachen , sonst wird es etwas schwer das Programm nachher zu beenden.


Bin jetzt pennen . MFG

[ηice]

Vielen Dank <3
€:

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=Form1.kxf
$Form1 = GUICreate("Spambot ", 362, 210, 688, 219)
$Checkbox1 = GUICtrlCreateCheckbox("Start", 8, 8, 41, 17)
$Pic1 = GUICtrlCreatePic("C:\Users\LAPTOP\Desktop\Unbenann t-3.jpg", 0, 0, 361, 209)
$Checkbox2 = GUICtrlCreateCheckbox("Pause", 64, 8, 49, 17)
$Edit1 = GUICtrlCreateEdit("", 8, 56, 177, 89)
GUICtrlSetData(-1, "Der Text kommt hier rein ...")
$Combo1 = GUICtrlCreateCombo("Zeitabstand", 104, 152, 81, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Label1 = GUICtrlCreateLabel("Spam Text", 8, 32, 55, 17)
GUISetState()
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit

Case $Form1
Case $Form1
Case $Form1
Case $Form1
Case $Checkbox1
Case $Pic1
Case $Checkbox2
Case $Edit1
Case $Combo1
Case $Label1
EndSwitch
WEnd

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_4()
Case $Input1
_1()
case $pause
_3()

EndSwitch
WEnd

Func _1()
Sleep(5000)
Send(GUICtrlRead($Edit1))
Send("(ENTER)")
EndFunc

Func _2()
Sleep(5000)
While 1
Send(GUICtrlRead($Edit1))
Send("(ENTER)")
Sleep(GUICtrlRead($Input1))
WEnd
EndFunc

Func _3()
While 1
Sleep(500)
TrayTip("Spambot","Der Bot wurde pasuiert", 0,0)
WEnd
EndFunc

Func _4()
Exit
EndFunc

Ich habe nun sowas aber weiß nicht wie ich was schreiben soll ...