Chat Spambot?

Page 1 of 2 1 2
11/10/2009 17:52 FreakyFreakyFreakyFresh#1
Gibt es einen Chat Spambot wo man Zeit und Text bestimmen kann weil mir ist es zu anstrengend die ganze zeit zu schreiben ich will ja immerhin leveln...
Thx im vorraus
11/11/2009 14:58 VRF#2
Du könntest dir recht leicht einen Programmieren.
Autoit kann ich dir da empfehlen :D der code würde dan so aussehen
Quote:
Sleep (2000) ;damit du das fenster auswählen kannst
While 1 ; damit es sich wiederholt
Send ("{ENTER]}") ;zum öffnen des chat fensters
Send ("vk ...... wsp me") ;was er schreiben soll
Send ("{ENTER"}) ; damit es abgeschickt wird
Wend ;damit die schlaufe beendet wird
11/11/2009 15:47 FreakyFreakyFreakyFresh#3
oh danke :D

Edit:
Autoit is ja geiles tool alles total verständlich hier mein Code:

Code:
Sleep (2000)
While 1
Send ("{Enter}")
Send ("Vk ..... Wsp me")
Send ("{Enter}")
Sleep (1000)
Wend
also danke nochmal
11/11/2009 16:42 VRF#4
klar gerne
achja wenn du lust hast kannst du noch ne Funkzion zum beenden einbauen.
schreibe dafür gans oben
Code:
HotKeySet ("!e" ,"end")
und gans unten nochmal
Code:
Func end()
	Exit
	EndFunc
rein. dann kanst du den bot mit den tasten Alt+e beenden
11/11/2009 17:21 FreakyFreakyFreakyFresh#5
Komplett Edit:

Also mein Code ist
Code:
$answer = MsgBox(4, "Ausführen?", "Willst du wirklich diesen bot benutzen")


If $answer = 7 Then
    Exit
EndIf

While 1
    $text = InputBox("SpamBot", "Text:")
    If @error = 1 Then
    Exit
	Else
        
			MsgBox(4096, "SpamBot", "Es geht in gleich los wähle nun den Tab aus.")
			Sleep (2000)
			While 1
			Send ("{Enter}")
			Send ("$text")
			Send ("{Enter}")
			Sleep (1000)
			WEnd
		
	Endif
		
		
WEnd
nur das ich den geschriebenen text da stehen haben will
11/11/2009 18:50 FreakyFreakyFreakyFresh#6
Sry das ich doppelposte aber ich bin drauf gekommen :
Code:
HotKeySet ("!e" ,"end")

$answer = MsgBox(4, "Ausführen?", "Willst du wirklich diesen bot benutzen")


If $answer = 7 Then
    Exit
EndIf

While 1
    $Input = InputBox ("SpamBot", "Text:")
	
    If @error = 1 Then
    Exit
	Else
			MsgBox(4096, "SpamBot", "Es geht in gleich los wähle nun den Tab aus.")
			Sleep (5000)
			While 1
			Send ("{Enter}")
			Send ($Input)
			Send ("{Enter}")
			Sleep (3000)
			WEnd
		
	Endif
		
		
	WEnd
	
	Func end()
	Exit
	EndFunc

Juchuuuu :D :D :D :D :D :D :D :D

mein erstes Programm in AutoIt (C++ ist schwerer) :D

also das ich da nicht drauf gekommen bin ... ich könnt meinen Kopf gegen die Wand hauen xD
11/11/2009 18:53 VRF#7
na glückwunsch !
findest du nicht dass es ziemlich lästig mit den MsgBoxen ist? zumindest wenn du deinen spambot äfter bentuzt
11/11/2009 19:01 FreakyFreakyFreakyFresh#8
naja nervig isses schon aber ich muss mit meinem level ziemlich lang nach items gucken xD
11/12/2009 19:20 Dyn4mit3#9
So?^^

Nur Wie macht man den Jetzt? xD

Wie?

Oder mit Was? xD
11/12/2009 19:34 FreakyFreakyFreakyFresh#10
Ich hab n neues thema eröffnet udn auch hochgeladen sogar mit benutzeroberfläche
11/12/2009 19:40 Letalis3#11
Du kannst auch einfach auf [Only registered and activated users can see links. Click Here To Register...] gehen ;)

---Metin2---
LVL: 56
KLASSE: KRIEGER
REICH: JINNO
SERVER: LYKANTHRA
11/12/2009 19:47 FreakyFreakyFreakyFresh#12
Kann man den auch mit anderen spielen als mit Metin 2 Benutzen ? oO

Edit:
Meinen kann man für jedes spiel benutzen wo man erst enter dann text und dann nochmal enter klicken muss benutzen :D
11/13/2009 15:54 FreakXZ#13
Gute Arbeit fürs erste Mal!
(Ich könnte das nicht^^)
11/14/2009 19:46 LittleJake#14
also bei 4story ist es seit neuerem so, dass nach eingabe und enter das chat fenster stehen bleibt
ich habe mich mit autoit etwas auseinander gesetzt und habe einfach noch ein Send ("(Enter)") eingefügt
vllt baust du es ja noch ein mfg drumkid
hier der vollständige code

HotKeySet ("!e" ,"end")

$answer = MsgBox(4, "Ausführen?", "Willst du wirklich diesen bot benutzen")


If $answer = 7 Then
Exit
EndIf

While 1
$Input = InputBox ("SpamBot", "Text:")

If @error = 1 Then
Exit
Else
MsgBox(4096, "SpamBot", "Es geht in gleich los wähle nun den Tab aus.")
Sleep (5000)
While 1
Send ("{Enter}")
Send ($Input)
Send ("{Enter}")
Send ("{Enter}")
Sleep (3000)
WEnd

Endif


WEnd

Func end()
Exit
EndFunc
11/15/2009 08:27 FreakyFreakyFreakyFresh#15
Klasse hab ich garnicht bemerkt :)

Ich baus in meinen fertigen bot ein
Page 1 of 2 1 2