SUFU hilft mal wieder...sieh dir mal die_download-UDF an...das sollte dein Problem lösen
Beiträge von General Kaboom
-
-
Im comment steht ja:
[autoit];hier soll die Verbleibende Zeit berechnet werden
[/autoit]
;und über GuiCtrlSetData des $time_label aktualiesiert werdenIst an sich ja keine Frage aber man sollte doch aus dem kontext heraus schliessen können, was er will
-
BadBunny: Ich vermute mal, dass einige Texturen transparent erscheinen, passiert bei mir auch immer wieder...ich bin im 3D-Modellieren halt noch ein ziemlicher Anfänger
Hat vieleicht jemand gerade ne Lösung parrat? -
Da frag ich mich bloss, wie man auf SOLCHE ideen kommt...etwas düster ö.Ö aber natürlich trotzdem gut gemacht
-
Wie ist "ein script" gemeint...externe VBA oder batch etwa? Falls normal in AutoIt wüsst ich nicht was da spezielles zu beachten sein sollte O_o
Edit: Und das allseits verhasst AutoIT würd ich auch durch ein AutoIt austauschen...erspart blöde kommentare wie den den du gerade liesst
-
Ansonsten würds aber auch noch so gehen, hier werden einfach die alten Controls gelöscht und durch neue ersetzt...
nicht sehr elegant was die codelänge betrifft aber wenn das ganze dann noch gut kommentiert wird.
Im allgemeinen würd ich dir vorschlagen VIEL mehr zu kommentieren was im programm gerade passiert, vermeidet probleme beim späteren nachbearbeitenSpoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>$Form1_1 = GUICreate("Auto Install", 571, 405, 355, 285)
[/autoit] [autoit][/autoit] [autoit]
$Button1 = GUICtrlCreateButton("32 Bit System", 72, 136, 139, 33)
$Button2 = GUICtrlCreateButton("64 Bit System", 72, 192, 139, 33)
$Button3 = GUICtrlCreateButton("Notebook", 72, 248, 139, 33)
$Button4 = GUICtrlCreateButton("Manuell", 72, 304, 139, 33)
$Label1 = GUICtrlCreateLabel("Copyright © by EDV Consulting GmbH. Alle Rechte vorbehalten", 264, 384, 304, 17)
$Logo = GUICtrlCreatePic("S:\Betriebssysteme\Auto Install Software\Design\Logo mit Zusatz.jpg", 16, 16, 540, 92)
$Button5 = GUICtrlCreateButton("Software auslesen", 336, 248, 139, 33)
$Label2 = GUICtrlCreateLabel(" Extras ", 352, 136, 105, 33)
GUICtrlSetFont(-1, 18, 800, 4, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Button6 = GUICtrlCreateButton("Systeminformationen", 336, 192, 139, 33)
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\PC 32bit.exe")
Case $Button2
RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\PC 64bit.exe")
Case $Button3
RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Notebooks.exe")
Case $Button4 ; Manuelle installation
GUICtrlDelete($Button1)
GUICtrlDelete($Button2)
GUICtrlDelete($Button3)
GUICtrlDelete($Button4)
GUICtrlDelete($Label1)
GUICtrlDelete($Logo)
GUICtrlDelete($Button5)
GUICtrlDelete($Button6)
GUICtrlDelete($Label2)
$Label1 = GUICtrlCreateLabel("Copyright © by EDV Consulting GmbH. Alle Rechte vorbehalten", 264, 384, 304, 17)
$Logo = GUICtrlCreatePic("S:\Betriebssysteme\Auto Install Software\Design\Logo mit Zusatz.jpg", 16, 16, 540, 100)
$Checkbox1 = GUICtrlCreateCheckbox(" 7-Zip", 48, 144, 121, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox2 = GUICtrlCreateCheckbox("Acrobat Reader", 48, 184, 145, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox3 = GUICtrlCreateCheckbox("Flash Player", 48, 224, 145, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox4 = GUICtrlCreateCheckbox("Cisco VPN Client", 48, 264, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox5 = GUICtrlCreateCheckbox("Ferrari Fax", 48, 304, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox6 = GUICtrlCreateCheckbox("Free PDF", 216, 144, 137, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox7 = GUICtrlCreateCheckbox("iTunes", 216, 184, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox8 = GUICtrlCreateCheckbox("Java", 216, 224, 145, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox9 = GUICtrlCreateCheckbox("ESET NOD32", 216, 264, 129, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox10 = GUICtrlCreateCheckbox("Notepad++", 216, 304, 113, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox11 = GUICtrlCreateCheckbox("WSUS Client", 384, 144, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox12 = GUICtrlCreateCheckbox("Ashampo 6 ", 384, 184, 161, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox13 = GUICtrlCreateCheckbox("Office 2010", 384, 224, 161, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox14 = GUICtrlCreateCheckbox("JMS", 384, 264, 169, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox15 = GUICtrlCreateCheckbox("OMS", 384, 304, 161, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Button1 = GUICtrlCreateButton("Installieren", 48, 344, 163, 33)
$Checkbox16 = GUICtrlCreateCheckbox("iTunes x64", 216, 200, 145, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox17 = GUICtrlCreateCheckbox("Java x64", 216, 240, 145, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox18 = GUICtrlCreateCheckbox("ESET NOD32 x64", 216, 280, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox19 = GUICtrlCreateCheckbox("Cisco VPN Clientx64", 48, 280, 169, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox20 = GUICtrlCreateCheckbox("Flash Player x64", 48, 240, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox21 = GUICtrlCreateCheckbox(" 7-Zip x64", 48, 160, 129, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If GUICtrlRead($checkbox1) = 1 Then
$Checkbox1 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\7-Zip.exe")
EndIf
If GUICtrlRead($checkbox2) = 1 Then
$Checkbox2 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Acrobat Reader.exe")
EndIf
If GUICtrlRead($checkbox3) = 1 Then
$Checkbox3 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Flash Player.exe")
EndIf
If GUICtrlRead($checkbox4) = 1 Then
$Checkbox4 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Cisco VPN Client.exe")
EndIf
If GUICtrlRead($checkbox5) = 1 Then
$Checkbox5 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Ferrari Fax.exe")
EndIf
If GUICtrlRead($checkbox6) = 1 Then
$Checkbox6 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\FreePDF.exe")
EndIf
If GUICtrlRead($checkbox7) = 1 Then
$Checkbox7 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\iTunes.exe")
EndIf
If GUICtrlRead($checkbox8) = 1 Then
$Checkbox8 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Java.exe")
EndIf
If GUICtrlRead($checkbox9) = 1 Then
$Checkbox9 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\ESET NOD32.exe")
EndIf
If GUICtrlRead($Checkbox10) = 1 Then
$Checkbox10 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Notepad.exe")
EndIf
If GUICtrlRead($checkbox11) = 1 Then
$Checkbox11 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\WSUS.exe")
EndIf
If GUICtrlRead($checkbox12) = 1 Then
$Checkbox12 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Ashampoo.exe")
EndIf
If GUICtrlRead($checkbox13) = 1 Then
$Checkbox13 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Office 2010.exe")
EndIf
; JMS
If GUICtrlRead($checkbox14) = 1 Then
$Checkbox14 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\.exe")
EndIf
; OMS
If GUICtrlRead($checkbox15) = 1 Then
$Checkbox15 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\.exe")
EndIf
If GUICtrlRead($checkbox16) = 1 Then
$Checkbox16 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\iTunes64.exe")
EndIf
If GUICtrlRead($checkbox17) = 1 Then
$Checkbox17 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\java64.exe")
EndIf
If GUICtrlRead($checkbox18) = 1 Then
$Checkbox18 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\ESET NOD32 64.exe")
EndIf
If GUICtrlRead($checkbox19) = 1 Then
$Checkbox19 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Cisco VPN Client64.exe")
EndIf
If GUICtrlRead($Checkbox20) = 1 Then
$Checkbox20 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Flash Player 64.exe")
EndIf
If GUICtrlRead($Checkbox21) = 1 Then
$Checkbox21 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\7-Zip64.exe")
EndIf
Exit
EndSwitch
WEnd
Case $Button5 ; Software auslesen
Case $Button6 ; Systeminfo auslesen
RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Systeminfo.exe")
Case $Logo
EndSwitch
WEnd -
Tach
Also entweder machst du es so:
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=s:\betriebssysteme\auto install software\design\form1.kxf
$Form1_1 = GUICreate("Auto Install", 571, 405, 355, 285)
$Button1 = GUICtrlCreateButton("32 Bit System", 72, 136, 139, 33)
$Button2 = GUICtrlCreateButton("64 Bit System", 72, 192, 139, 33)
$Button3 = GUICtrlCreateButton("Notebook", 72, 248, 139, 33)
$Button4 = GUICtrlCreateButton("Manuell", 72, 304, 139, 33)
$Label1 = GUICtrlCreateLabel("Copyright © by EDV Consulting GmbH. Alle Rechte vorbehalten", 264, 384, 304, 17)
$Logo = GUICtrlCreatePic("S:\Betriebssysteme\Auto Install Software\Design\Logo mit Zusatz.jpg", 16, 16, 540, 92)
$Button5 = GUICtrlCreateButton("Software auslesen", 336, 248, 139, 33)
$Label2 = GUICtrlCreateLabel(" Extras ", 352, 136, 105, 33)
GUICtrlSetFont(-1, 18, 800, 4, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Button6 = GUICtrlCreateButton("Systeminformationen", 336, 192, 139, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\PC 32bit.exe")
Case $Button2
RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\PC 64bit.exe")
Case $Button3
RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Notebooks.exe")
Case $Button4 ; Manuelle installation
$Form1_2 = GUICreate("Auto Install Manuell", 571, 405, 355, 285)
$Label1 = GUICtrlCreateLabel("Copyright © by EDV Consulting GmbH. Alle Rechte vorbehalten", 264, 384, 304, 17)
$Logo = GUICtrlCreatePic("S:\Betriebssysteme\Auto Install Software\Design\Logo mit Zusatz.jpg", 16, 16, 540, 100)
$Checkbox1 = GUICtrlCreateCheckbox(" 7-Zip", 48, 144, 121, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox2 = GUICtrlCreateCheckbox("Acrobat Reader", 48, 184, 145, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox3 = GUICtrlCreateCheckbox("Flash Player", 48, 224, 145, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox4 = GUICtrlCreateCheckbox("Cisco VPN Client", 48, 264, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox5 = GUICtrlCreateCheckbox("Ferrari Fax", 48, 304, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox6 = GUICtrlCreateCheckbox("Free PDF", 216, 144, 137, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox7 = GUICtrlCreateCheckbox("iTunes", 216, 184, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox8 = GUICtrlCreateCheckbox("Java", 216, 224, 145, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox9 = GUICtrlCreateCheckbox("ESET NOD32", 216, 264, 129, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox10 = GUICtrlCreateCheckbox("Notepad++", 216, 304, 113, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox11 = GUICtrlCreateCheckbox("WSUS Client", 384, 144, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox12 = GUICtrlCreateCheckbox("Ashampo 6 ", 384, 184, 161, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox13 = GUICtrlCreateCheckbox("Office 2010", 384, 224, 161, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox14 = GUICtrlCreateCheckbox("JMS", 384, 264, 169, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox15 = GUICtrlCreateCheckbox("OMS", 384, 304, 161, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Button1 = GUICtrlCreateButton("Installieren", 48, 344, 163, 33)
$Checkbox16 = GUICtrlCreateCheckbox("iTunes x64", 216, 200, 145, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox17 = GUICtrlCreateCheckbox("Java x64", 216, 240, 145, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox18 = GUICtrlCreateCheckbox("ESET NOD32 x64", 216, 280, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox19 = GUICtrlCreateCheckbox("Cisco VPN Clientx64", 48, 280, 169, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox20 = GUICtrlCreateCheckbox("Flash Player x64", 48, 240, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox21 = GUICtrlCreateCheckbox(" 7-Zip x64", 48, 160, 129, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)
GUIDelete($Form1_1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If GUICtrlRead($checkbox1) = 1 Then
$Checkbox1 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\7-Zip.exe")
EndIf
If GUICtrlRead($checkbox2) = 1 Then
$Checkbox2 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Acrobat Reader.exe")
EndIf
If GUICtrlRead($checkbox3) = 1 Then
$Checkbox3 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Flash Player.exe")
EndIf
If GUICtrlRead($checkbox4) = 1 Then
$Checkbox4 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Cisco VPN Client.exe")
EndIf
If GUICtrlRead($checkbox5) = 1 Then
$Checkbox5 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Ferrari Fax.exe")
EndIf
If GUICtrlRead($checkbox6) = 1 Then
$Checkbox6 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\FreePDF.exe")
EndIf
If GUICtrlRead($checkbox7) = 1 Then
$Checkbox7 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\iTunes.exe")
EndIf
If GUICtrlRead($checkbox8) = 1 Then
$Checkbox8 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Java.exe")
EndIf
If GUICtrlRead($checkbox9) = 1 Then
$Checkbox9 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\ESET NOD32.exe")
EndIf
If GUICtrlRead($Checkbox10) = 1 Then
$Checkbox10 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Notepad.exe")
EndIf
If GUICtrlRead($checkbox11) = 1 Then
$Checkbox11 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\WSUS.exe")
EndIf
If GUICtrlRead($checkbox12) = 1 Then
$Checkbox12 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Ashampoo.exe")
EndIf
If GUICtrlRead($checkbox13) = 1 Then
$Checkbox13 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Office 2010.exe")
EndIf
; JMS
If GUICtrlRead($checkbox14) = 1 Then
$Checkbox14 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\.exe")
EndIf
; OMS
If GUICtrlRead($checkbox15) = 1 Then
$Checkbox15 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\.exe")
EndIf
If GUICtrlRead($checkbox16) = 1 Then
$Checkbox16 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\iTunes64.exe")
EndIf
If GUICtrlRead($checkbox17) = 1 Then
$Checkbox17 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\java64.exe")
EndIf
If GUICtrlRead($checkbox18) = 1 Then
$Checkbox18 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\ESET NOD32 64.exe")
EndIf
If GUICtrlRead($checkbox19) = 1 Then
$Checkbox19 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Cisco VPN Client64.exe")
EndIf
If GUICtrlRead($Checkbox20) = 1 Then
$Checkbox20 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Flash Player 64.exe")
EndIf
If GUICtrlRead($Checkbox21) = 1 Then
$Checkbox21 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\7-Zip64.exe")
EndIf
Exit
EndSwitch
WEnd
Case $Button5 ; Software auslesen
Case $Button6 ; Systeminfo auslesen
RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Systeminfo.exe")
Case $Logo
EndSwitch
WEnddamit wird die neue GUI geöfnet und die alte geschlossen...eine andere möglichkeit wäre du entfernst zuerst die alten controls aus der GUI (mir fällt der befehl gerade nicht ein) und erstellst danach die neuen.
Hoffe konnte helfen.
Edit: Whops...da ist zwei mal die gleiche Lösung rausgekommen
-
Hallo und willkommen im FOrum.
Dennoch heißt es AutoIt, machs gleich so, dann erspast du dir dumme Kommentare
MfG, campweb
-.- wohl schon zu spät
Ein Herzliches willkommen auch von mir
-
hmm...könnte es nicht sein, das er die GESAMTE theme meint...also ein skinwechsel?
-
Schon etwas herausgefunden?
Ich weiss nur das dieses Problem bei Irrlicht öffters auftaucht...eine Lösung habe ich bis anhin noch nicht aber ich werd mich sobald ich Zeit habe sofort dransetzen. -
Ich denke bei einem Jump 'n Run macht ein Multiplayermodus nicht viel Sinn. Vieleicht etwa "Super Mario Smash Bros"-ähnliches (dafür braucht es aber noch mehr charaktere) oder ein Online Highscore.
-
Moinsen zusammen
Ich schreibe gerade ein Autostartfenster für ein paar Kumpels.
Bisher habe ich bereits folgendes geschrieben:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>$Form1_1 = GUICreate("West Startup Notifier", 623, 449, 188, 114)
[/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0x000000)
GUISetIcon("pictures\stellarium.ico", -1)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 14, 400, 0, "Old English Text MT")
GUICtrlSetColor(-1, 0xFF0000)
$Pic1 = GUICtrlCreatePic("pictures\header.jpg", 8, 8, 377, 137)
$Label1 = GUICtrlCreateLabel("Thank you for playing our mod!", 384, 400, 230, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Old English Text MT")
GUICtrlSetColor(-1, 0xFF0000)
$Pic2 = GUICtrlCreatePic("pictures\button_install.bmp", 416, 8, 193, 57) ; replace with button_install.bmp
GUICtrlSetCursor (-1, 0)
$Pic3 = GUICtrlCreatePic("pictures\button_uninstall.bmp", 416, 88, 193, 57)
GUICtrlSetCursor (-1, 0)
$Pic4 = GUICtrlCreatePic("pictures\button_visit.bmp", 416, 168, 193, 57)
GUICtrlSetCursor (-1, 0)
$Pic5 = GUICtrlCreatePic("pictures\button_report.bmp", 416, 248, 193, 57)
GUICtrlSetCursor (-1, 0)
$Pic6 = GUICtrlCreatePic("pictures\button_quit.bmp", 416, 328, 193, 57)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)While 1
[/autoit]
$nMsg = GUIGetMsg()
If $nMsg = $Pic2 Then
Run("installer.exe")
ExitLoop
EndIf
If $nMsg = $Pic3 Then
Run("uninstaller.exe")
ExitLoop
EndIf
If $nMsg = $Pic4 Then
ShellExecute("http://www.homepage.com")
ExitLoop
EndIf
If $nMsg = $Pic5 Then
Run("report.exe")
ExitLoop
EndIf
If $nMsg = $Pic6 Then
ExitLoop
EndIf
WEnd
ExitIch weiss das ginge bestimmt etwas eleganter aber das wird nicht oft gebraucht...um genauer zu sein einmal wenn das Program installiert werden soll
Folgendes fehlt mir aber noch:
- Der Bereich unten links (im bild Grün gefärbt) kommt mir noch etwas leer vor nun wollte ich da ein kleines Vid abspielen lassen.
[Blockierte Grafik: http://img819.imageshack.us/img819/5744/unbenanntcsi.png]Leider funktioniert GUICtrlCreateAVI nicht für .avi-Filme (was ja eigentlich keinen Sinn macht warum gibt es denn so eine Funktion überhaupt
).Ich weiss dieses Problem wurde schon mehrmal behandelt und immer wieder auf die DSEngine hingewiesen, aber aus der werd ich irgendwie auch nicht schlau.
Danke schonmal
-
Erstaunlich wie schnell man 20 Zeilen zusammenhat -.-
Naja, bau ich mir halt meinen eignen Fileserver zusammen -
mal so ne ganz nebensächliche Frage: was gäbe es denn zu gewinnen (ist doch schliesslich ein wettbewerb) und ja ich weiss das die frist moin endet xDD
-
Ich hab da nirgendswo einen Preis gesehen...sowas kann gar nicht Open-Source sein, sonst wär das längst bei mir drauf
-
Kostet? Bin mit 3ds max und Blende etwas überfordert, würd mich nur mal so interessieren
-
-
Eben...ich vermute eine zu hohe polycount, die kann ab und zu schon mal probleme auslösen...weisst du wo bei irrlicht die grenze ist?
-
Ähm...die einzigen transparenten Texturen sind aber die blauen fensterchen und die werden ja angezeigt...kann sein das diese flächen zu sehr miteinander verschmolzen sind, das die Polycount doch noch etwas zu hoch ist oder ein fehler beim Exportieren zu .obj ich versuch das mal zu fixen (werde diesmal den ungewöhnlichen weg über das .3ds format nehmen und dann in 3ds max einfach als .obj speichern) , naja hätte schlimmer kommen können xD
-
Bin leider ne absolute Blender-0...bin mir gerade ein paar tuts am ansehen aber ich werde aus dieser Oberfläche einfach nicht schlau