Ich arbeite im moment an einem Guicreator aber es geht nochnicht alles...
Probleme:
1.Es wird egal was man in die $edita reinschreibt immer nur ein Zahlencode in die Datei geschrieben.
2.Es wird hier:
FileWriteLine("GuicreatotNR"&$Fileka&".au3","GUICreate("&$GUI_NAME1&"")
[/autoit]
Nur Guicreate( geschrieben.
Wenn ich gleich dabei bin:
1.Wie schaltet man UPX Verschlüsselung aus.
Und
2.Wie mache ich es das bei Filewriteline das =>"<= auch eingeschrieben wird und nicht das dort der String zuende ist weil soviele Filewrite´s zu schreiben würde anstrengen...
schonmal danke im Vorraus ![]()
Gruß
B-Kill
Spoiler anzeigen
Global $edita,$B1_aktiv,$B2_aktiv,$B3_aktiv,$B4_aktiv,$I1_aktiv,$I2_aktiv,$I3_aktiv,$I4_aktiv
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
$Fileka=Random(1,999999,1)
$V_Num="0.9 Betha"
$GUI=GUICreate("7by7 Guicreator v."&$V_Num,600,300)
#Region GUI-Haupt
Opt("GUIONEVENTMODE",1)
GUICtrlCreateTab(1,1,600,30)
GUICtrlCreateTabItem ( "Home" )
Guictrlcreatelabel ("Hilfe: Alt+H",1,40)
Guictrlcreatelabel ("Erklärungen:Alt+E",1,60)
$Fertig=GUICtrlCreateButton("Test",550,270,50,30)
$Fertig2=GUICtrlCreateButton("Readdy?^^",449,270,100,30)
GUICtrlSetOnEvent($Fertig2,"_writeF2")
GUICtrlSetOnEvent($Fertig,"_ready")
GUICtrlCreateTabItem ( "Hauptgui" )
Guictrlcreatelabel("X-Größe des Guis",1,40,100,19)
GUICtrlCreateLabel("Y-Größe des Guis",1,60,100,19)
$x=GUICtrlCreateInput("",101,40,50,19)
$y=GUICtrlCreateInput("",101,60,50,19)
GUICtrlCreateLabel("Guiname:",1,80,100,19)
$GUI_NAME=GUICtrlCreateInput("",101,80,100,19)
GUICtrlCreateLabel("On Event mode oder via Msgfloot mode?",251,271)
GUICtrlCreateCheckbox ( "ON_EVENT_MODE", 450, 279 , 129 ,12)
GUICtrlCreateCheckbox ( "MSG_FLOOT_MODE$",450, 265 , 139 ,12)
GUICtrlCreateTabItem ( "Bottums" )
GUICtrlCreateLabel( "Welche Buttons sollen in den GUI?",1,30,190,20)
$BI1=GUICtrlCreateButton("Erstellen des 1. Bottums:",1, 50,598,39)
GUICtrlSetOnEvent($BI1,"_BI1")
$BI2=GUICtrlCreateButton("Erstellen des 2. Bottums:",1, 90,598,39)
GUICtrlSetOnEvent($BI2,"_BI1")
$BI3=GUICtrlCreateButton("Erstellen des 3. Bottums:",1,130,598,39)
GUICtrlSetOnEvent($BI3,"_BI1")
$BI4=GUICtrlCreateButton("Erstellen des 4. Bottums:",1,170,598,39)
GUICtrlSetOnEvent($BI4,"_BI1")
Guictrlcreatetabitem ( "Erweitert")
GUICtrlCreateTabItem ( "Credits" )
GUICtrlCreateLabel("Made By:Bloodykill´s 7by7 Autoit Company",1,40)
GUICtrlCreateLabel("V. 0.9 Betha ich bedanke mich für die Teilnahme am Test.",1,60)
GUICtrlCreateLabel("Weitere Tools:",1,80)
Guisetonevent($GUI_EVENT_CLOSE,"exxit")
GUISetState()
#Endregion =>Gui Haupt
$GUI_NAME1=GUICtrlRead($GUI_NAME)
$Edita=GUICtrlRead($edita)
#region Func´s
Func exxit()
Exit
EndFunc
Func _ready()
$x1=GUICtrlRead($x)
$y1=GUICtrlRead($y)
Guicreate(""&$GUI_NAME1,$x1,$y1)
GUISetOnEvent($GUI_EVENT_CLOSE,"exxxit")
Guisetstate()
EndFunc
Func exxxit()
GUIDelete()
EndFunc
Func _BI1()
Guicreate("Funktion des 1. Bottoms",400,400)
GUICtrlCreateLabel("Funktion des Bottums.",1,1)
GUICtrlCreateLabel("Muss selber geschrieben!",1,21)
Guictrlcreatelabel("Wird in der Alpha verbessert!",1,41)
$edita=GUICtrlCreateEdit("",1,62,200,200)
GUICtrlCreateLabel("X-Größe",205,1,195,20)
GUICtrlCreateInput("",205,20,195,20)
GUICtrlCreateLabel("Y-Größe",205,41)
GUICtrlCreateInput("",205,61,195,20)
GUISetOnEvent($GUI_EVENT_CLOSE,"exxxit")
$B1_aktiv=1
GUISetState()
EndFunc
Func _WriteF2()
FileWriteLine("GuicreatotNR"&$Fileka&".au3","GUICreate("&$GUI_NAME1&"")
FileWriteline("GuicreatotNR"&$Fileka&".au3", ""&$Edita )
Endfunc
#Endregion =>Func´s
While 1
Sleep(500)
WEnd