|
You last visited: Today at 15:21
Advertisement
[HELP]AutoIt-SeafightBot
Discussion on [HELP]AutoIt-SeafightBot within the Seafight forum part of the Browsergames category.
11/23/2012, 22:30
|
#16
|
elite*gold: 5 
Join Date: Mar 2011
Posts: 556
Received Thanks: 573
|
AutoIt arbeitet zeilenweise, d.h. in dem Moment wo die Funktion Start ausgeführt wird ist die GUI "nutzlos", es sei denn du registrierst Events für die Buttons etc.
Schau dir mal in der deutschen AutoIt Hilfe die Funktion "GUISetOnEvent" an.
|
|
|
|
11/23/2012, 23:01
|
#17
|
elite*gold: 1
Join Date: Sep 2012
Posts: 471
Received Thanks: 118
|
Quote:
Originally Posted by bluedraqon
AutoIt arbeitet zeilenweise, d.h. in dem Moment wo die Funktion Start ausgeführt wird ist die GUI "nutzlos", es sei denn du registrierst Events für die Buttons etc.
Schau dir mal in der deutschen AutoIt Hilfe die Funktion "GUISetOnEvent" an.
|
Habe es jz mal umgeschrieben und glaube ich sogar verstanden  Werde es morgen weiter testen hier mal mein Neuer Script :
Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <ImageSearch.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Joshua\Desktop\Scar Divi ToolBox\ScarDici.kxf
$ScarDici = GUICreate("Scar Divi ToolBox 0.01", 357, 205, 192, 124, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP,$DS_SETFOREGROUND), BitOR($WS_EX_APPWINDOW,$WS_EX_CONTEXTHELP,$WS_EX_WINDOWEDGE))
GUISetBkColor(0x00FFFF)
$Tab1 = GUICtrlCreateTab(8, 0, 345, 161)
$TabSheet1 = GUICtrlCreateTabItem("Kontroll")
$Einstellung = GUICtrlCreateGroup("Einstellung", 16, 24, 145, 89)
$ReppLogin = GUICtrlCreateCheckbox("ReppLogin", 24, 48, 97, 17)
$ReLogin = GUICtrlCreateCheckbox("ReLogin*", 24, 80, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Start = GUICtrlCreateButton("Start", 200, 24, 113, 33)
$Relogstern = GUICtrlCreateLabel("*Ladet die karte nach dem Sever-Reset neu und startet den Scar Erneut.", 16, 112, 151, 41)
GUICtrlSetColor(-1, 0x0000FF)
$HotKey = GUICtrlCreateGroup("Hot-Key's", 184, 64, 145, 73)
$F7 = GUICtrlCreateLabel("F7 = Start", 192, 80, 50, 17)
$F8 = GUICtrlCreateLabel("F8 = Pause (2 Min)", 192, 96, 93, 17)
$F9 = GUICtrlCreateLabel("F9 = Ende", 192, 112, 53, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet2 = GUICtrlCreateTabItem("AutoFeuerBot")
$EinstellungAuroFeuer = GUICtrlCreateGroup("Einstellung", 16, 32, 137, 81)
$AutoFeuer = GUICtrlCreateCheckbox("Auto Feuer", 24, 48, 97, 17)
$Entern = GUICtrlCreateCheckbox("Auto Entern", 24, 80, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Hot-Key's", 168, 40, 153, 97)
$Label1 = GUICtrlCreateLabel("Auto Feuer = F", 176, 56, 74, 17)
$Label2 = GUICtrlCreateLabel("Auto Entern = L", 176, 88, 78, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Start", 32, 120, 75, 25)
$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
$TabSheet4 = GUICtrlCreateTabItem("TabSheet4")
$TabSheet5 = GUICtrlCreateTabItem("TabSheet5")
GUICtrlCreateTabItem("")
$Exit = GUICtrlCreateButton("Exit", 32, 168, 291, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Go()
Case $Start
_Go()
Case $Exit
Exit
EndSwitch
WEnd
Func _Go()
If BitAND(GuiCtrlRead($ReppLogin), $Gui_Checked) = 1 Then ; habe es jz mal so geschrieben und es klaüüt zu mind mit der MsgBox werde es morgen mit Imagesearch versuchen
MsgBox(0,"Check","ReppLogin ist Aktiv ")
EndIf
If BitAND(GuiCtrlRead($ReLogin), $Gui_Checked) = 1 Then ; habe es jz mal so geschrieben und es klaüüt zu mind mit der MsgBox werde es morgen mit Imagesearch versuchen
MsgBox(0,"Check","ReLogin ist Aktiv ")
EndIf
If BitAND(GuiCtrlRead($ReppLogin), $Gui_Checked) = 0 And BitAND(GuiCtrlRead($ReLogin), $Gui_Checked) = 0 Then ;; So Denke ich Verhinder ich das der Bot Crasht ..
MsgBox(0,"Fehler","Es muss mind. Ein Kontroll an sein !")
EndIf
EndFunc
P.s. Wenn ich Strg + T Drücke passiert nichts ^^
|
|
|
|
|
11/23/2012, 23:06
|
#18
|
elite*gold: 5
Join Date: Mar 2011
Posts: 556
Received Thanks: 573
|
Tidy ist im "SciTe4AutoIt" enthalten, das bekommst du auf der deutschen AutoItSeite, der Script-Editor ist auch um ein vielfaches einfacher zu handhaben und umfangreicher als der in AutoIt integriert ist. 
|
|
|
|
|
11/23/2012, 23:22
|
#19
|
elite*gold: 1
Join Date: Sep 2012
Posts: 471
Received Thanks: 118
|
Quote:
Originally Posted by bluedraqon
Tidy ist im "SciTe4AutoIt" enthalten, das bekommst du auf der deutschen AutoItSeite, der Script-Editor ist auch um ein vielfaches einfacher zu handhaben und umfangreicher als der in AutoIt integriert ist. |
Kannst du mir mal den link per pn schicken ? .. Google Will nichts ausspucken ...
liebe grüße ; Der Doc 
|
|
|
|
|
11/25/2012, 20:37
|
#20
|
elite*gold: 1
Join Date: Sep 2012
Posts: 471
Received Thanks: 118
|
Hmm jz nochmal bearbeitet ..
aber es geht immer noch nicht durch beide If's  ( so lässt sich alles Starten aber er sucht nicht nach dem Bildern _ (
Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>
$Schliesen1 = 0
$Schliesen2 = 0
Dim $Ok
#region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Joshua\Desktop\Scar Divi ToolBox\ScarDici.kxf
$ScarDici = GUICreate("Scar Divi ToolBox 0.01", 357, 232, 192, 124, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_TABSTOP, $DS_SETFOREGROUND), BitOR($WS_EX_APPWINDOW, $WS_EX_CONTEXTHELP, $WS_EX_WINDOWEDGE))
GUISetBkColor(0x00FFFF)
$Tab1 = GUICtrlCreateTab(8, 0, 345, 185)
$TabSheet1 = GUICtrlCreateTabItem("Kontroll")
$Einstellung = GUICtrlCreateGroup("Einstellung", 16, 24, 145, 89)
$ReppLogin = GUICtrlCreateCheckbox("ReppLogin", 24, 48, 97, 17)
$ReLogin = GUICtrlCreateCheckbox("ReLogin*", 24, 80, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Start = GUICtrlCreateButton("Start", 200, 24, 113, 33)
$Relogstern = GUICtrlCreateLabel("*Ladet die karte nach dem Sever-Reset neu und ", 16, 144, 239, 17)
GUICtrlSetColor(-1, 0x0000FF)
$HotKey = GUICtrlCreateGroup("Hot-Key's", 184, 64, 145, 73)
$F7 = GUICtrlCreateLabel("F7 = Start", 192, 80, 50, 17)
$F8 = GUICtrlCreateLabel("F8 = Pause (2 Min)", 192, 96, 93, 17)
$F9 = GUICtrlCreateLabel("F9 = Ende", 192, 112, 53, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label3 = GUICtrlCreateLabel("Startet Den Scar Erneut.", 24, 160, 120, 17)
GUICtrlSetColor(-1, 0x0000FF)
$TabSheet2 = GUICtrlCreateTabItem("AutoFeuerBot")
$EinstellungAuroFeuer = GUICtrlCreateGroup("Einstellung", 16, 32, 137, 81)
$AutoFeuer = GUICtrlCreateCheckbox("Auto Feuer", 24, 48, 97, 17)
$Entern = GUICtrlCreateCheckbox("Auto Entern", 24, 80, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Hot-Key's", 168, 40, 153, 97)
$Label1 = GUICtrlCreateLabel("Auto Feuer = F", 176, 56, 74, 17)
$Label2 = GUICtrlCreateLabel("Auto Entern = L", 176, 88, 78, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Start", 32, 120, 75, 25)
$TabSheet3 = GUICtrlCreateTabItem("About")
GUICtrlCreateTabItem("")
$Exit = GUICtrlCreateButton("Exit", 32, 192, 291, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
_Go()
Case $Exit
Exit
EndSwitch
WEnd
Func _Go()
While 2
If BitAND(GUICtrlRead($ReppLogin), $Gui_Checked) = 1 Then
If $Ok = _ImageSearch("Unbenannt.Bmp", 1, $Schliesen1, $Schliesen2, 100) Then
MouseMove($Schliesen1, $Schliesen2, 1000)
EndIf
EndIf
If BitAND(GUICtrlRead($ReLogin), $Gui_Checked) = 1 Then
MsgBox(0, "Check", "ReLogin ist Aktiv ")
EndIf
If BitAND(GUICtrlRead($ReppLogin), $Gui_Checked) = 0 And BitAND(GUICtrlRead($ReLogin), $Gui_Checked) = 0 Then
MsgBox(0, "Fehler", "Es muss mind. Ein Kontroll an sein !")
EndIf
WEnd
EndFunc ;==>_Go
|
|
|
|
|
11/26/2012, 16:40
|
#21
|
elite*gold: 5
Join Date: Mar 2011
Posts: 556
Received Thanks: 573
|
Quote:
PHP Code:
If $Ok = _ImageSearch("Unbenannt.Bmp", 1, $Schliesen1, $Schliesen2, 100) Then
|
Was möchtest du damit bezwecken?
Damit prüfst du ob $Ok den selben Inhalt hat wie _ImageSearch, was es logischerweise nicht hat.
PHP Code:
If _ImageSearch("Unbenannt.Bmp", 1, $Schliesen1, $Schliesen2, 100) Then
muss da hin
-bluedra
//edit
PHP Code:
If BitAND(GUICtrlRead($ReppLogin), $GUI_UNCHECKED) And BitAND(GUICtrlRead($ReLogin), $GUI_UNCHECKED) Then
MsgBox(0, "Fehler", "Es muss mind. Ein Kontroll an sein !")
EndIf
$GUI_CHECKED ist für checked Boxen, $GUI_UNCHECKED für ungecheckte ^^
|
|
|
|
|
11/26/2012, 18:25
|
#22
|
elite*gold: 1
Join Date: Sep 2012
Posts: 471
Received Thanks: 118
|
Quote:
Originally Posted by bluedraqon
Was möchtest du damit bezwecken?
Damit prüfst du ob $Ok den selben Inhalt hat wie _ImageSearch, was es logischerweise nicht hat.
PHP Code:
If _ImageSearch("Unbenannt.Bmp", 1, $Schliesen1, $Schliesen2, 100) Then
muss da hin
-bluedra
//edit
PHP Code:
If BitAND(GUICtrlRead($ReppLogin), $GUI_UNCHECKED) And BitAND(GUICtrlRead($ReLogin), $GUI_UNCHECKED) Then
MsgBox(0, "Fehler", "Es muss mind. Ein Kontroll an sein !")
EndIf
$GUI_CHECKED ist für checked Boxen, $GUI_UNCHECKED für ungecheckte ^^ |
Code:
If BitAND(GUICtrlRead($ReppLogin), $GUI_UNCHECKED) And BitAND(GUICtrlRead($ReLogin), $GUI_UNCHECKED) Then
MsgBox(0, "Fehler", "Es muss mind. Ein Kontroll an sein !")
EndIf
Ist das nicht das gleich wie
Code:
If BitAND(GUICtrlRead($ReppLogin), $Gui_Checked) = 0 And BitAND(GUICtrlRead($ReLogin), $Gui_Checked) = 0 Then
MsgBox(0, "Fehler", "Es muss mind. Ein Kontroll an sein !")
EndIf
?
Danke meine ImageSearch klappr jz endlich *-*
- SeaDoc
|
|
|
|
|
11/26/2012, 18:33
|
#23
|
elite*gold: 0
Join Date: Dec 2011
Posts: 74
Received Thanks: 3
|
SeaDoc wann ist dein Großes Release ? oder gibt es ein Release ? official ?
|
|
|
|
|
11/26/2012, 18:41
|
#24
|
elite*gold: 5
Join Date: Mar 2011
Posts: 556
Received Thanks: 573
|
Ich bin mir nicht sicher ob die Funktion wirklich 0 zurück gibt... Wohl eher gibt sie False zurück und logische Operatoren werden nicht mit Integern verglichen ^^
Wenn das so funktioniert hast du Glück, ist aber nicht Sinn der Sache 
|
|
|
|
|
11/26/2012, 18:47
|
#25
|
elite*gold: 1
Join Date: Sep 2012
Posts: 471
Received Thanks: 118
|
Quote:
Originally Posted by bluedraqon
Ich bin mir nicht sicher ob die Funktion wirklich 0 zurück gibt... Wohl eher gibt sie False zurück und logische Operatoren werden nicht mit Integern verglichen ^^
Wenn das so funktioniert hast du Glück, ist aber nicht Sinn der Sache |
Oki danke dir wenn ich das so schreibe am anfang
Code:
Func _Go()
While 2
If BitAND(GUICtrlRead($ReppLogin), $Gui_Checked) = 1 Then
Sleep(500)
If _ImageSearch("Bilder\Repp.Bmp", 1, $Repp1, $Repp2, 100) Then
MouseMove($Repp1, $Repp2, 1000)
Sleep(500) ;Cpu Schonen
EndIf
EndIf
If BitAND(GUICtrlRead($ReppLogin), $Gui_Checked) = 1 Then
If _ImageSearch("Bilder\Schliesen.Bmp", 1, $Close1, $Close2, 100) Then
MouseMove($Close1, $Close2, 1000)
EndIf
EndIf
WEnd
Laggt es einbischen .. ist das normal ?
|
|
|
|
|
11/26/2012, 18:48
|
#26
|
elite*gold: 224
Join Date: Dec 2010
Posts: 2,766
Received Thanks: 931
|
Was verstehst du unter Lagg? und was laggt genau?
|
|
|
|
|
11/26/2012, 18:49
|
#27
|
elite*gold: 1
Join Date: Sep 2012
Posts: 471
Received Thanks: 118
|
Quote:
Originally Posted by Sebi201195
SeaDoc wann ist dein Großes Release ? oder gibt es ein Release ? official ?
|
Ich bin mir sicher das Bald ein Release kommen wird kann aber noch nicht genau sagen wann (da ich noch ein kleiner anfänger bin)
und ob es Official Rauskommt weiß ich nicht ganz genau ich denke mal das ich das Officiale Als " Demo* " Raus rücken werde
*Demo '= Eingeschränkte Funktion..
- Seadoc
Quote:
Originally Posted by Alex_II
Was verstehst du unter Lagg? und was laggt genau?
|
Sobald ich Start Drücke Hängt es sich für Ca. 20 Sec. auf und dann arbeitet es erst normal ..
habe schon extra versucht ein " Sleep(500) " reinzubauen damit der Cpu nicht belastet wird aber da karm genau das gleiche raus ..
aber sobald ich eine If Raus nehme Läuft es ganz normal ohne lagg
-Seadoc
|
|
|
|
|
11/26/2012, 18:52
|
#28
|
elite*gold: 5
Join Date: Mar 2011
Posts: 556
Received Thanks: 573
|
PHP Code:
While True
If BitAND(GUICtrlRead($ReppLogin), $Gui_Checked) And _ImageSearch("Bilder\Repp.Bmp", 1, $Repp1, $Repp2, 100) Then
MouseMove($Repp1, $Repp2, 1000)
EndIf
If BitAND(GUICtrlRead($ReppLogin), $Gui_Checked) And _ImageSearch("Bilder\Schliesen.Bmp", 1, $Close1, $Close2, 100) Then
MouseMove($Close1, $Close2, 1000)
EndIf
Sleep(50)
WEnd
Die Pause wo du sie hattest wurde nur ausgeführt wenn Imagesearch was gefunden hat; jetzt sollte es funktionieren
|
|
|
|
|
11/26/2012, 18:58
|
#29
|
elite*gold: 1
Join Date: Sep 2012
Posts: 471
Received Thanks: 118
|
Quote:
Originally Posted by bluedraqon
PHP Code:
While True
If BitAND(GUICtrlRead($ReppLogin), $Gui_Checked) And _ImageSearch("Bilder\Repp.Bmp", 1, $Repp1, $Repp2, 100) Then
MouseMove($Repp1, $Repp2, 1000)
EndIf
If BitAND(GUICtrlRead($ReppLogin), $Gui_Checked) And _ImageSearch("Bilder\Schliesen.Bmp", 1, $Close1, $Close2, 100) Then
MouseMove($Close1, $Close2, 1000)
EndIf
Sleep(50)
WEnd
Die Pause wo du sie hattest wurde nur ausgeführt wenn Imagesearch was gefunden hat; jetzt sollte es funktionieren |
so laggt es immer noch , ich schick dir mal den ordner per pn
|
|
|
|
 |
|
Similar Threads
|
Seafightbot by nikkatheone,no key!!!
08/07/2012 - Browsergames Trading - 2 Replies
Hi,
u need this bot pm me!;)
|
Problem Seafightbot
07/13/2012 - Seafight - 4 Replies
Hello
There is a problem since the program Seafightbot three days
Is there a solution?
Or bot last updated Free?
|
Seafightbot by nikkatheone,no key!!!
04/18/2012 - Seafight - 6 Replies
it works:
download and unzip run 30min demo
when finish first 30min dont closing bot
just login again and enjoy unlimited time
http://adf .ly /7VVli
remove space the link
Do not forget to thank!!
|
Suche SeafightBot
03/25/2011 - Seafight - 1 Replies
Suche SeafightBot
Hallo, Damen und Herren, da ich nicht Programmieren kann suche ich ein SeafightBot ich hab Früher einen gehabt der war aber nicht so gut und geht in zwischen auch nicht mehr wenn jemand weis ob ein bot geht oder ein bot hat bitte ich ihn denn Link zum hack schicken oder denn hack schicken. Da es bei Seafight neue Einstellungen gibt wie Glitzis habe verschiedene Farben, Monster sehen anderst aus geht zur zeit meines Wissens kein Bot. Der Bot sollte Glitzis einsammeln und...
|
All times are GMT +1. The time now is 15:22.
|
|
![[HELP]AutoIt-SeafightBot](https://www.elitepvpers.com/forum/iconimages/seafight/help-autoit-seafightbot_ltr.gif){kind=small}
