Beiträge von Weisgarnix

Weisgarnix

Ich bin so frei und setze deinen Code gerade ein/um.
Aus dem < habe ich ein > gemacht, müsste dann stimmen, oder verstehe ich TimeDiff falsch?

Eine weitere Frage. AdLibRegister ist ja selber ne Funktion, kann ich irgendwie erreichen, dass meine testkill-Funktion mir je nach I-Zweig, der zutraf, einen Wert zurückgibt? Notfalls mach ich das über eine globale Variable. wäre halt nicht so "schön"...

*Edit: Erstmal egal, habs akut anders gelöst.

So. Ich hänge fest und komm nich raus.
http://dl.dropbox.com/u/49398111/autoitstall.7z
Der Fehler müsste irgendwo in _Installiere() oder in _testandkill() sitzen... aber wo?
Die Einträge werden nicht weiters in die log-Datei geschrieben, nur die ersten beiden Einträge erfolgen:
2012-03-05-14-25-06: 1 programs will be installed.
2012-03-05-14-25-06: Installation of 28 sucessfully started.
Warum 28 als Titel drin is, keine Ahnung.

Weisgarnix

Auch, wenn ich damit einen fast schon uralten Thread auspacke, der vor ner Woche das letzte mal kommentiert wurde, aber wofür ist denn dein Quelltext voller Leerzeilen? Zwischen Funktionen mal eine zu setzen, kein Thema, macht das ganze übersichtlicher, aber so muss man ja ne halbe Stunde scrollen oO...

Pack die 4 einzelnen Scripte doch in ein Script und mach eine Auswahl dazu

Weisgarnix

ProcessExists gibt nen integer zurück, das werde ich anpassen und dann mal testen, melde mich zurück, sobald ichs getestet habe
Danke dir!

Weisgarnix

So?

[autoit]

$isrunning=True
$pid=Run("program.exe")
$maxtime=120000 ;120 Sekunden
$timer=TimerInit()
AdlibRegister("_testandkill("&$pid&")", 2000)
While ((TimerDiff($timer)<$maxtime)Or($isrunning=true))
Sleep(2000);Abwarten
WEnd
If $isrunning Then
ProcessClose($pid)
EndIf
AdlibUnRegister()

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

Func _testandkill($processid)
If (ProcessExists($processid)=0) Then
$isrunning=False
EndIf
EndFunc

[/autoit]

Weisgarnix

Mir stellt sich eine neue Frage:
Ich möchte eine maximale Installationsdauer festlegen lassen können (Siehe Quellcode/Ini-Dateien).
Haken dabei: Nutze ich RunWait, wartet mein Programm, bis sich das Setup beendet, egal, obs hängt oder nicht. Ist also suboptimal. Genaus umgekehrt, nutze ich nur Run und warte dann die vorgegebene Maximalzeit ab, verschenke ich unnötig Zeit. Hat jemand eine Idee, wie ich das Problem lösen kann?
Momentan ist mein bester Ansatz, per Run zu starten und dann per ProcessExists und der Maximalen Installationsdauer aufgeteilt in unzählige Sleeps per Schleife zu packen, solange nicht maximalZeit erreicht ist oder Prozess nimmer existiert wartet er weiter.
Was meint ihr?
Eine Überprüfung je Sekunde sollte ja reichen.
Den Fall, dass das Setup nicht abgeschlossen ist, wenn der Prozess beendet ist, bleibt hier mal außen vor.

Weisgarnix

*Würg* Das hätte mir auffallen müssen!
Danke dir vielmals!
Mensch bin ich doof^^ Ich sollte schon sagen, von welchem Control er den Status abfragen soll...
ou man, was hab ich mir dabei nur gedacht^^
Also Danke dir nochmals
Asow, GUICtrlRead ist natürlich die bessere bzw. einzig richtige Wahl^^

Weisgarnix

Nicht erlaubt, aber wohl auch möglich: Man könnte den Dateien auch erst nach dem herunterladen ihre korrekte Dateiendung geben...

Weisgarnix

Wenn dann eine Antwort erfolgt, tue ich das doch glatt.
Ausführen kann man das so allerdings nicht, weil die anderen Dateien auch benötigt werden.
Kann nun jemand was damit anfangen?

Weisgarnix

Hat keiner eine Idee, warum das nicht tut?

Weisgarnix

!>17:19:25 AutoIT3.exe ended.rc:-1073741819
>Exit code: -1073741819 Time: 14.539

Das ist die Fehlermeldung, falls das jemandem hilft.

Weisgarnix

Es geht auch darum, dass ich C# ohnehin lernen muss...

Aber hier gehts ja sowieso um den unbekannten Fehler in meinem Script/Programm...
Und keine Sorge, "Kleinigkeiten" werde ich auch weiterhin in Autoit coden, wegen einem Mini-Tool .net vorauszusetzen ist Schwachsinn, wenn man autoit kennt

Weisgarnix

Hinweis: aktuellstes Problem bei dem Projekt immer am Ende des Themas

Hallo Miteinander.

Ich brauche Hilfe!

AutoItstall ist ein konfigurationsdateiengesteuertes Softwareauswahlprogramm, das speziell für Softwaresammlungen entwickelt wurde. Kleinere Unternehmen ohne Softwareverteilung haben mit diesem Programm die Möglichkeit, einfach und effizient Software auf einer DVD mit zum Zielrechner zu nehmen und dort mehrere Programme mit wenigen Mausklicks zu installieren. Dabei bietet das Programm gerade für "Neulinge" in der Benutzung zahlreiche Features wie Informationstext, Bild/Screenshot und Homepage. Auf den einzelnen Kategorien-Seiten müssen nur die Haken korrekt gesetzt werden, und schon beginnt die Installation der Programme nach dem Klick auf "Ausgewählte Software jetzt installieren".

http://dl.dropbox.com/u/49398111/autoitstall.zip

Das ganze bisher noch ohne genaue Versionsnummerierung, da nicht einmal die Basisfunktionen gegeben sind
Anders ausgedrückt: Es sieht vielleicht schick aus, aber es läuft nicht.
Es hängt, wenn man Haken gesetzt hat und dann auf "Installiere markierte Software jetzt" klickt. Eigentlich sollte er dann erstmal das Array mit den Checkboxen durchgehen und hochzählen, wie viele Sachen installiert werden, zwecks späterer Anzeige Installiere 4/11 etc. Allerdings bricht Autoit an er Stelle ohne brauchbare Fehlermeldung ab. Der Download enthält alle benötigten Dateien, interessant ist nur die autoitstall.au3. Die Kommentare sind teilweise nicht der Brüller. Zuvor hatte ich noch die _UnMarkAll ersetzt urch die _UnMark_Vorheriges.
Sry für die doofen Variablennamen und die wenigen Kommentare, wenn Fragen zur Funktionsweise bestehen, einfach fragen

Hier der angefragte, direkte Quellcode, so allerdings nicht ausführbar, da Dateien fehlen.

Spoiler anzeigen

[autoit]

#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=icon.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=AutoItstall
#AutoIt3Wrapper_Res_Description=Installationsmenü
#AutoIt3Wrapper_Res_Fileversion=0.0.0.1
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

AutoitSetOption("TrayIconHide" ,1)

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

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiTab.au3>
#include <array.au3>

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

If(IniRead("settings.ini", "Einstellungen", "Hinweise", "ja")="ja") Then
MsgBox(48,"Wichtige Hinweise","1.) Sie sollten Hardwaretreiber vor der Software installieren! Die Hardwaretreiber finden Sie auf den Installationsmedien, die der Hardware beim Kauf beiliegen." & @CRLF & @CRLF & "2.) Sie sollten ihre Virenschutzsoftware während den automatische Installationen unbedingt deaktivieren! Es wird nur installiert und keine Anwendung gestartet. Überprüfen Sie gegebenenfalls nach Abschluss aller Installationen ihren Computer durch einen manuellen Suchvorgang nach Viren." & @CRLF & @CRLF & "3.) Es werden Administratorrechte benötigt, unter Windows Vista und neueren Windows-Betriebssystemen muss UAC (User Account Control) deaktiviert werden, dies kann nach diesem Hinweis über den Konfigurieren-Button rechts oben im Menü geschehen." & @CRLF & @CRLF & "4.) Während den automatischen Installationen sollten Sie nicht am Computer arbeiten!" & @CRLF & @CRLF & "5.) Nach Abschluss aller automatischen Installationen erfolgt ein automatischer Neustart.")
EndIf

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

Dim $onlineoffline
$ping = Ping("www.google.com")
If $ping > 0 then
$onlineoffline = "data\website_online.jpg"
Else
$onlineoffline = "data\website_offline.jpg"
EndIf

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

$Form2 = GUICreate("AutoItstall", 1024, 769, -1, -1)
$Pic15 = GUICtrlCreatePic("data\header.jpg", 0, 0, 174, 48)
;GUICtrlSetTip(-1, "Website im Browser öffnen")
GUICtrlSetCursor (-1, 0)
$Pic16 = GUICtrlCreatePic("data\background.jpg", 174, 0, 706, 48)
$Help = GUICtrlCreatePic("data\background_thin.jpg", 880, 0, 48, 48)
$About = GUICtrlCreatePic("data\about.jpg", 928, 0, 48, 48)
GUICtrlSetTip(-1, "Über dieses Programm")
GUICtrlSetCursor (-1, 4)
;$Combo1 = GUICtrlCreateCombo("Combo1", 648, 56, 369, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
;$Label33 = GUICtrlCreateLabel("Fertige Zusammenstellung auswählen", 464, 61, 181, 17)
$Install_Markierte = GUICtrlCreateButton("Installiere markierte Software jetzt!", 8, 56, 193, 25)
$Settings = GUICtrlCreatePic("data\settings.jpg", 976, 0, 48, 48)
GUICtrlSetTip(-1, "Einstellungen")
GUICtrlSetCursor (-1, 0)
$PageControl1 = GUICtrlCreateTab(8, 88, 1012, 672)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")

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

$AnzKategorien=IniRead("settings.ini","Einstellungen","Kategorien","1")
$AnzZusammenstellungen=IniRead("settings.ini","Einstellungen","Zusammenstellungen","1")
; An Stelle [n][1] im Array steht ein Name, an Stelle [n+1][1] steht der Pfad zur Konfigurationsdatei, für alle ungeraden n.
$Kategorien=IniReadSection("settings.ini","Kategorien")
; Legt die Kategorien als Reiter-Array an.
Dim $TabSheetKategorien[($AnzKategorien*2)-1]
; Legt die in jedem Reiter vorhandenen Elemente an...
Dim $AktuellBildBox[$AnzKategorien]
Dim $AktuellBild[$AnzKategorien]
Dim $Software[$AnzKategorien]
Dim $AktuellBeschreibungBox[$AnzKategorien]
Dim $AktuellBeschreibung[$AnzKategorien]
Dim $Beschreibung[$AnzKategorien]
Dim $Grafik[$AnzKategorien]
Dim $AktuellWebsite[$AnzKategorien]
Dim $AktuellSprache[$AnzKategorien]
Dim $AktuellInstall[$AnzKategorien]
Dim $AktuellFreeware[$AnzKategorien]
Dim $AktuellParameter[$AnzKategorien]
Dim $AnzElemente[$AnzKategorien]
Dim $AktuellWebsiteGrafik[$AnzKategorien]
Dim $AktuellInstallGrafik[$AnzKategorien]

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

;26 mögliche Elemente je Kategorie sollten reichen - passen ja eh nur 26 auf eine Seite...
Dim $Checkboxen[$AnzKategorien][26]
Dim $Icons[$AnzKategorien][26]
Dim $Titel[$AnzKategorien][26]
Dim $Hersteller[$AnzKategorien][26]
Dim $ElementeBeschreibung[$AnzKategorien][26]
Dim $ElementeBild[$AnzKategorien][26]
Dim $ElementeWebsite[$AnzKategorien][26]
Dim $ElementeSprache[$AnzKategorien][26]
Dim $ElementeFreeware[$AnzKategorien][26]
Dim $ElementeInstall[$AnzKategorien][26]
Dim $ElementeSilentSetup[$AnzKategorien][26]
Dim $ElementeParameter[$AnzKategorien][26]
Dim $ElementeKillTime[$AnzKategorien][26]

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

Dim $AktuellMarkiertes=1
Dim $AktuellMarkiertes_Kategorie=1

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

$lw1=0
$lw2=0
While ($lw1 < ($AnzKategorien*2))
$TabSheetKategorien[$lw1] = GUICtrlCreateTabItem($Kategorien[$lw1+1][1])
$inifile=$Kategorien[$lw1+2][1]

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

$Beschreibung[$lw2] = GUICtrlCreateEdit("", 16, 120, 489, 65, BitOR($ES_AUTOVSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
$file0 = FileOpen(IniRead($inifile,"Daten","Beschreibung","fehlt.txt"), 0)
GUICtrlSetData($Beschreibung[$lw2], FileRead($file0))
FileClose($file0)

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

$Grafik[$lw2] = GuiCtrlCreatePic(IniRead($inifile, "Daten", "Grafik", ""), 512, 120, 64, 64)

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

$Software[$lw2] = GUICtrlCreateGroup("Software", 16, 191, 561, 553)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$AktuellBildBox[$lw2] = GUICtrlCreateGroup("Logo/Bild", 592, 120, 417, 337)
$AktuellBild[$lw2] = GUICtrlCreatePic("", 600, 144, 400, 300)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$AktuellBeschreibungBox[$lw2] = GUICtrlCreateGroup("Beschreibung", 592, 527, 417, 217)
$AktuellBeschreibung[$lw2] = GUICtrlCreateEdit("", 600, 544, 401, 193, BitOR($ES_AUTOVSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$AktuellWebsiteGrafik[$lw2] = GUICtrlCreatePic($onlineoffline, 588, 464, 48, 48)
GUICtrlSetTip(-1, "Website im Browser öffnen")
GUICtrlSetCursor (-1, 0)
GUICtrlSetState(-1, $GUI_HIDE)
$AktuellSprache[$lw2] = GUICtrlCreatePic("data\german.jpg", 652, 464, 48, 48)
GUICtrlSetTip(-1, "Sprache: deutsch")
GUICtrlSetState(-1, $GUI_HIDE)
$AktuellFreeware[$lw2] = GUICtrlCreatePic("data\freeware.jpg", 711, 464, 48, 48)
GUICtrlSetTip(-1, "Keine Freeware!")
GUICtrlSetCursor (-1, 4)
GUICtrlSetState(-1, $GUI_HIDE)
$AktuellInstallGrafik[$lw2] = GUICtrlCreatePic("data\install.jpg", 959, 464, 48, 48)
GUICtrlSetTip(-1, "Jetzt installieren!")
GUICtrlSetCursor (-1, 0)
GUICtrlSetState(-1, $GUI_HIDE)

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

;Eintragen der Elemente in die Softwareliste
$AnzElemente[$lw2] = IniRead($inifile, "Daten", "Elemente", 0)
$lw3=0
While ($lw3 < $AnzElemente[$lw2])
;...
$temp = Mod($lw3, 2)
If ($temp == 0) Then
;linke Spalte
$Checkboxen[$lw2][$lw3] = GUICtrlCreateCheckbox("", 24, Floor(223+40*($lw3/2)), 16, 16)
;GUICtrlSetState(-1, $GUI_HIDE)
$Icons[$lw2][$lw3] = GUICtrlCreateIcon(IniRead($inifile, "Element"&$lw3+1, "Icon", "data\setup.ico"), -1, 40, Floor(215+40*($lw3/2)), 32, 32)
$Hersteller[$lw2][$lw3] = GUICtrlCreateLabel(IniRead($inifile, "Element"&$lw3+1, "Hersteller", "unbekannter Hersteller"), 80, Floor(215+40*($lw3/2)))
$Titel[$lw2][$lw3] = GUICtrlCreateLabel(IniRead($inifile, "Element"&$lw3+1, "Name", "?")&" v"&IniRead($inifile, "Element"&$lw3+1, "Version", "1"), 80, Floor(231+40*($lw3/2)))
Else
;Rechte Spalte
$Checkboxen[$lw2][$lw3] = GUICtrlCreateCheckbox("", 296, 203+40*($lw3/2), 16, 16)
;GUICtrlSetState(-1, $GUI_HIDE)
$Icons[$lw2][$lw3] = GUICtrlCreateIcon(IniRead($inifile, "Element"&$lw3+1, "Icon", "data\setup.ico"), -1, 296, 195+40*($lw3/2), 32, 32)
$Hersteller[$lw2][$lw3] = GUICtrlCreateLabel(IniRead($inifile, "Element"&$lw3+1, "Hersteller", "unbekannter Hersteller"), 352, 195+40*($lw3/2))
$Titel[$lw2][$lw3] = GUICtrlCreateLabel(IniRead($inifile, "Element"&$lw3+1, "Name", "?")&" v"&IniRead($inifile, "Element"&$lw3+1, "Version", "1"), 352, Floor(211+40*($lw3/2)))
EndIf
$file1 = FileOpen(IniRead($inifile, "Element"&$lw3+1, "Beschreibung", "fehlt.txt"), 0)
$ElementeBeschreibung[$lw2][$lw3] = FileRead($file1)
FileClose($file1)
$ElementeBild[$lw2][$lw3] = IniRead($inifile, "Element"&$lw3+1, "Grafik", "")
$ElementeWebsite[$lw2][$lw3] = IniRead($inifile, "Element"&$lw3+1, "URL", "http://www.autoit.de")
$ElementeSprache[$lw2][$lw3] = IniRead($inifile, "Element"&$lw3+1, "Sprache", "en")
$ElementeFreeware[$lw2][$lw3] = IniRead($inifile, "Element"&$lw3+1, "Freeware", "ja")
$ElementeInstall[$lw2][$lw3] = IniRead($inifile, "Element"&$lw3+1, "Setupdatei", "data\dummy.exe")
$ElementeSilentSetup[$lw2][$lw3] = IniRead($inifile, "Element"&$lw3+1, "SilentSetup", "data\dummy.exe")
$ElementeParameter[$lw2][$lw3] = IniRead($inifile, "Element"&$lw3+1, "Parameter", "")
$ElementeKillTime[$lw2][$lw3] = IniRead($inifile, "Element"&$lw3+1, "KillTime", "120")
;Laufvariable für die Elemente erhöhen
$lw3=$lw3+1
WEnd
;übriger Code für die einzelnen Kategorien
;Erhöhen der Laufvariablen, $lw1 zählt im Auslesearray, $lw2 zählt in den Zielarrays, beide zählen in den Kategorien hoch.
$lw1=$lw1+2
$lw2=$lw2+1
WEnd
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

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

$iAktTab = 0

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Install_Markierte
_Installiere()
Case $PageControl1
$iAktTab = _GUICtrlTab_GetCurSel($PageControl1)
Case $Checkboxen[$iAktTab][0] To $Titel[$iAktTab][$AnzElemente[$iAktTab] - 1]
ConsoleWrite("Ksg-ID: " & $nMsg & @TAB)
if mod($nMsg - $Checkboxen[$iAktTab][0],4) Then
$iAktCheckBox = -1 ;es kann keine Checkbox sein
else
$iAktCheckBox = ($nMsg - $Checkboxen[$iAktTab][0]) /4
EndIf
ConsoleWrite("Checkbox: " & $iAktCheckBox & @TAB)
if mod($nMsg - $Icons[$iAktTab][0],4) Then
$iAktIcon = -1 ;es kann kein Icon sein
else
$iAktIcon = ($nMsg - $Icons[$iAktTab][0]) /4
;_UnMarkAll($iAktTab, $AnzElemente[$iAktTab])
_UnMark_Vorheriges($AktuellMarkiertes_Kategorie, $AktuellMarkiertes)
_SelectOne($iAktTab, $iAktIcon)
EndIf
ConsoleWrite("Icon: " & $iAktIcon & @TAB)
if mod($nMsg - $Hersteller[$iAktTab][0],4) Then
$iAktHersteller = -1 ;es kann kein Hersteller sein
else
$iAktHersteller = ($nMsg - $Hersteller[$iAktTab][0]) /4
;_UnMarkAll($iAktTab, $AnzElemente[$iAktTab])
_UnMark_Vorheriges($AktuellMarkiertes_Kategorie, $AktuellMarkiertes)
_SelectOne($iAktTab, $iAktHersteller)
EndIf
ConsoleWrite("Hersteller: " & $iAktHersteller & @TAB)
if mod($nMsg - $Titel[$iAktTab][0],4) Then
$iAktTitel = -1 ;es kann kein Titel sein
else
$iAktTitel = ($nMsg - $Titel[$iAktTab][0]) /4
;_UnMarkAll($iAktTab, $AnzElemente[$iAktTab])
_UnMark_Vorheriges($AktuellMarkiertes_Kategorie, $AktuellMarkiertes)
_SelectOne($iAktTab, $iAktTitel)
EndIf
ConsoleWrite("Titel: " & $iAktTitel & @CRLF)
case $AktuellInstallGrafik[$iAktTab]
GUISetState(@SW_HIDE)
RunWait($AktuellInstall[$iAktTab]&" "&$AktuellParameter[$iAktTab])
GUISetState(@SW_SHOW)
case $AktuellWebsiteGrafik[$iAktTab]
ShellExecute($AktuellWebsite[$iAktTab])
case $AktuellFreeware[$iAktTab]
MsgBox(64,"Keine Freeware!","Die (dauerhafte) Benutzung dieser Software ist kostenpflichtig!"&@CRLF&"Sie können Ihre Registrierungsinformationen beim ersten Programmstart eingeben.")
EndSwitch
WEnd

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

Func _UnMark_Vorheriges($cat, $temp)
GUICtrlSetBkColor($Hersteller[$cat][$temp], $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($Titel[$cat][$temp], $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetState($AktuellFreeware[$cat], $GUI_HIDE)
GUICtrlSetState($AktuellSprache[$cat], $GUI_HIDE)
EndFunc

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

Func _UnMarkAll($cat, $anzelements)
$temp=0
While ($temp < $anzelements+1)
GUICtrlSetBkColor($Hersteller[$cat][$temp], $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor($Titel[$cat][$temp], $GUI_BKCOLOR_TRANSPARENT)
$temp=$temp+1
WEnd
GUICtrlSetState($AktuellFreeware[$cat], $GUI_HIDE)
GUICtrlSetState($AktuellSprache[$cat], $GUI_HIDE)
EndFunc

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

Func _SelectOne($cat, $element)
$AktuellMarkiertes=$element
$AktuellMarkiertes_Kategorie=$cat
GUICtrlSetBkColor($Hersteller[$cat][$element], 0x7A96DF)
GUICtrlSetBkColor($Titel[$cat][$element], 0x7A96DF)
GUICtrlSetData($AktuellBeschreibung[$cat], $ElementeBeschreibung[$cat][$element])
GUICtrlSetImage($AktuellBild[$cat], $ElementeBild[$cat][$element])
$AktuellInstall[$cat] = $ElementeInstall[$cat][$element]
$AktuellWebsite[$cat] = $ElementeWebsite[$cat][$element]
$AktuellParameter[$cat] = $ElementeParameter[$cat][$element]
If ($ElementeFreeware[$cat][$element] <> "ja") Then
GUICtrlSetState($AktuellFreeware[$cat], $GUI_SHOW)
EndIf
If (StringCompare($ElementeSprache[$cat][$element], "de")=0) Then
GUICtrlSetImage($AktuellSprache[$cat], "data\german.jpg")
GUICtrlSetState($AktuellSprache[$cat], $GUI_SHOW)
GUICtrlSetTip($AktuellSprache[$cat], "Sprache: deutsch")
EndIf
If (StringCompare($ElementeSprache[$cat][$element], "en")=0) Then
GUICtrlSetImage($AktuellSprache[$cat], "data\english.jpg")
GUICtrlSetState($AktuellSprache[$cat], $GUI_SHOW)
GUICtrlSetTip($AktuellSprache[$cat], "Sprache: englisch")
EndIf
GUICtrlSetState($AktuellInstallGrafik[$cat], $GUI_SHOW)
GUICtrlSetState($AktuellWebsiteGrafik[$cat], $GUI_SHOW)
EndFunc

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

Func _Zaehle_Markierte()
$returnwert=0
$zaehlcats=0 ;Laufvariable für die Kategorien
$zaehlelements=0 ;Laufvariable für die Elemente der jeweiligen Kategorie
While ($zaehlcats<($AnzKategorien-1))
While ($zaehlelements<($AnzElemente[$zaehlcats]-1))
If (GUICtrlGetState()=$GUI_CHECKED) Then
$returnwert+=1
EndIf
$zaehlelements+=1
WEnd
$zaehlcats+=1
WEnd
return $returnwert
EndFunc

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

Func _Installiere()
$Anzahl_Markierte=_Zaehle_Markierte()
#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info
MsgBox(64,"Anzahl markierte Elemente","Es wurden " & $Anzahl_Markierte & " Programme zur Installation ausgewählt.")
#EndRegion --- CodeWizard generated code End ---

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

EndFunc

[/autoit]

settings.ini:

Spoiler anzeigen

Code

[Einstellungen]
;Nicht verändern.
Datum=14.03.2011
;Hinweise am Anfang anzeigen
Hinweise=ja
;Anzahl Kategorien
Kategorien=2
;Anzahl Zusammenstellungen
Zusammenstellungen=1


;KategorieX...="ini-Datei" /X hochzählen, bei 1 beginnend
[Kategorien]
Kategorie1Name=Laufzeitumgebungen
Kategorie1INI=install\categories\runtimes.ini
Kategorie2Name=Sicherheit
Kategorie2INI=install\categories\sicherheit.ini

Alles anzeigen

sicherheit.ini:

Spoiler anzeigen

Code

[Daten]
;Infos für folgende Zeilen:
;Einfach dem Schema folgen.
;nirgends dürfen Anführungszeichen vorkommen! Falls doch, müssen diese als "&Chr(34)&" entschärft werden (inklusive der Anführungszeichen!).
;Erlaubte Dateitypen sind nur *.bmp und *.jpg für die Bilder sowie *.ico und *.exe, *.dll für Icons. (Hintergrundfarbe ist ca. RGB F4F3EE.)
;Weitere Hinweise beachten!


;Pfad zur txt-Datei mit der Beschreibung
Beschreibung=
;Grafikgröße: 64x64
Grafik=runtimes.jpg
;Anzahl der Einträge
Elemente=11


;Für jedes Element:
;[ElementX] /Einfach X hochzählen (mit 1 beginnend)!
;Setupdatei=String /Pfad zur Setup-Datei
;Parameter=Parameter /Falls kein Parameter benötigt wird: Parameter=
;Name=String
;Version=String
;Hersteller=String
;Icon=String /Pfad zum Icon
;Grafik=String /Pfad zur Grafik, Grafikgröße 400x300
;URL=String /Homepage inklusive http://
;Sprache=de /oder en, nix anderes!
;Freeware=ja /ja=Freeware, nein=nicht Freeware
;Beschreibung=datei.txt


[Element1]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=datei.txt


[Element2]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=datei.txt


[Element3]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=datei.txt


[Element4]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=datei.txt


[Element5]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=datei.txt


[Element6]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=datei.txt


[Element7]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=datei.txt


[Element8]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=datei.txt


[Element9]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=datei.txt


[Element10]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=datei.txt


[Element11]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=datei.txt

Alles anzeigen

runtimes.ini:

Spoiler anzeigen

Code

[Daten]
;Infos für folgende Zeilen:
;Einfach dem Schema folgen.
;nirgends dürfen Anführungszeichen vorkommen! Falls doch, müssen diese als "&Chr(34)&" entschärft werden (inklusive der Anführungszeichen!).
;Erlaubte Dateitypen sind nur *.bmp und *.jpg für die Bilder sowie *.ico und *.exe, *.dll für Icons. (Hintergrundfarbe ist ca. RGB F4F3EE.)
;Weitere Hinweise beachten!


;Pfad zur txt-Datei mit der Beschreibung
Beschreibung=install\datei.txt
;Grafikgröße: 64x64
Grafik=install\categories\runtimes.jpg
;Anzahl der Einträge
Elemente=11


;Für jedes Element:
;[ElementX] /Einfach X hochzählen (mit 1 beginnend)!
;Setupdatei=String /Pfad zur Setup-Datei
;SilentSetup=String /Pfad zur Silent-Setup-Datei
;Parameter=Parameter für Silent-Installation /Falls kein Parameter benötigt wird: Parameter=
;Killtime=Anzahl Minuten, nach der das Setup beim Silent-Setup als fehlerhaft markiert und abgebrochen wird (Task beendet wird) (Ganzzahl)
;Name=String
;Version=String
;Hersteller=String
;Icon=String /Pfad zum Icon
;Grafik=String /Pfad zur Grafik, Grafikgröße 400x300
;URL=String /Homepage inklusive http://
;Sprache=de /oder en, nix anderes!
;Freeware=ja /ja=Freeware, nein=nicht Freeware
;Beschreibung=datei.txt


[Element1]
Setupdatei=dummy.exe
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=dummy.exe
Grafik=install\java.jpg
URL=http://www.google.de
Sprache=en
Freeware=nein
Beschreibung=install\datei.txt


[Element2]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=install\datei.txt


[Element3]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=install\datei.txt


[Element4]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=install\datei.txt


[Element5]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=install\datei.txt


[Element6]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=install\datei.txt


[Element7]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=install\datei.txt


[Element8]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=install\datei.txt


[Element9]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=install\datei.txt


[Element10]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=install\datei.txt


[Element11]
Setupdatei=
Parameter=
Name=Flash Player ActiveX
Version=10.2.04
Hersteller=Adobe
Icon=
Grafik=
URL=
Sprache=de
Freeware=ja
Beschreibung=install\datei.txt

Alles anzeigen

PS: Wenn ich das Ding in Autoit lauffähig bekommen habe, will ich das objektorienterit in C# nachcoden. da brauch ich nicht endlos Arrays sondern "einfach" Objekte. Nachteil ist, dass auf dem Zielrechner .net2.0 installiert sein muss, aber darum soll es hier und jetzt ja überhaupt nicht gehen... Über diese ungelegten Eier können wir uns unterhalten, wenn es so weit ist.
PS: Einen Ladebildschirm am Anfang habe ich noch nicht hinzugefügt, kommt aber die Tage auch noch, wenn die Grundfunktionalität gegeben ist.

Weisgarnix

Von einigen Wiedergabelisten (z.B. dem Standartwiedergabeformat von foobar, *.fbl, bisher bei dir nicht vorhanden) weiß ich, dass sie auch relative Pfade kennen. Wo macht das Sinn? Wenn man die Dateien auf der externen Festplatte hat, die an jedem Rechner einen anderen Pfad besitzt, und eine portable Version eines Audioplayers mit auf der Festplatte. Wie wäre es mit dem *.fbl-Format für dein Programm und der Option, nach Möglichkeit relative Pfade zu einem Startpfad auswählen zu können?
Im Übrigen können die Playlistformate auch andere Dateien als nur *.mp3-Dateien enthalten, z.B. wav-Dateien oder sonstig jedwege Datei, ob sie abgespielt werden kann, ist eine andere Frage. Aber sinnvoll wäre eine Erweiterung auf mehrere Dateitypen, so die 10 gängigsten oder so. Vorschlag wäre z.B. wenigstens mp3, wav, ogg, flac, m4a, wma.
Außerdem: Wie wäre es, eine "Playlist konvertieren"-Funktion hinzuzufügen?

Weisgarnix

Hi.
Könntest du beim Verschlüsseln nicht einfach ganz an den Anfang oder an das Ende der Dateu eine Zahl setzen, die deinem Programm dann beim Entschlüsseln sagt, welcher Algorithmus der richtige ist? Den müsstest du halt nach dem Verschlüsseln hinzufügen und vor dem Entschlüsseln löschen...

In Zeile 177 fehlt im String der MsgBox ein "im" und es soll wohl Verzeichnis heißen, nur gerade aufgefallen.

Weisgarnix

progandy hat den Nagel auf den Kopf getroffen.
FTP funktioniert nun, das mit 7z leider noch nicht so ganz:

[autoit]

$filename=@MDAY&"."&@MON&"."&@YEAR&"_"&@HOUR&"."&@MIN&"."&@SEC&".7z"
RunWait('7za.exe a '&$filename& ' ' &$path&"*.xconf"&'"',@ScriptDir,@SW_HIDE)
RunWait('7za.exe a '&$filename& ' ' &$path&"*.xml"&'"',@ScriptDir,@SW_HIDE)

[/autoit]

Die Dateien werden zwar erstellt, sind aber leer, obwohl die Dateien, die hinzugefügt werden sollen, definitiv vorhanden sind.

*Edit*: Sowohl

[autoit]

'7za.exe a '&$filename& ' ' &'"'&$path&"web.xml"&'"')

[/autoit]

als auch

[autoit]

"7za.exe a "&$filename&" "&Chr(34)&$path&"web.xml"&Chr(34)

[/autoit]

tun beide nicht, und das, obwohl ich die wildcards entfernt habe. Meine Ideen sind erschöpft, keine Ahnung, was ich daran noch ändern könnte, ich versuchs nun noch mit ShellExecute, vlt blickt die 7za.exe oder autoit irgendwas an den Parametern nicht.

*Edit2*: Läuft nun. War ja klar, ich Depp hatte zu Testzwecken irgendwann mal beim Input($path) ein @ScriptDir davor gebastelt und dann aber den \ nicht hinzugefügt. nun ists wieder mit relativen Pfaden und funktioniert inkl. der wildcards:

[autoit]

RunWait('7za.exe a '&$filename& ' ' &'"'&$path&"raplaserver.xlog"&'"', "",@SW_HIDE)
RunWait("7za.exe a "&$filename&" "&Chr(34)&$path&"*.xconf"&Chr(34), "", @SW_HIDE)
ShellExecuteWait("7za.exe", "a "&$filename&" "&Chr(34)&$path&"*.xml"&Chr(34), "", "",@SW_HIDE)

[/autoit]

-> *closed*

Weisgarnix

Hallo miteinander.

Ich dachte eigentlich, das wird ein Spaziergang, doch weit gefehlt! Das Script soll eigentlich nur ein simples backup packen und per ftp hochladen, leider funktioniert davon praktisch gar nichts, aus mir unerklärlichen Gründen.

Hier der Quellcode:

Spoiler anzeigen

[autoit]

#Include <FTPEx.au3>
$path=IniRead("settings.ini", "Settings", "path", "rapla\webapp\WEB-INF\")
$serveradress=IniRead("settings.ini", "Settings", "serveradress", "domain")
$username=IniRead("settings.ini", "Settings", "username", "username")
$password=IniRead("settings.ini", "Settings", "password", "password")
#cs
$filename=@MDAY&"."&@MON&"."&@YEAR&"_"&@HOUR&"."&@MIN&"."&@SEC&".gz"
RunWait("7z.exe a "&$filename&" "&$path&"*.xconf")
RunWait("7z.exe a "&$filename&" "&$path&"*.xml")
#ce
$filename="test.7z"

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

$connection=_FTP_Open("AutoIt v3")
_FTP_Connect($connection, $serveradress, $username, $password)
;_FTP_DirSetCurrent($connection, "rapla")
;_FTP_DirSetCurrent($connection, "backups")
_FTP_FilePut($connection, $filename, $filename)
_FTP_Close($connection)

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

$log = FileOpen("log.txt", 9)
FileWriteLine($log, @MDAY&"."&@MON&"."&@YEAR&", "&@HOUR&":"&@MIN&":"&@SEC&" - Datei "&$filename&" wurde erfolgreich hochgeladen.")
FileClose($log)

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

FileCopy($filename, "backups\"&$filename)
FileDelete($filename)

[/autoit]

Das mit dem 7z schau ich heute Abend nochmals genauer, ich glaube, für gz bräuchte ich die 7za.exe, vielleicht funktioniert es dann bereits. Aber was mit dem FTP nicht tut, weiß ich nicht. möglicherweise wird der FTP-Agent gesperrt, aber ich finde auch nichts, wie z.B. FileZilla "heißt". Sehr deprimierend, 15 Zeilen Code und nichts tut

Hinweis: Ich muss nun weg und konnte daher keinen ftp-test-account erstellen, ich hoffe, jemand ist da, der das kann.
*Edit*: Das mit dem Log-Eintrag wird natürlich bei zeit noch an die Errorcodes angepasst, sodass das mehr der Wahrheit entspricht

Weisgarnix

Ah, kapiert
Pretty sad :D^^
Okay, damit dann erledigt *heul*

Weisgarnix

Woher weißt du das?

Dem Programm liegt keine Lizenz bei, bei der Installation stimmt man keinen Lizenzbedingungen zu, und auch auf der Homepage sucht man vergeblich nach eine Nutzungslizenz, das einzige, was ich finde, ist folgendes:

Zitat

ISSkin Overview
ISSkin is a free version of Codejock’s Skin Framework that allows you to add customized skins to Jordan Russell's Inno Setup compiler. Inno Setup is a free compiler for creating customizable, professional looking installations.
ISSkin gives you the flexibility of creating custom Visual Styles that can be used with Inno Setup to add a rich professional look to any Inno Setup installation, and best of all its free!.
Features Include

Supports existing Microsoft Visual Styles.

Easy to use with just a few lines of code.

Skin support for existing installations.

Requirements

Inno Setup to compile the installation.

Microsoft Windows.

Weisgarnix

Hi.

Nur, falls das überhaupt möglich ist, wäre hier eine Idee für eine UDF: http://isskin.codejock.com/

So was ähnliches gibt es mit Uskin bereits, allerdings kann man cjstyles-Dateien mit dem mitgelieferten Editor selber kostenlos erstellen und diese dann benutzen, anders als bei msstyles-Dateien (die aber nebenbei bemerkt mit isskin auch genutzt werden können). mit Skincrafter gibts auch so was ähnliches, wo das Erstellen von Skins mit dem kostenlosen Editor ebenfalls geht, allerdings geht die Einbindung nur, wenn man eine Lizenz erworben hat, die tausende Dollar kostet, insofern wäre dieses Isskin denke ich mal eine interessante Alternative.

Falls jemand Lust hat, kann er sich ja dran machen, falls das überhaupt machbar ist

Dem/Der/Denjenigen viel Spaß dabei, ich werde ab und zu mal hier rein schauen.

Weisgarnix

Du sagst es, endlich :D^^

Beiträge von Weisgarnix

AutoItstall

Minecraft Server Helper

AutoItstall

AutoItstall

AutoItstall

AutoItstall

Webspace als Updateserver benutzen?

AutoItstall

AutoItstall

AutoItstall

AutoItstall

AutoItstall

Wiedergabeliste Ersteller[Update18.03.2011]

Crypt - Ein simples Verschlüsselungsprogramm

Probleme mit FTPEx und mit 7za.exe

Probleme mit FTPEx und mit 7za.exe

isskin für autoit nutzbar?

isskin für autoit nutzbar?

isskin für autoit nutzbar?

Eine GUI mit Funktionen belegen?