Beiträge von button421

Ich meine, das wenn man in dem FileOpenDialog auf "Öffnen" klickt, das dann in eine ListView oder in einer ComboBox die im FileOpenDialog ausgewählten Dateien eingefügt werden.

Hallo Leute,
Ich habe ein Problem...
Ich möchte, dass wenn man auf einen Button(Button1) klickt, sich ein FileOpenDialog öffnet.
Wenn man in ihm Dateien auswählt und auf "Öffnen" klickt, erscheinen die in ihm ausgewählten Dateien.
Ein FileOpenDialog geht ja so:

Spoiler anzeigen

[autoit]

FileOpenDialog("Öffnen", @ScriptDir, "Executable Files(*.exe)")

[/autoit]

Achso, kann man damit eigentlich auch eigene Dateiendungen erfinden?

Danke

Achso! Jetzt funzt mein Script!
Danke

Was ist denn ein Codeblock?

Ähm ich hätte noch ein Problem.
Wenn ich das Programm ausführe und auf Ja klicke, passiert nichts :-(.
Mein Script:

[autoit]

#include <GUIConstants.au3>

[/autoit][autoit][/autoit][autoit]

;Der Loader
#Region ### START Koda GUI section ### Form=c:\users\jonathan verbeek\desktop\autoit\installer\loader.kxf
$Loader = GUICreate("Loading...", 338, 178, 193, 125)
$Pic1 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\AutoIt\Installer\load_background.jpg", 0, 0, 337, 177, 0)
$Progress1 = GUICtrlCreateProgress(0, 152, 337, 25)
GUICtrlSetData(-1, 0)
GUICtrlSetData(-1, 10)
GUICtrlSetData(-1, 50)
GUICtrlSetData(-1, 90)
GUICtrlSetData(-1, 100)
GUISetState(@SW_HIDE)
GUISetState(@SW_ENABLE)
#EndRegion ###
$Answer = MsgBox(4,"Run?","Run the Main Program?")

[/autoit][autoit][/autoit][autoit]

;Hauptprogramm
#Region ### START Koda GUI section ### Form=C:\\Benutzer\Jonathan Verbeek\Desktop\AutoIT\Installer\installerpackager.kxf
$JVIP = GUICreate("JV Installer Packager -", 992, 626, 6, 65)
$Pic1 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\AutoIt\Installer\background.jpg", 0, 0, 1017, 713, 0)
$Label1 = GUICtrlCreateLabel("Step 1 - Load Files ", 40, 48, 138, 20)
GUICtrlSetFont(-1, 10, 800, 6, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$ListView1 = GUICtrlCreateListView("Filename|Path", 104, 88, 289, 225)
GUICtrlSendMsg(-1, 0x101E, 0, 60)
GUICtrlSendMsg(-1, 0x101E, 1, 200)
$ListView1_0 = GUICtrlCreateListViewItem("", $ListView1)
GUICtrlSetTip(-1, "Click the Button, to add Items.")
$Button1 = GUICtrlCreateButton("Load Files", 176, 320, 113, 25, 0)
$Label2 = GUICtrlCreateLabel("Step 2 - Settings ", 432, 248, 121, 20)
GUICtrlSetFont(-1, 10, 800, 6, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Checkbox1 = GUICtrlCreateCheckbox("If ready, then run", 488, 280, 121, 17, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Checkbox2 = GUICtrlCreateCheckbox("Write Log, if ready", 488, 304, 129, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Label3 = GUICtrlCreateLabel(".exe Path:", 488, 368, 72, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Input1 = GUICtrlCreateInput("", 568, 368, 225, 21)
$Button2 = GUICtrlCreateButton("...", 800, 368, 25, 25, 0)
$Label4 = GUICtrlCreateLabel("Step 3 - Start! ", 688, 496, 101, 20)
GUICtrlSetFont(-1, 10, 800, 6, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Progress1 = GUICtrlCreateProgress(688, 520, 273, 25)
$Button3 = GUICtrlCreateButton("Start!", 872, 560, 81, 25, 0)
$Menu1 = GUICtrlCreateMenu("File")
$MenuItem1c = GUICtrlCreateMenuItem("New Project", $Menu1)
$MenuItem2c = GUICtrlCreateMenuItem("Open", $Menu1)
$MenuItem3c = GUICtrlCreateMenuItem("Save as", $Menu1)
$MenuItem4c = GUICtrlCreateMenuItem("Close", $Menu1)
$Menu2 = GUICtrlCreateMenu("?")
$MenuItem1b = GUICtrlCreateMenuItem("Help", $Menu2)
$MenuItem2b = GUICtrlCreateMenuItem("About JVIP", $Menu2)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_additems()
Case $Button2
_outputfile()
Case $Button3
_startpckg()
Case $Progress1
_progress()
Case $MenuItem1c
_newprj()
Case $MenuItem2c
_open()
Case $MenuItem3c
_saveas()
Case $MenuItem4c
_cls()
Case $MenuItem1b
_help()
Case $MenuItem2b
_abt()
Case $Checkbox1
If BitAND(GUICtrlRead($Checkbox1), $GUIChecked) Then
Run($Output)
EndIf
Case $Checkbox2
If BitAND(GUICtrlRead($Checkbox2), $GUIChecked) Then
IniWrite("C:\\Programme\JV Installer Packager\logs\log.txt","section2" "----LOG----" & @CR & "Installer Version: 1.0.0.0" & @CR & "File Path:" & $Output & "" & @CR & "Createt with JV Installer Packager", "new value")
EndIf
EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit]

Func _additems()
$Input = FileOpenDialog("Load Files...", @ScriptDir ,"All Files (*.*)")
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _outputfile()
$Output = FileSaveDialog("Set Output File...", @ScriptDir ,"Execute Files (*.exe)")
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _startpckg()
FileInstall($Input, $Output)
_progress()
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _progress()
GUICtrlSetData($Progress, 20)
Sleep(2000)
GUICtrlSetData($Progress, 50)
Sleep(2564)
GUICtrlSetData($Progress, 60)
Sleep(1999)
GUICtrlSetData($Progress, 95)
Sleep(2000)
GUICtrlSetData($Progress, 100)
MsgBox(64,"Ready!","The Packager has package the Files in a .exe File")
WinFlash("JV Installer Packager")
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _newprj()
MsgBox(16,"Error!","Error 112: Cannot open newprj.au3")
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _open()
MsgBox(16,"Error!","Error 112: Cannot open open.au3")
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _saveas()
MsgBox(16,"Error!","Error 112: Cannot open sav.au3")
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _cls()
WinClose("JV Installer Packager")
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _help()
MsgBox(64,"Help","To create a new project, click on -New Project-" & @CRLF & "To load a project, please click on -Open-" & @CRLF & "To save a project, click on -Save as-" & @CRLF & "To close the program, click -Close-")
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _abt()
MsgBox(64,"About","Createt by Jonathan Verbeek" & @CRLF & "Createt in AutoIT3")
EndFunc

[/autoit][autoit][/autoit][autoit]

If $Answer = 6 Then
MsgBox(0,"OK!","The Program run now!")
GUISetState(@SW_HIDE, $Loader)
GUISetState(@SW_SHOW, $JVIP)
Else
MsgBox(0,"OK","OK! Bye!")
Exit
EndIf

[/autoit][autoit][/autoit][autoit][/autoit]

Was hab ich falsch gemacht?

Aso, danke jetzt gehts

Ähm, wenn ich das Programm starte und auf JA Klicke sagt er:
Variable used without being declared.:
GUISetState(@SW_SHOW, $JVIP)
GUISetState(@SW_SHOW, ^ ERROR

Mein Script ist:

[autoit]

#include <GUIConstants.au3>

[/autoit][autoit][/autoit][autoit]

;Der Loader
#Region ### START Koda GUI section ### Form=c:\users\jonathan verbeek\desktop\autoit\installer\loader.kxf
$Loader = GUICreate("Loading...", 338, 178, 193, 125)
$Pic1 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\AutoIt\Installer\load_background.jpg", 0, 0, 337, 177, 0)
$Progress1 = GUICtrlCreateProgress(0, 152, 337, 25)
GUICtrlSetData(-1, 0)
GUICtrlSetData(-1, 10)
GUICtrlSetData(-1, 50)
GUICtrlSetData(-1, 90)
GUICtrlSetData(-1, 100)
GUISetState(@SW_HIDE)
GUISetState(@SW_ENABLE)
#EndRegion ###
$Answer = MsgBox(4,"Starten","Hauptprogramm starten?")

[/autoit][autoit][/autoit][autoit]

If $Answer = 6 Then
GUISetState(@SW_HIDE, $Loader)
GUISetState(@SW_SHOW, $JVIP)
Else
MsgBox(0,"OK","OK, Tschüss!")
GUISetState(@SW_HIDE, $JVIP)
Exit
EndIf

[/autoit][autoit][/autoit][autoit]

;Hauptprogramm
#Region ### START Koda GUI section ### Form=C:\\Benutzer\Jonathan Verbeek\Desktop\AutoIT\Installer\installerpackager.kxf
$JVIP = GUICreate("JV Installer Packager -", 992, 626, 6, 65)
$Pic1 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\AutoIt\Installer\background.jpg", 0, 0, 1017, 713, 0)
$Label1 = GUICtrlCreateLabel("Step 1 - Load Files ", 40, 48, 138, 20)
GUICtrlSetFont(-1, 10, 800, 6, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$ListView1 = GUICtrlCreateListView("Filename|Path", 104, 88, 289, 225)
GUICtrlSendMsg(-1, 0x101E, 0, 60)
GUICtrlSendMsg(-1, 0x101E, 1, 200)
$ListView1_0 = GUICtrlCreateListViewItem("", $ListView1)
GUICtrlSetTip(-1, "Click the Button, to add Items.")
$Button1 = GUICtrlCreateButton("Load Files", 176, 320, 113, 25, 0)
$Label2 = GUICtrlCreateLabel("Step 2 - Settings ", 432, 248, 121, 20)
GUICtrlSetFont(-1, 10, 800, 6, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Checkbox1 = GUICtrlCreateCheckbox("If ready, then run", 488, 280, 121, 17, 0)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Checkbox2 = GUICtrlCreateCheckbox("Write Log, if ready", 488, 304, 129, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Checkbox3 = GUICtrlCreateCheckbox("Close Packager, if ready", 488, 328, 161, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Label3 = GUICtrlCreateLabel(".exe Path:", 488, 368, 72, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Input1 = GUICtrlCreateInput("", 568, 368, 225, 21)
$Button2 = GUICtrlCreateButton("...", 800, 368, 25, 25, 0)
$Label4 = GUICtrlCreateLabel("Step 3 - Start! ", 688, 496, 101, 20)
GUICtrlSetFont(-1, 10, 800, 6, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Progress1 = GUICtrlCreateProgress(688, 520, 273, 25)
$Button3 = GUICtrlCreateButton("Start!", 872, 560, 81, 25, 0)
$Menu1 = GUICtrlCreateMenu("File")
$MenuItem1c = GUICtrlCreateMenuItem("New Project", $Menu1)
$MenuItem2c = GUICtrlCreateMenuItem("Open", $Menu1)
$MenuItem3c = GUICtrlCreateMenuItem("Save as", $Menu1)
$MenuItem4c = GUICtrlCreateMenuItem("Close", $Menu1)
$Menu2 = GUICtrlCreateMenu("?")
$MenuItem1b = GUICtrlCreateMenuItem("Help", $Menu2)
$MenuItem2b = GUICtrlCreateMenuItem("About JVIP", $Menu2)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_additems()
Case $Button2
_outputfile()
Case $Button3
_startpckg()
Case $Progress1
_progress()
Case $MenuItem1c
_newprj()
Case $MenuItem2c
_open()
Case $MenuItem3c
_saveas()
Case $MenuItem4c
_cls()
Case $MenuItem1b
_help()
Case $MenuItem2b
_abt()
EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit]

Func _additems()
$File = FileOpenDialog("Load Files...", @ScriptDir ,"All Files (*.*)")
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _outputfile()
$Output = FileSaveDialog("Set Output File...", @ScriptDir ,"Execute Files (*.exe)")
EndFunc

[/autoit][autoit][/autoit][autoit][/autoit]

Ich glaub die Version von H2112 ist einfacher als die von ideas2code.

Danke alder! Ich arbeite ja an einem professionellen Installer Packager.

Früher konnte man zwischen Föhren Hirsche röhren hören.
Doch Röhrentechnik ging verloren, längst habem Hirsche Transitoren

nimm doch:

[autoit]

WinWaitClose("Internet Explorer")
MsgBox(4,"Sicher?","Willst du wirklich schliessen?")

[/autoit]

was muss ich den für ne funktion schreiben

Muss ich dann bei

[autoit]

;GUI 2 öffnen

[/autoit]

den ganzen Kodacode einfügen, oder gibt es irgendeine JUMP funktion?

Hallo nochmal!
Ich brauche halt sehr viel Hilfe, aber egal!
In meinem Programm, woran ich grat arbeite, hat 2 GUI´S.
Beim Start des Programmes, startet er die erste GUI.
In der taucht eine MsgBox auf, worin steht:

[autoit]

MsgBox(4,"Starten?","Wollen sie das Hauptprogramm starten?")

[/autoit]

Wenn man auf "Ja" klickt soll sich GUI 2 öffnen, und wenn man auf "Nein" klickt soll sich GUI 1 schliessen und GUI 2 nicht ausführen.

Schreibt mir bitte, aber danach hab ich keine fragen mehr.

Danke! Jetzt gehts!

Hallo nochmal!
Wisst ihr wie ich programmieren kann, dass wenn man eine Checkbox aktiviert, eine Aktion passiert?
Ich stelle mir das so vor:

[autoit]

If $Checkbox1 Then
-Aktion-
EndIf

[/autoit]

Ich weis aber nicht ob das geht.
Schreibt mir, wenn ihr wisst wie das geht.

Grüsse!

Sei doch nicht so böse

Danke! Jetzt klappts!

Und Übrigens: Ich bin erst 10 Jahre alt.

Danke, aber wie kriege ich in einen FileSaveDialog "Alle Dateien rein"`?

Hallo Leute!
Ich habe ein Problem mit dem FileOpenDialog und dem FileSaveDialog.
Was muss ich bei "filter" eingeben?
Wenn ich .exe eingebe, sagt er "Invalid file filter given"
Was muss ich machen ; Wisst ihr wie ich es bei FileOpenDialog hinkriege,
dass bei dem Filter "Alle Dateien" steht

Danke für Hilfe.

wisst ihr eigentlich, ob es in AutoIT einen Jump to Function Befehl gibt?