Register for your free account! | Forgot your password?

Go Back   elitepvpers › Coders Den › AutoIt
Spambot Problem Spambot Problem
You last visited: Today at 09:09

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

Spambot Problem

Discussion on Spambot Problem within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
The Black Market: 51/0/0
Join Date: Sep 2012
Posts: 4,904
Received Thanks: 608
Spambot Problem

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?
ηice is offline  
Old   #2
 
elite*gold: 224
The Black Market: 32/0/0
Join Date: Dec 2010
Posts: 2,766
Received Thanks: 931
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
Havelock_Vetinari is offline  
Old   #3
 
elite*gold: 0
The Black Market: 51/0/0
Join Date: Sep 2012
Posts: 4,904
Received Thanks: 608
Quote:
Switch $nMsg
Da?

€: er läuft nicht und geht bei Leertaste immer weg :/
ηice is offline  
Old   #4
 
elite*gold: 224
The Black Market: 32/0/0
Join Date: Dec 2010
Posts: 2,766
Received Thanks: 931
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)
Havelock_Vetinari is offline  
Old   #5
 
elite*gold: 0
The Black Market: 51/0/0
Join Date: Sep 2012
Posts: 4,904
Received Thanks: 608
Da kommt nun sowas
Quote:
C:\Users\LAPTOP\Desktop\Spam.au3(1,26) : ERROR: Func_1(): undefined function.
ηice is offline  
Old   #6
 
elite*gold: 224
The Black Market: 32/0/0
Join Date: Dec 2010
Posts: 2,766
Received Thanks: 931
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
Havelock_Vetinari is offline  
Thanks
1 User
Old   #7
 
elite*gold: 0
The Black Market: 51/0/0
Join Date: Sep 2012
Posts: 4,904
Received Thanks: 608
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 ...
ηice is offline  
Reply

« Bot mit Map | Help to change Lua script in Autoit »

Similar Threads Similar Threads
Spambot Problem VB.net
12/31/2011 - General Coding - 7 Replies
Hey, habe gerade nen kleinen Blackout. Wollte schnell nen Spammer erstellen was ich schon ziemlich oft gemacht habe aber ich hab ein Problem. Wie kann ich den Zeitabstand (Intervall) einstellen in dem der Tastendruck simuliert werden soll? Hier mein Quellcode... musste das in die Textbox oder in den Timer? Ich will das F1 jede Xte Sekunde gedrückt wird (den Intervall soll ich in der Textbox angeben können)... man sowas peinliches. Danke schonmal.
Spambot Problem VB.net
12/31/2011 - .NET Languages - 4 Replies
Hey, habe gerade nen kleinen Blackout. Wollte schnell nen Spammer erstellen was ich schon ziemlich oft gemacht habe aber ich hab ein Problem. Wie kann ich den Zeitabstand (Intervall) einstellen in dem der Tastendruck simuliert werden soll? Hier mein Quellcode... musste das in die Textbox oder in den Timer? Ich will das F1 jede Xte Sekunde gedrückt wird (den Intervall soll ich in der Textbox angeben können)... man sowas peinliches. Danke schonmal.
SpamBot Problem
07/03/2011 - AutoIt - 2 Replies
Hallo Leute, ich bin AutoIT Anfänger und will einen Spam Bot machen, der in Spielen funktioniert wie z.B. CounterStrike:Source. Da er aber leider nicht geht und ich auch nicht weiter weis, frage ich euch. Hier ist der Code: HotKeySet ( "F5" , "start" ) HotKeySet ( "F9" , "stop" ) $text = InputBox ("CS:S Spam Bot", "Was willst du schreiben?") MsgBox (0, "Funktionen", "Bitte Chatfenster wählen und..." & @CRLF & "F5 = Bot starten!" & @CRLF & "F9 = Bot beenden")
Autoit Spambot problem
06/05/2011 - AutoIt - 2 Replies
habe vor kurzem mit autoit angefangen und wollte jetzt einen spambot mit gui erstellen, jetzt hab ich eine inputbox,und 2 buttons nur der beenden button funktonier (case $beenden und darunter Close und dann gehts aus) aber wenn ich schreibe bei start Case $Starten $text = InputBox ("Hier Text eingeben") $send1= ($text) exit dann kann ich zwar bei der inputbox was reinschreiben aber ergeht aus und nichts passiert pls help me
Spambot Problem- Bitte um Hilfe
02/27/2010 - Metin2 Private Server - 0 Replies
Haii Habe da mal wieder ein problem, Wie kann man einstellen, dass er den Text spamt, denn man in $Input1 reinschreibt. Code: #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Spamm Bot by .FreakY", 296, 250, 382, 287)



All times are GMT +2. The time now is 09:09.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.