- Offizieller Beitrag
Du sollst doch keine Bots machen!
Spoiler anzeigen
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Haupt Steuerelement", 346, 580, 929, 0)
$TabforGames = GUICtrlCreateTab(8, 8, 329, 561)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$Anwendungen = GUICtrlCreateTabItem("Anwendungen")
$Metin = GUICtrlCreateButton("Metin 2", 24, 40, 297, 65, $WS_GROUP)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetCursor(-1, 0)
$Firefox = GUICtrlCreateButton("Firefox", 24, 112, 297, 65, $WS_GROUP)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetCursor(-1, 0)
$Office = GUICtrlCreateButton("Office", 24, 184, 297, 65, $WS_GROUP)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetCursor(-1, 0)
$Arbeitsplatz = GUICtrlCreateButton("Arbeitsplatz", 24, 256, 297, 65, $WS_GROUP)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetCursor(-1, 0)
$Outlook = GUICtrlCreateButton("Outlook", 24, 328, 297, 65, $WS_GROUP)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetCursor(-1, 0)
$MusikPlayer = GUICtrlCreateButton("Musik Player", 24, 400, 297, 65, $WS_GROUP)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetCursor(-1, 0)
$Liste_der_Spiele = GUICtrlCreateButton("Liste aller Spiele", 24, 472, 297, 65, $WS_GROUP)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetCursor(-1, 0)
$MetinBots = GUICtrlCreateTabItem("Metin Bots")
$PickUp = GUICtrlCreateButton("Pick up", 24, 40, 297, 65, $WS_GROUP)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetCursor(-1, 0)
$AutoSchlag = GUICtrlCreateButton("Auto-Schlag", 24, 112, 297, 65, $WS_GROUP)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetCursor(-1, 0)
$Fertigkeit = GUICtrlCreateButton("Fertigkeit", 24, 184, 297, 65, $WS_GROUP)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetCursor(-1, 0)
$RufBot = GUICtrlCreateButton("Ruf-Bot", 24, 256, 297, 65, $WS_GROUP)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetCursor(-1, 0)
$GeradeauslaufBot = GUICtrlCreateButton("Geradeauslauf-Bot", 24, 328, 297, 65, $WS_GROUP)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetCursor(-1, 0)
$ReinlogBot = GUICtrlCreateButton("Reinlog-Bot", 24, 400, 297, 65, $WS_GROUP)
GUICtrlSetFont(-1, 13, 400, 0, "Arial Black")
GUICtrlSetCursor(-1, 0)
$HotkeyHelp = GUICtrlCreateLabel("Hotkeys: Strg+ A/B/C/D/E/F", 48, 504, 230, 28)
GUICtrlSetFont(-1, 15, 400, 0, "Graphics")
$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
$TabSheet4 = GUICtrlCreateTabItem("TabSheet4")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
Dim $Form1_AccelTable[6][2] = [["^a", $PickUp],["^b", $AutoSchlag],["^c", $Fertigkeit],["^d", $RufBot],["^e", $GeradeauslaufBot],["^f", $ReinlogBot]]
GUISetAccelerators($Form1_AccelTable)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit;
EndSwitch
WEnd
Mega