Fileisntall funkst nicht

franjob

Mein aktueller code:

Spoiler anzeigen

C

#NoTrayIcon
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiConstantsEx.au3>
#include <IE.au3>
#include <INet.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <EditConstants.au3>
$file = FileRead ( "lizens.txt")


#Region ### START Koda GUI section ### Form=
$hGUI1 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
Guiseticon("images\Default\Web Radio.ico")
GUICtrlCreateEdit ( $file, 165, 20, 350, 200,$ES_READONLY)
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Checkbox1 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen Nicht einverstanden", 168, 224, 270, 17)
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen einverstanden", 168, 264, 270, 17)
$Button1 = GUICtrlCreateButton("Schließen", 440, 264, 75, 25, 0)
GUICtrlSetState($Button1,$GUI_CHECKED)
$Button2 = GUICtrlCreateButton("Weiter", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


#Region ### START Koda GUI section ### Form=
$hGUI2 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
Guiseticon("images\Default\Web Radio.ico")
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("Optionen", 145, 8, 450, 121)
$Label1 = GUICtrlCreateLabel("Installationspfad angeben", 160, 32, 125, 17)
$Checkbox3 = GUICtrlCreateRadio("Standart wählen", 160, 96, 113, 17)
GUICtrlSetState($Checkbox3, $GUI_CHECKED)
$Checkbox4 = GUICtrlCreateRadio("Pfad selber wählen", 300, 96, 113, 17)
$Input1 = GUICtrlCreateInput("C:\Programme",160, 64, 345, 21)
GUICtrlSetState($Input1, $GUI_DISABLE)
$Button5 = GUICtrlCreateButton("Durchsuchen", 515, 64, 75, 25, 0)
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Status",145, 136, 450, 73)
$Progress1 = GUICtrlCreateProgress(160, 160, 350, 25)
$Button6 = GUICtrlCreateButton("Installieren", 515, 160, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Zurrück", 440, 264, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Abbrechen", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox1
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox1,-1)
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox1,1)
Case $Checkbox2
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button1
Exit
Case $Button8
If MsgBox(32 + 4, "Beenden", "Wollen sie wirklich Installation beenden?") = 6 Then _End()
Case $Button2
GUISetState ( @SW_HIDE, $hGUI1)
GUISetState ( @SW_SHOW, $hGUI2)
Case $Checkbox3
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlSetData($Input1, "C:\Programme")
GUICtrlSetState($Button5, $GUI_DISABLE)
Guictrlsetstate($Checkbox3,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox3,1)
Case $Checkbox4
GUICtrlSetState($Button5, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button5, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button5
GUICtrlSetData($Input1, FileSelectFolder("Bitte Installationspfad wählen","", 1))
$PH = GUICtrlRead($Input1, 1)
If $PH < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button2, $GUI_ENABLE)
EndIf
Case $Button6
FileInstall ( "C:\Users\Franz\Desktop\hotkey.zip", $Input1)
EndSwitch
WEnd
Func _End()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGui1, "int", 500, "long", 0x00050004)
Exit
EndFunc

Alles anzeigen

Ich möchte dass die File dort hininstalliert wird wie mache ich diesß Es klappt nicht ich möchte halt das ich wem das prgramm geben kann und isntalliert selber die Datein ohne dass ich sie irgendwie anfügen muss geht das???

**funkey**

So sollte es funktionieren.

[autoit]

FileInstall ( "C:\Users\Franz\Desktop\hotkey.zip", GUICtrlRead($Input1) & '\hotkey.zip')

[/autoit]

franjob

so noch ne Frage kann ich meine script exe auf nen andern pc kopieren und es dann ausführe wird dann dort auch die datei hinistalliert obwohl sie nicht auf dem pc ist

**funkey**

Ja, mit FileInstall wird die Datei mit in das kompilierte Skript gepackt.

franjob

Ok, danke kannst du mir noch bisal helfen? Also mein Code ist jetzt:

Spoiler anzeigen

C

#NoTrayIcon
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiConstantsEx.au3>
#include <IE.au3>
#include <INet.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <EditConstants.au3>
$file = FileRead ( "lizens.txt")


#Region ### START Koda GUI section ### Form=
$hGUI1 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
Guiseticon("images\Default\Web Radio.ico")
GUICtrlCreateEdit ( $file, 165, 20, 350, 200,$ES_READONLY)
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Checkbox1 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen Nicht einverstanden", 168, 224, 270, 17)
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen einverstanden", 168, 264, 270, 17)
$Button1 = GUICtrlCreateButton("Schließen", 440, 264, 75, 25, 0)
GUICtrlSetState($Button1,$GUI_CHECKED)
$Button2 = GUICtrlCreateButton("Weiter", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


#Region ### START Koda GUI section ### Form=
$hGUI2 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
Guiseticon("images\Default\Web Radio.ico")
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("Optionen", 145, 8, 450, 121)
$Label1 = GUICtrlCreateLabel("Installationspfad angeben", 160, 32, 125, 17)
$Checkbox3 = GUICtrlCreateRadio("Standart wählen", 160, 96, 113, 17)
GUICtrlSetState($Checkbox3, $GUI_CHECKED)
$Checkbox4 = GUICtrlCreateRadio("Pfad selber wählen", 300, 96, 113, 17)
$Input1 = GUICtrlCreateInput("C:\Programme",160, 64, 345, 21)
GUICtrlSetState($Input1, $GUI_DISABLE)
$Button5 = GUICtrlCreateButton("Durchsuchen", 515, 64, 75, 25, 0)
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Status",145, 136, 450, 73)
$Progress1 = GUICtrlCreateProgress(160, 160, 350, 25)
$Button6 = GUICtrlCreateButton("Installieren", 515, 160, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Zurrück", 440, 264, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Abbrechen", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox1
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox1,-1)
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox1,1)
Case $Checkbox2
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button1
Exit
Case $Button8
If MsgBox(32 + 4, "Beenden", "Wollen sie wirklich Installation beenden?") = 6 Then _End()
Case $Button2
GUISetState ( @SW_HIDE, $hGUI1)
GUISetState ( @SW_SHOW, $hGUI2)
Case $Checkbox3
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlSetData($Input1, "C:\Programme")
GUICtrlSetState($Button5, $GUI_DISABLE)
Guictrlsetstate($Checkbox3,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox3,1)
Case $Checkbox4
GUICtrlSetState($Button5, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button5, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button5
GUICtrlSetData($Input1, FileSelectFolder("Bitte Installationspfad wählen","", 1))
$PH = GUICtrlRead($Input1, 1)
If $PH < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button2, $GUI_ENABLE)
EndIf
Case $Button6
    $PH1 = GUICtrlRead($Input1, 1)
    If $PH1 < " " Then
        MsgBox(16, "Error", "Bitte Pfad eingeben!")
    Else
GUICtrlSetState($Button2, $GUI_ENABLE)
DirCreate($PH1)
FileInstall ( "C:\Users\Franz\Desktop\Hotkey\hotkey.exe", GUICtrlRead($Input1) & '\hotkey.exe')
do
$PH1 = $PH1 + 10
sleep(1000)
guictrlsetdata($Progress1 , $PH1)
until $PH1 = 100
sleep(1000)
;_sound()


EndIf




EndSwitch
WEnd
Func _End()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGui1, "int", 500, "long", 0x00050004)
Exit
EndFunc

Alles anzeigen

Wenn der prgress fertig ist dann soll der install button grau hinterlegt werden und es soll Dann FERTIG! Drauf steht das??? Und wie geht das dass ich nicht verschiedene GUI's erstellen muss sondern dass ich 1 GUI erstelle und dass es sich nur verändert. WIe kann ich das machn??

**funkey**

[autoit]

GUICtrlSetState($Button6, $GUI_DISABLE)
GUICtrlSetData($Button8, 'Fertig!')

[/autoit]

**Schnuffel**

Hallo franjob,
bitte in Zukunft den Spoiler (SP) und den AutoIt-Quellcode Button für Deinen Code verwenden.

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiConstantsEx.au3>
#include <IE.au3>
#include <INet.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <EditConstants.au3>
$file = FileRead ( "lizens.txt")

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

#Region ### START Koda GUI section ### Form=
$hGUI1 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
Guiseticon("images\Default\Web Radio.ico")
GUICtrlCreateEdit ( $file, 165, 20, 350, 200,$ES_READONLY)
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Checkbox1 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen Nicht einverstanden", 168, 224, 270, 17)
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen einverstanden", 168, 264, 270, 17)
$Button1 = GUICtrlCreateButton("Schließen", 440, 264, 75, 25, 0)
GUICtrlSetState($Button1,$GUI_CHECKED)
$Button2 = GUICtrlCreateButton("Weiter", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

#Region ### START Koda GUI section ### Form=
$hGUI2 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
Guiseticon("images\Default\Web Radio.ico")
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("Optionen", 145, 8, 450, 121)
$Label1 = GUICtrlCreateLabel("Installationspfad angeben", 160, 32, 125, 17)
$Checkbox3 = GUICtrlCreateRadio("Standart wählen", 160, 96, 113, 17)
GUICtrlSetState($Checkbox3, $GUI_CHECKED)
$Checkbox4 = GUICtrlCreateRadio("Pfad selber wählen", 300, 96, 113, 17)
$Input1 = GUICtrlCreateInput("C:\Programme",160, 64, 345, 21)
GUICtrlSetState($Input1, $GUI_DISABLE)
$Button5 = GUICtrlCreateButton("Durchsuchen", 515, 64, 75, 25, 0)
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Status",145, 136, 450, 73)
$Progress1 = GUICtrlCreateProgress(160, 160, 350, 25)
$Button6 = GUICtrlCreateButton("Installieren", 515, 160, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Zurrück", 440, 264, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Abbrechen", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox1
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox1,-1)
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox1,1)
Case $Checkbox2
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button1
Exit
Case $Button8
If MsgBox(32 + 4, "Beenden", "Wollen sie wirklich Installation beenden?") = 6 Then _End()
Case $Button2
GUISetState ( @SW_HIDE, $hGUI1)
GUISetState ( @SW_SHOW, $hGUI2)
Case $Checkbox3
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlSetData($Input1, "C:\Programme")
GUICtrlSetState($Button5, $GUI_DISABLE)
Guictrlsetstate($Checkbox3,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox3,1)
Case $Checkbox4
GUICtrlSetState($Button5, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button5, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button5
GUICtrlSetData($Input1, FileSelectFolder("Bitte Installationspfad wählen","", 1))
$PH = GUICtrlRead($Input1, 1)
If $PH < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button2, $GUI_ENABLE)
EndIf
Case $Button6
$PH1 = GUICtrlRead($Input1, 1)
If $PH1 < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button2, $GUI_ENABLE)
DirCreate($PH1)
FileInstall ( "C:\Users\Franz\Desktop\Hotkey\hotkey.exe", GUICtrlRead($Input1) & '\hotkey.exe')
GuiCtrlSetState($Button6,$GUI_DISABLE)
do
$PH1 = $PH1 + 10
sleep(1000)
guictrlsetdata($Progress1 , $PH1)
until $PH1 = 100
GUICtrlSetData($Button6,"Fertig")
sleep(1000)
;_sound()

EndIf

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

EndSwitch
WEnd
Func _End()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGui1, "int", 500, "long", 0x00050004)
Exit
EndFunc

[/autoit]

franjob

Habe ich schon hinzugefügt bevor deinem Post ahbe es vergessen