Entwickler-Ecke

Sonstiges (Delphi) - AutoIT Oberfläche nach Delphi


neuronet - Do 09.12.10 14:29
Titel: AutoIT Oberfläche nach Delphi
Folgendes Problem:

Ich habe eine vollständige Benutzeroberfläche in AutoIT.

Da das Projekt nun nach Delphi wechselt möchte ich die Oberfläche komplett übernehmen, ohne alles noch mal neu machen zu müssen.

Irgendjemand ne Idee ob's da nen Konverter oder so was gibt?


Thx...


BenBE - Sa 11.12.10 23:39

Da ich grad nicht wei0, wie die Oberflächen-Def für AutoIt aussieht, wäre zumindest ein Ausschnitt ganz gut.

Im Zweifelsfalle müsstest Du dir ein kleines Script bauen, was von AutoIt die Dateien liest und daraus DFM-Files baut. Ist nicht so schwer.


neuronet - So 09.01.11 05:20

GUI-Elemente in AutoIt werden so erstellt:


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
Global $TabSheet2 = GUICtrlCreateTabItem("Basic")
Global $Group4 = GUICtrlCreateGroup("", 8, 409, 569, 169)
Global $Checkbox_Sit = GUICtrlCreateCheckbox("Sit", 16, 424, 97, 17)
GUICtrlSetTip($Checkbox_Sit, "Requires Sit Action")
Global $Checkbox_AutoFood = GUICtrlCreateCheckbox("Auto_Food", 16, 448, 97, 17)
Global $Combo_AutoFood_Food = GUICtrlCreateCombo("Combo_AutoFood_Food", 120, 448, 145, 25)
GUICtrlSetTip($Combo_AutoFood_Food, "Uses Food to recover Health mainly , not Mana")
Global $Checkbox_AutoFood_Rebuy_Food = GUICtrlCreateCheckbox("Rebuy_Food", 16, 472, 97, 17)
Global $Input_AutoFood_Rebuy_Food_Amount = GUICtrlCreateInput("Input_AutoFood_Rebuy_Food_Amount", 208, 472, 57, 21)
GUICtrlSetTip($Input_AutoFood_Rebuy_Food_Amount, "Buy this amount of the selected food if it runs out")
Global $Checkbox_AutoRezz = GUICtrlCreateCheckbox("Auto_Rezz", 16, 496, 97, 17)
Global $Combo_AutoRezz_LifePotion = GUICtrlCreateCombo("Combo_AutoRezz_LifePotion", 120, 496, 145, 25)
Global $Checkbox_AutoLoot = GUICtrlCreateCheckbox("AutoLoot", 16, 520, 97, 17)
GUICtrlSetTip($Checkbox_AutoLoot, "Requires AutoLoot Action")
Global $Input_AutoLoot_AfterTurns = GUICtrlCreateInput("Input_AutoLoot_AfterTurns", 224, 520, 41, 21)
GUICtrlSetTip($Input_AutoLoot_AfterTurns, "AutoLoot in this intervall of turn numbers")
Global $Checkbox_AutoBattle_License = GUICtrlCreateCheckbox("AutoBattle_License", 16, 552, 113, 17)
Global $Label18 = GUICtrlCreateLabel("slot:", 272, 448, 23, 17)
Global $Label37 = GUICtrlCreateLabel("slot:", 272, 496, 23, 17)
Global $Label39 = GUICtrlCreateLabel("amount to rebuy :", 120, 472, 86, 17)
Global $Label40 = GUICtrlCreateLabel("loot after X turns", 120, 520, 81, 17)
Global $Combo_AutoFood_Slot_Number = GUICtrlCreateCombo("", 296, 448, 41, 25)
GUICtrlSetData($Combo_AutoFood_Slot_Number, "1|2|3|4|5")
Global $Combo_AutoRezz_Slot_Number = GUICtrlCreateCombo("", 296, 496, 41, 25)
GUICtrlSetData($Combo_AutoRezz_Slot_Number, "1|2|3|4|5")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group5 = GUICtrlCreateGroup("", 8, 25, 569, 217)
Global $Button_GetCursorIDhand = GUICtrlCreateButton("Get CursorID Hand", 16, 42, 115, 41, 0)
GUICtrlSetTip($Button_GetCursorIDhand, "CursorID resets with every start of Atlantica.exe")
Global $Input_CursorIDhand = GUICtrlCreateInput("Input_CursorIDhand", 136, 50, 121, 21)
Global $Button_GetCursorIDsword = GUICtrlCreateButton("Get CursorID Sword", 16, 90, 115, 41, 0)
GUICtrlSetTip($Button_GetCursorIDsword, "Make new CursorID's with every start of Atlantica.exe")
Global $Input_CursorIDsword = GUICtrlCreateInput("Input_CursorIDsword", 136, 98, 121, 21)
Global $Button_GetCursorIDpickup = GUICtrlCreateButton("Get CursorID PickUp", 17, 141, 115, 41, 0)
GUICtrlSetTip($Button_GetCursorIDpickup, "Optional to Search corpse with Click")
Global $Input_CursorIDpickup = GUICtrlCreateInput("Input_CursorIDpickup", 137, 149, 121, 21)
Global $Button_GetCursorIDtalk = GUICtrlCreateButton("Get CursorID Talk", 17, 189, 115, 41, 0)
GUICtrlSetTip($Button_GetCursorIDtalk, "Optional to Search corpse with Click")
Global $Input_CursorIDtalk = GUICtrlCreateInput("Input_CursorIDtalk", 137, 197, 121, 21)
Global $Icon_Hand = GUICtrlCreateIcon("", 0, 265, 45, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Icon_Sword = GUICtrlCreateIcon("", 0, 265, 93, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Icon_PickUp = GUICtrlCreateIcon("", 0, 265, 141, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Icon_Talk = GUICtrlCreateIcon("", 0, 265, 189, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Button_Reload_Cursor_ID = GUICtrlCreateButton("Reload IDs", 313, 45, 123, 33, 0)
GUICtrlSetFont($Button_Reload_Cursor_ID, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group19 = GUICtrlCreateGroup("", 8, 240, 569, 169)
Global $Checkbox_Combat = GUICtrlCreateCheckbox("Bot_Combat", 16, 256, 113, 17)
GUICtrlSetFont($Checkbox_Combat, 8, 800, 0, "MS Sans Serif")
GUICtrlSetTip($Checkbox_Combat, "Bot will automatically do combat , if not checked it does nothing during combat")
Global $Checkbox_Search_Enemies = GUICtrlCreateCheckbox("Search_Enemies", 16, 280, 113, 17)
GUICtrlSetFont($Checkbox_Search_Enemies, 8, 800, 0, "MS Sans Serif")
GUICtrlSetTip($Checkbox_Search_Enemies, "Bot will automatically search enemies , if not checked it will not")
Global $Input_Default_Zoom_Combat = GUICtrlCreateInput("Input_Default_Zoom_Combat", 32, 328, 89, 21)
Global $Checkbox_Set_Default_Zoom_Combat_At_Start = GUICtrlCreateCheckbox("Default_Zoom_in_Combat", 16, 304, 145, 17)
GUICtrlSetTip($Checkbox_Set_Default_Zoom_Combat_At_Start, "Sets the Default Camera Zoom in Combat by Z Hotkey")
Global $Combo_Default_Zoom = GUICtrlCreateCombo("Combo_Default_Zoom", 128, 328, 145, 25)
GUICtrlSetData($Combo_Default_Zoom, "Team on Top|Enemie on Top")
GUICtrlSetTip($Combo_Default_Zoom, "The Bot must use Team on Top to work !")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetImage($Icon_Hand, "Icons/hand_cursor.ico")
GUICtrlSetImage($Icon_Sword, "Icons/attack_cursor.ico")
GUICtrlSetImage($Icon_PickUp, "Icons/grab_cursor.ico")
GUICtrlSetImage($Icon_Talk, "Icons/talk_cursor.ico")


BenBE - So 09.01.11 06:59

Parse einfach jede einzelne Zeile und übersetz die einzelnen Zeielen in passende Delphi-Befehle.