Problem mit Allods Online SpamBot

08/09/2010 04:39 [FAN]Minecraft#1
HI liebe com
ich habe ein problem:(
und das siht so aus

PHP Code:
 HotKeySet("{F6}","_Exit"); der befehl zum Beeden des processes



MsgBox(0,"SpamBot V1.0 by derLotte12","F6 zum Beenden drücken"); Ankündigung
$SpamText = InputBox ("SpamBotV1.0 by derLotte12","Spam Text","","",230 , 120);der Text der gespamt werden soll.
$SpamZeit = InputBox ("SpamBotV1.0 derLotte12","Spam Zeit (in Millisekunden)","","",230 , 120);das tempo in dem gespamt werden soll
MsgBox (0,"SpamBotV1.0 by derLotte12" ,"Bitte drück Enter damit sich der chat öfnet!"); Ankündigung


While 1
    
    send ($SpamText);der eingegeben text wird im chat rein geschrieben.
    sleep($SpamZeit); es wird die eingegebene zeit gewartet.
    send("{ENTER}");die nachricht wird abgeschickt und der chat wird geschlossen.
    sleep (1000);nach 1sekunde wird alles wiederholt.
    send ("{Enter}");der chat wird wieder geöfnet.
WEnd

Func _Exit()
    Exit; der process ist Beended
EndFunc 
ich drücke also Enter und öffne den chat ...
er schreibt alles richtig hin.
nun öfnet er alleine und schreib ... es fehlt der erste buchstabe
und er schickt es ab .
Nun öfnet er garnicht mehr den chat .

Was mache ich falsch???:confused:
08/09/2010 04:56 bladerofdarknes#2
[Only registered and activated users can see links. Click Here To Register...]
08/09/2010 05:16 [FAN]Minecraft#3
ürgend wie werde ich auch net schlauer dadurch ich weiß immer noch net wo
das problem in meinen skript liegt :(
08/09/2010 11:20 bladerofdarknes#4
na gut mir war langweilig und hab kurz was gebstelt obs stimmt weiss ich nicht, keine lust zu testen

Code:
#include <PostMessage.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Allods Spammbot", 262, 205, 217, 154)
$Label1 = GUICtrlCreateLabel("Text:", 16, 32, 28, 17)
$Label2 = GUICtrlCreateLabel("Time:", 16, 80, 30, 17)
$Button1 = GUICtrlCreateButton("Button1", 56, 128, 129, 49)
$Input1 = GUICtrlCreateInput("Text", 72, 32, 145, 21)
$Input2 = GUICtrlCreateInput("Time", 72, 80, 145, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$prozess1=InputBox("Prozess", "bitte trage hier den namen des prozesses ein")
Global $hWnd=WingetHandle(GuiCtrlRead($prozess1))

WinWaitClose("Prozess")

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

	Case $Button1
		_PostMessage_Send($hWnd, "{ENTER}")
		sleep(guictrlread($Input2))
		_PostMessage_Text($hWnd, GUICtrlRead($Input1))
		_PostMessage_Send($hWnd, "{ENTER}")


	EndSwitch
WEnd
die postmessage udf gibts hier:

[Only registered and activated users can see links. Click Here To Register...]
08/09/2010 17:57 [FAN]Minecraft#5
geht nicht :(

komm immer :
_PostMessage_Send($hWnd, "{ENTER}")
^ ERROR
08/09/2010 18:10 omer36#6
dein script geht doch? habs mal so getestet funz normale...

für den von blader, muss tdu warscheinlich erst die PostMessage.au3 downloaden..
benutz die SuFu gibts hier irgentwo
08/09/2010 18:28 bladerofdarknes#7
richtig, weil bei mir kommt kein error ;)
08/09/2010 19:31 [FAN]Minecraft#8
mmh habe postmessage.au3 schon :(

zu meinen script : es funktioniert in normalen chats (is kla :D)
aber in einen MMORPG hört der einfach auf :(
08/09/2010 19:39 bladerofdarknes#9
gameguard & co
08/09/2010 23:09 [FAN]Minecraft#10
okay ich habe jetzt einen neuen bot gemacht bei dem habe ich das problem das er immer nur 3 sendet anstelle des textes


Code:
 #include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Marvin\Eigene Dateien\Allods SpamBotV1.kxf
$Form2 = GUICreate("Allods Online SpamBotV1.5 by derLotte12", 629, 319, 153, 165)
GUISetIcon("C:\gPotato.eu\Allods Online\bin\Launcher.exe")
GUISetBkColor(0xA6CAF0)
$Text = GUICtrlCreateInput("Text", 16, 200, 201, 21)
$Tempo = GUICtrlCreateInput("Tempo", 16, 232, 201, 21)
$Button1 = GUICtrlCreateButton("Weiter", 16, 272, 65, 33)
$Button2 = GUICtrlCreateButton("Abbrechen", 93, 273, 65, 33)
$Label1 = GUICtrlCreateLabel("ESC zum Beenden des Bots drücken", 16, 144, 179, 17)
$Label2 = GUICtrlCreateLabel("F1 für 1Minute Pause drücken", 16, 176, 147, 17)
$Edit = GUICtrlCreateEdit("", 16, 8, 201, 121)
GUICtrlSetData(-1, StringFormat("Algemeines\r\n\r\n1. Dieser Bot wurde Nur von einer Persohn gemacht und die heist derLotte12\r\n\r\n2. Der weiter verkauf dieses Botes mach derLotte12 sehr Traurig\r\n\r\n3. DU must auch was tuhn damit der Bot einwandfrei geht.\r\n\r\n  immer wen der Bot die Nachricht abgeschickt hat must du den Chat selber öffnen\r\n\r\n Fals er nicht weiter schreibt drücke bitte Space/Leertaste\r\n\r\n4. Viel Spaß mit diesem Bot"))
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Marvin\Eigene Dateien\allods-online-wallpapers_18766_1600x1200.jpg", 224, 8, 401, 305)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 2 
$msg=GuiGetMsg() 

If $msg=$button1 Then button1() 
If $msg=$button2 Then button2() 
Wend 


HotKeySet("{ESC}","_Exit")
HotKeySet("{F1}","_Pause")
HotKeySet("{F2}","_Start")



Func Button1()
	MsgBox (0,"Allods Online SpamBotV1.5 by derLotte12","Bitte öffne in Allods den Chat(Enter)")
	_Start()
EndFunc


Func _Start()
	While 2
	send ($Text)
	sleep($Tempo)
	send ("{Enter}")
	sleep(4000)
Wend

EndFunc

Func Button2()
	Exit
EndFunc

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

	EndSwitch
WEnd
Func _Exit()
	Exit
EndFunc

Func _Pause()
	sleep (60000)
	EndFunc

naja ich hoffe dabei ist das problem net so schwer^^

PS. für dieses Problem wolte ich nicht extra einen neuen Thread auf machen
08/09/2010 23:27 omer36#11
bitte

PHP Code:
 #include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Marvin\Eigene Dateien\Allods SpamBotV1.kxf
$Form2 = GUICreate("Allods Online SpamBotV1.5 by derLotte12", 629, 319, 153, 165)
GUISetIcon("C:\gPotato.eu\Allods Online\bin\Launcher.exe")
GUISetBkColor(0xA6CAF0)
$Text = GUICtrlCreateInput("Text", 16, 200, 201, 21)
$Tempo = GUICtrlCreateInput("Tempo", 16, 232, 201, 21)
$Button1 = GUICtrlCreateButton("Weiter", 16, 272, 65, 33)
$Button2 = GUICtrlCreateButton("Abbrechen", 93, 273, 65, 33)
$Label1 = GUICtrlCreateLabel("ESC zum Beenden des Bots drücken", 16, 144, 179, 17)
$Label2 = GUICtrlCreateLabel("F1 für 1Minute Pause drücken", 16, 176, 147, 17)
$Edit = GUICtrlCreateEdit("", 16, 8, 201, 121)
GUICtrlSetData(-1, StringFormat("Algemeines\r\n\r\n1. Dieser Bot wurde Nur von einer Persohn gemacht und die heist derLotte12\r\n\r\n2. Der weiter verkauf dieses Botes mach derLotte12 sehr Traurig\r\n\r\n3. DU must auch was tuhn damit der Bot einwandfrei geht.\r\n\r\n  immer wen der Bot die Nachricht abgeschickt hat must du den Chat selber öffnen\r\n\r\n Fals er nicht weiter schreibt drücke bitte Space/Leertaste\r\n\r\n4. Viel Spaß mit diesem Bot"))
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Marvin\Eigene Dateien\allods-online-wallpapers_18766_1600x1200.jpg", 224, 8, 401, 305)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Button1()
        Case $Button2
            Button2()
    EndSwitch
WEnd



HotKeySet("{ESC}","_Exit")
HotKeySet("{F1}","_Pause")
HotKeySet("{F2}","_Start")



Func Button1()
    MsgBox (0,"Allods Online SpamBotV1.5 by derLotte12","Bitte öffne in Allods den Chat(Enter)")
    _Start()
EndFunc


Func _Start()
    While 2
    send(GUICtrlRead($Text))
    sleep(GUICtrlRead($Tempo))
    send ("{Enter}")
    sleep(4000)
Wend

EndFunc

Func Button2()
    Exit
EndFunc


Func _Exit()
    Exit
EndFunc

Func _Pause()
    sleep (60000)
EndFunc 
08/09/2010 23:56 [FAN]Minecraft#12
danke :D