ich habe so VIELLLLLE Fragen an euch. Ich hoffe ihr könnt mir echt weiter helfen.
Habe mir vor 5 Tagen AutoIt gesaugt und bin seit dem kräftig dabei zu Scripten. Bzw. es zu lernen.
Ich möchte gerne ein Bot für das Game LastChaos erstellen.
Ich hatte schon einiges hier im Forum über Bots gelesen. Genauso wie die Funktionen usw.
Sogar die Bots von Marcopolo1990 habe ich mir angeschaut und versucht da durch zu steigen.
Aber für mich als Großer Noob. Ist das echt nicht leicht.
So, hier zeig ich euch erstmal das Design:
So meine Frage zu dem ganzen ist.
Unter Acc Wahl sieht man ja gleich links Oben 2 GUICtrlCreateInput Felder. Für Name und PW.
Ich würde das gerne so haben, das die Daten in einer Text oder ini datei abgespeichert werden. Und dann unter Vorschlag nur noch den Namen anklicken brauch und schon stehen oben die Daten wieder drine und kann mich dann einloggen. Wie genau macht man sowas?
Das nächste Ding ist zB. Wenn man ein Server ausgesucht hat, soll erst dann eine GomboBox erscheinen mit den dazugehörigen Channels, wäre sowas möglich? Wenn ja, wie???
Hier erstmal mein Layout Script:
und hier der Script von meinem Bot. Der Leider noch nicht sehr viel kann. (nämlich gar nix.)Quote:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=bilder\LCSourlyBot.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=F:\Programme\AutoIt3\lc-bot\sourlybotdesign.kxf
$Sourlybot = GUICreate("SourlyBot - Interface", 519, 470, -1, -1)
GUISetIcon("bilder\LCSourlyBot.ico")
GUISetBkColor(0x000000)
GUISetOnEvent($GUI_EVENT_CLOSE, "SourlybotClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "SourlybotMinimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "SourlybotMaximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "SourlybotRestore")
$SourlyBot = GUICtrlCreateTab(8, 8, 500, 416)
GUICtrlSetResizing($SourlyBot, $GUI_DOCKHCENTER+$GUI_DOCKVCENTER)
$Info = GUICtrlCreateTabItem("SourlyBot")
$Einleitung = GUICtrlCreateGroup("Einleitung", 222, 43, 265, 361)
GUICtrlSetFont($Einleitung, 8, 400, 0, "Arial")
GUICtrlSetBkColor($Einleitung, 0x808080)
GUICtrlSetResizing($Einleitung, $GUI_DOCKRIGHT+$GUI_DOCKHCENTER)
GuiCtrlCreateLabel("Der LCSourlyBot steht noch sehr weit am Anfang."& @CRLF & _
"Deswegen suche ich noch 1 bis 2 weitere Leute," & @CRLF & "die mir bei dem Projekt helfen können."& @CRLF & _
"Wenn ihr Interesse daran hättet, dann schreibt mir doch bitte eine eMail," & @CRLF & _
"an" & @CRLF & _
"Was ihr dafür braucht? Nur reichlich erfahrung mit AutoIt." & @CRLF & _
"Und schon könnt ihr mitmachen!", 240, 70, 260, 360)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$titelbild = GUICtrlCreatePic("bilder\titel.JPG", 22, 43, 180, 361)
GUICtrlSetOnEvent($titelbild, "titelbildClick")
GUICtrlSetState($titelbild, $GUI_DISABLE)
$AccWahl = GUICtrlCreateTabItem("Acc Wahl")
$logingruppe = GUICtrlCreateGroup("1. Login-Daten", 22, 38, 250, 110)
GUICtrlSetFont($logingruppe, 8, 400, 0, "Arial")
$Benutzername = GUICtrlCreateInput("Benutzername", 117, 58, 145, 22)
GUICtrlSetOnEvent($Benutzername, "BenutzernameChange")
$Passwort = GUICtrlCreateInput("Passwort", 117, 88, 145, 22)
GUICtrlSetOnEvent($Passwort, "PasswortChange")
$Benutzernameschrift = GUICtrlCreateLabel("Benutzername:", 32, 58, 77, 18)
GUICtrlSetOnEvent($Benutzernameschrift, "BenutzernameschriftClick")
$passwortschrift = GUICtrlCreateLabel("Passwort:", 32, 88, 54, 18)
GUICtrlSetOnEvent($passwortschrift, "passwortschriftClick")
$accvorschlagschrift = GUICtrlCreateLabel("Vorschläge:", 32, 118, 63, 18)
GUICtrlSetOnEvent($accvorschlagschrift, "accvorschlagschriftClick")
$Account = GUICtrlCreateCombo("Account", 117, 118, 145, 25)
GUICtrlSetOnEvent($Account, "AccountChange")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$chargruppe = GUICtrlCreateGroup("4. Charakter Auswahl:", 182, 288, 145, 130)
GUICtrlSetFont($chargruppe, 8, 400, 0, "Arial")
$charliste = GUICtrlCreateList("", 192, 304, 125, 104)
GUICtrlSetData($charliste, "Charakter 1|Charakter 2|Charakter 3|Charakter 4|Charakter 5")
GUICtrlSetOnEvent($charliste, "charlisteClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$servergruppe = GUICtrlCreateGroup("2. Server Auswahl:", 292, 38, 113, 110)
GUICtrlSetFont($servergruppe, 8, 400, 0, "Arial")
$serverliste = GUICtrlCreateList("", 304, 58, 89, 76)
GUICtrlSetData($serverliste, "1 Tengal Neu|2 Luxor|3 Delum|4 Katar")
GUICtrlSetOnEvent($serverliste, "serverlisteClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$delumgruppe = GUICtrlCreateGroup("3. Delum:", 342, 153, 145, 130)
GUICtrlSetFont($delumgruppe, 8, 400, 0, "Arial")
$delumliste = GUICtrlCreateList("", 350, 169, 125, 104)
GUICtrlSetData($delumliste, "Delum-1|Delum-2(Non-PvP)|Delum-3|Delum-4|Delum-5(Non-PvP)|Delum-6")
GUICtrlSetOnEvent($delumliste, "delumlisteClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$tengalneugruppe = GUICtrlCreateGroup("3. Tengal Neu:", 22, 153, 145, 130)
GUICtrlSetFont($tengalneugruppe, 8, 400, 0, "Arial")
$tengalneuliste = GUICtrlCreateList("", 30, 169, 125, 104)
GUICtrlSetData($tengalneuliste, "Tengal Neu-1|Tengal Neu-2(Non-PvP)|Tengal Neu-3|Tengal Neu-4|Tengal Neu-5(Non-PvP)|Tengal Neu-6")
GUICtrlSetOnEvent($tengalneuliste, "tengalneulisteClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$katargruppe = GUICtrlCreateGroup("3. Katar:", 22, 288, 145, 130)
GUICtrlSetFont($katargruppe, 8, 400, 0, "Arial")
$katarliste = GUICtrlCreateList("", 30, 304, 125, 104)
GUICtrlSetData($katarliste, "Katar-1|Katar-2(Non-PvP)|Katar-3|Katar-4|Katar-5(Non-PvP)|Katar-6|Katar-7|Katar-8")
GUICtrlSetOnEvent($katarliste, "katarlisteClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$luxorgruppe = GUICtrlCreateGroup("3. Luxor:", 182, 153, 145, 130)
GUICtrlSetFont($luxorgruppe, 8, 400, 0, "Arial")
$luxorliste = GUICtrlCreateList("", 190, 169, 125, 104)
GUICtrlSetData($luxorliste, "Luxor-1|Luxor-2(Non-PvP)|Luxor-3|Luxor-4|Luxor-5(Non-PvP)|Luxor-6")
GUICtrlSetOnEvent($luxorliste, "luxorlisteClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Einstellungen = GUICtrlCreateTabItem("Einstellungen")
GUICtrlCreateTabItem("")
GUICtrlSetOnEvent($SourlyBot, "SourlyBotChange")
$OK = GUICtrlCreateButton("&OK", 270, 432, 75, 25, 0)
GUICtrlSetOnEvent($OK, "OKClick")
$Cancel = GUICtrlCreateButton("&Cancel", 350, 432, 75, 25, 0)
GUICtrlSetOnEvent($Cancel, "SourlybotClose")
$Help = GUICtrlCreateButton("&Help", 432, 432, 75, 25, 0)
GUICtrlSetOnEvent($Help, "HelpClick")
GUISetState(@SW_SHOW)
Dim $Sourlybot_AccelTable[3][2] = [["^!o", $OK],["^!c", $Cancel],["^!h", $Help]]
GUISetAccelerators($Sourlybot_AccelTable)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
Func AccountChange()
EndFunc
Func accvorschlagschriftClick()
EndFunc
Func BenutzernameChange()
EndFunc
Func BenutzernameschriftClick()
EndFunc
Func charlisteClick()
EndFunc
Func delumlisteClick()
EndFunc
Func HelpClick()
EndFunc
Func katarlisteClick()
EndFunc
Func luxorlisteClick()
EndFunc
Func OKClick()
EndFunc
Func PasswortChange()
EndFunc
Func passwortschriftClick()
EndFunc
Func serverlisteClick()
EndFunc
Func SourlyBotChange()
EndFunc
Func SourlybotClose()
exit
EndFunc
Func SourlybotMaximize()
EndFunc
Func SourlybotMinimize()
EndFunc
Func SourlybotRestore()
EndFunc
Func tengalneulisteClick()
EndFunc
Func titelbildClick()
EndFunc
Der Bot soll gleich zum Anfang einen Text zu der Gilde schreiben. Aber das passiert nicht, weiss jemand vllt warum das so ist? Oder was ich da Falsch gemacht habe?Quote:
$Hero_ID = "####"
$Hero_PW = "####"
HotKeySet("{ESC}", "Terminate")
Run ("LC.exe")
WinWaitActive ("LastChaos Launcher")
Sleep (3000)
MouseClick ("left", 730, 680)
Sleep (60000)
WinWaitActive("LastChaos - Gamigo")
Send($Hero_ID)
Send("{TAB}")
Send($Hero_PW)
Send("{ENTER}")
Sleep(5000)
MouseClick ("left", 468, 504)
Sleep(3000)
MouseClick ("left", 672, 551)
Sleep(3000)
MouseClick ("left", 736, 619)
Sleep(3000)
MouseClick ("left", 351, 627)
Sleep(3000)
MouseClick ("left", 673, 877)
Sleep(60000)
Send("{enter}")
Send("@Hallo Lieblingsgilde. Schön wieder beich euch zu sein.")
Send("{enter}")
Sleep(1500)
Send("{enter}")
Send("@Sacred 4 ever!")
Send("{enter}")
Sleep(1500)
Send("{enter}")
Send("@Ich bin dann mal Only in Dratan, am fighten!!!")
Send("{enter}")
Sleep(1500)
Func Terminate()
Exit 0
EndFunc
Exit
Ich hätte wie gesagt, noch viel mehr Fragen. Aber ich laß das erstmal sachte hier angehen.
Hoffe echt das hier ein paar Pro´s rein schauen und etwas hilfestellungen geben.
MfG
Sourly
wobei man manchmal irgendwas zum klicken braucht ^^
