Spambot Problem

10/18/2012 21:01 ηice#1
Quote:
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?
10/18/2012 21:02 Havelock_Vetinari#2
Quote:
Originally Posted by WΛNTED View Post
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
10/18/2012 21:08 ηice#3
Quote:
Switch $nMsg
Da?

€: er läuft nicht und geht bei Leertaste immer weg :/
10/18/2012 21:21 Havelock_Vetinari#4
oh , pardon . Ich habe mich verlesen . Du versuchst die Funktionen ja mit einem HotKey auszulösen .
Code:
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)
10/18/2012 21:26 ηice#5
Da kommt nun sowas
Quote:
C:\Users\LAPTOP\Desktop\Spam.au3(1,26) : ERROR: Func_1(): undefined function.
10/18/2012 21:37 Havelock_Vetinari#6
Quote:
Originally Posted by WΛNTED View Post
Da kommt nun sowas
Bin etwas müde^^ . Vergiss was ich gesagt habe .

Code:
#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
10/19/2012 14:04 ηice#7
Vielen Dank <3
€:
Quote:
#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 ...
[Only registered and activated users can see links. Click Here To Register...]