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 .
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
#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
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...