|
You last visited: Today at 16:37
Advertisement
Problem mit Allods Online SpamBot
Discussion on Problem mit Allods Online SpamBot within the AutoIt forum part of the Coders Den category.
08/09/2010, 04:39
|
#1
|
elite*gold: 0
Join Date: Apr 2010
Posts: 134
Received Thanks: 38
|
Problem mit Allods Online SpamBot
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???
|
|
|
08/09/2010, 04:56
|
#2
|
elite*gold: 0
Join Date: Mar 2008
Posts: 1,524
Received Thanks: 285
|
|
|
|
08/09/2010, 05:16
|
#3
|
elite*gold: 0
Join Date: Apr 2010
Posts: 134
Received Thanks: 38
|
ü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
|
#4
|
elite*gold: 0
Join Date: Mar 2008
Posts: 1,524
Received Thanks: 285
|
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:
|
|
|
08/09/2010, 17:57
|
#5
|
elite*gold: 0
Join Date: Apr 2010
Posts: 134
Received Thanks: 38
|
geht nicht
komm immer :
_PostMessage_Send($hWnd, "{ENTER}")
^ ERROR
|
|
|
08/09/2010, 18:10
|
#6
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
|
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
|
#7
|
elite*gold: 0
Join Date: Mar 2008
Posts: 1,524
Received Thanks: 285
|
richtig, weil bei mir kommt kein error
|
|
|
08/09/2010, 19:31
|
#8
|
elite*gold: 0
Join Date: Apr 2010
Posts: 134
Received Thanks: 38
|
mmh habe postmessage.au3 schon
zu meinen script : es funktioniert in normalen chats (is kla )
aber in einen MMORPG hört der einfach auf
|
|
|
08/09/2010, 19:39
|
#9
|
elite*gold: 0
Join Date: Mar 2008
Posts: 1,524
Received Thanks: 285
|
gameguard & co
|
|
|
08/09/2010, 23:09
|
#10
|
elite*gold: 0
Join Date: Apr 2010
Posts: 134
Received Thanks: 38
|
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
|
#11
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
|
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
|
#12
|
elite*gold: 0
Join Date: Apr 2010
Posts: 134
Received Thanks: 38
|
danke
|
|
|
|
Similar Threads
|
Allods Online - bot?
02/09/2011 - Allods - 7 Replies
Has any1 made bot which you can use to semi afk?
|
Allods Online SpamBot V1.0
09/01/2010 - Allods - 6 Replies
Hi liebe com :D
ich habe für das spiel Allods Online einen SpamBot erstellt
allerdings ist er ein wenig bughaft so das man nach helfen muss.
Er ist ofptimal für längere texte.
Das einzigste das ihr machen müst ist .
Enter drücken wen er die nachricht abgeschickt hat und wen er nicht mehr
|
Allods Online
11/07/2009 - Allods - 1 Replies
Amazing game that is looking like World of Warcraft, it will be free to play and it is entering closed beta on the 10th. Get the remaining keys fast. Check youtube for videos before you register to see if this is the game for you.
http://contest.mmosite.com/giveaway/allods/
|
Allods online
10/04/2009 - User Submitted News - 4 Replies
The world of free to play gaming is one of mixed blessings. That it costs nothing to play is great, but they often come off as Lidl games, cheap as chips and often rather nasty. gPotato is looking to change that makeup though with a couple of upcoming MMOs, one of which is the extremely impressive Allods.
Allods Online is based on the Rage Of Mages series and is all about the titular floating islands of a dyanamic and constantly shifting galaxy of worlds. Your mission if you should choose to...
|
All times are GMT +1. The time now is 16:37.
|
|