Also das mit dem Scrollbalken habe ich behoben aber wichtig ist immernoch das ich die Buttons nicht in den Vordergrund kriege.
Beiträge von Masterraven9
-
-
thx
Aber da ich auch auf php Dateien und einen MySQL Server zugreife die auf einem anderen PC sind, klappt das nicht so gut (soweit ich die Funktionsweise von hta Dateien verstanden hab).
Außerdem funktioniert ja schon alles meine Fragen sind eher Designtechnisch z.B. wie kann ich Buttons über das Fenster legen, wie kann ich den Scrollbalken an der Seite verschwinden lassen und wie kann ich die Taskliste in den Hintergrund setzen.thx
-
Hy,
ich versuche gerade ein Programm zu schreiben das als Hintergrund eine HTML Seite hat auf der ich gerne arbeiten möchte.
Ich möchte das Programm im Vollbildmodus (1680x1050) haben ohne Ränder.
Bis jetzt hab ich zwar schon die Seite als Hintergrund mit der ich arbeiten kann, doch leider wird unten noch die Taskleiste angezeigt und rechts ein scrollbalken.
Außerdem werden die Buttons nicht über das Objekt gelegt, geht das überhaupt?Ich hoffe jemand kann mir helfen.
bisheriger Code
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>$oIE = ObjCreate("Shell.Explorer.2")
[/autoit] [autoit][/autoit] [autoit]$main = GUICreate ( "", 1680, 1050, 0, 0, $WS_POPUP,$WS_EX_TOOLWINDOW)
[/autoit] [autoit][/autoit] [autoit]
$GUIActiveX = GUICtrlCreateObj ( $oIE, 0, 0, 1680, 1050)
$GUI_Button_Back = GuiCtrlCreateButton ("Back", 10, 620, 100, 30)
$GUI_Button_Forward = GuiCtrlCreateButton ("Forward", 120, 620, 100, 30)$GUI_Button_X = GuiCtrlCreateButton ("X", 950, 30, 50, 50)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($GUI_Button_X,$GUI_ONTOP)
$GUI_Button_Home = GuiCtrlCreateButton ("Home", 230, 620, 100, 30)
$GUI_Button_Play = GuiCtrlCreateButton ("Play", 330, 620, 100, 30)GUISetState () ;Show GUI
[/autoit] [autoit][/autoit] [autoit]$oIE.navigate("http://192.168.0.254/index.html")
[/autoit] [autoit][/autoit] [autoit]; Waiting for user to close the window
[/autoit] [autoit][/autoit] [autoit]
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_Button_Home
$oIE.navigate("http://192.168.0.254/index.html")
Case $msg = $GUI_Button_Back
$oIE.GoBack
Case $msg = $GUI_Button_Forward
$oIE.GoForward
Case $msg = $GUI_Button_X
Exit
Case $msg = $GUI_Button_Play
$file = $oIE.Document.documentElement.outerHTML
$file = StringTrimLeft($file, StringInStr( $file, "<:-:", 1) + 3)
$file = StringTrimRight($file, StringLen($file) - StringInStr( $file, ":-:>", 1) + 1)
MsgBox(0,"titel",$file)
EndSelect
WendGUIDelete ()
[/autoit] [autoit][/autoit] [autoit]Exit
[/autoit]Ich habe auch schon verschiedene Arten mit GUICTRLSETSTATE versucht doch leider hat es nicht funktioniert.
thx
-
Hab mir vielleicht ein bissel schwierig ausgedrückt. Ist aber auch nicht leicht zu erklären.
-
thx erstmal für die Antworten ich hatte auch keine Probleme mit der Kommunikation zwischen Autoit und MySQL, auch die Abfrage ist nicht das Problem sondern ich hatte einfach keine Idee wie ich das alles Ausgeben könnte aber BugFix hat da ja jetzt ein par Beispiele gebracht.
thx
-
Hy Leude,
heut hab ich mal ein ganz anderes Problem.
Ich würde gerne eine Seriendatenbank erstellen auf MySQL Basis, die Serien, Infos und Verlinkungen zu den Files sind alle schon in einer Datenbank.
Über ein PHP Script kann ich auch schon das wichtigste auslesen.
Nun zu meinem Problem ich würde gerne eine Suchfunktion einbauen die wenn ein Teil gefunden wird die dazugehörige Serie, Staffel usw. anzeigt.Bsp.:
______________________________
Suche "das":Serie Autoit
|
|-Staffel 02
|
|--Folge 3 das Programm
|--Folge 34 das weiß man nicht
________________________________So nun würde ich gerne auf die Serie klicken können so das alle Teile die von der Serie verfügbar sind angezeigt werden, genau das selbe soll passieren wenn man auf die Staffel klickt und wenn man auf die Folge klickt soll sich ein Beschreibungsfenster öffnen.
So nun mein Problem:
Ich habe keine Ahnung wie ich das realisieren kann d.h. wie erstelle ich zum Beispiel dynamisch erzeugte Buttons inkl. Funktion oder hat vll einer eine bessere Idee wie man das aufteilen/anzeigen könnte.
Hoffe hier kann mir jemand helfen.
thx
-
-
Hy,
ich hab mal wieder ne Frage. Ich habe eine Prog was eine GUI erzeugt mit einem Hintergrundbild nun wüsste ich gerne wie ich ein Label so einstellen kann das die Schrift noch zu lesen ist aber das Hintergrundbild zu sehen ist undnicht dieser Kasten?
thx
-
So da ich jetzt schon mehrere Anfragen bekommen habe poste ich den Quellcode einfach mal es ist sehr einfach gehalten und auch nicht wirklich irgendwas tolles dabei und fertig ist es leider auch nicht.
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GuiConstants.au3>
#include <File.au3>
#requireadmin$autorun = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Computer-Company", "Unattended-autorun")
[/autoit] [autoit][/autoit] [autoit]If $autorun = 1 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$hotfix_title = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Firma :-)", "Hotfixtitel")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Firma :-)", "Unattended-autorun")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Unattended-autorun")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Firma :-)", "Hotfixtitel")
MsgBox(4096, "Status Unattended", "Setup wird überwacht", 5)
Sleep(10000)
WinWait($hotfix_title,"Status")
WinWait($hotfix_title,"Jetzt nicht neu starten")
WinActivate($hotfix_title,"Jetzt nicht neu starten")
ControlClick($hotfix_title,"Beenden","TButton2")
Exit
EndIf; GUI
[/autoit] [autoit][/autoit] [autoit]
GuiCreate("Unattended Installer v0.8.1", 400, 580)
GuiSetIcon("installer.ico", 0)GUICtrlCreateLabel("powerd by", 160, 5)
[/autoit] [autoit][/autoit] [autoit]
GUISetFont (14, 400, 1)
GUICtrlCreateLabel("Firma :-)", 110, 21)
GUICtrlSetTip(-1, "and Masterraven9")
GUISetFont (9, 400, 0)
GUICtrlSetColor(-1,0xD18127); GROUP WITH Haupt-Auswahl
[/autoit] [autoit][/autoit] [autoit]
GuiCtrlCreateGroup("", 5, 45, 390, 35)
$auswahl_1 = GuiCtrlCreateRadio("Installation", 40, 55, 90)
GuiCtrlSetState(-1, $GUI_CHECKED)
$CLEAN = GUICtrlCreateButton("clean", 160, 56, 60, 20)
GUICtrlSetTip(-1, "Bereinigt den Systemstart.")
$auswahl_2 = GuiCtrlCreateRadio("Updates", 260, 55, 90)
GUICtrlCreateGroup ("",-99,-99,1,1)
;close group Haupt-Auswahl; GROUP WITH Windows Version
[/autoit] [autoit][/autoit] [autoit]
GuiCtrlCreateGroup("Windows Version Auswahl", 5, 130, 390, 70, $BS_CENTER)
$winver_1 = GuiCtrlCreateRadio("Windwos ME", 40, 150, 90)
$winver_2 = GuiCtrlCreateRadio("Windwos XP", 150, 150, 90)
$winver_3 = GuiCtrlCreateRadio("Windwos Vista", 260, 150, 100)
$hotfix = GUICtrlCreateCheckbox ("Hotfixes", 160, 172, 125, 20)
GUICtrlCreateGroup ("",-99,-99,1,1)
;close group Windows Version; GROUP WITH Design
[/autoit] [autoit][/autoit] [autoit]
GuiCtrlCreateGroup("Design Auswahl", 5, 205, 390, 45, $BS_CENTER)
$design_standart = GUICtrlCreateCheckbox ("Standartdesign", 30, 222, 150, 20)
$design_klassisch = GUICtrlCreateCheckbox ("klassisches Design", 220, 222, 150, 20)
GUICtrlCreateGroup ("",-99,-99,1,1)
;close group Design; GROUP WITH Standart-Tools
[/autoit] [autoit][/autoit] [autoit]
GuiCtrlCreateGroup("Standart-Tools", 5, 255, 390, 82, $BS_CENTER)
$avast = GUICtrlCreateCheckbox ("AVAST! Home", 30, 275, 100, 20)
$spybot = GUICtrlCreateCheckbox ("Spybot", 135, 275, 70, 20)
$ccleaner = GUICtrlCreateCheckbox ("CCleaner", 220, 275, 80, 20)
If GUICtrlRead($winver_1) = $GUI_CHECKED Then
$acrobat = GUICtrlCreateCheckbox ( "A. Reader 5", 300, 275, 80, 20)
Else
$acrobat = GUICtrlCreateCheckbox ( "A. Reader 8", 300, 275, 80, 20)
EndIfGUICtrlSetTip(-1, "5.0 für ME, ab 2k/XP 8.0")
[/autoit] [autoit][/autoit] [autoit]
$web = GUICtrlCreateCheckbox ("Smart Surfer", 30, 310, 100, 20)
$winrar = GUICtrlCreateCheckbox ("Winrar", 135, 310, 80, 20)
$firefox = GUICtrlCreateCheckbox ("Firefox", 220, 310, 70, 20)
$gimp = GUICtrlCreateCheckbox ("The GIMP", 300, 310, 80, 20)
GUICtrlCreateGroup ("",-99,-99,1,1)
;close group Standart-Tools; GROUP WITH PowerDVD
[/autoit] [autoit][/autoit] [autoit]
GuiCtrlCreateGroup("PowerDVD Version", 5, 345, 390, 50, $BS_CENTER)
$pdvdver_1 = GuiCtrlCreateRadio("Version 5", 40, 365, 90)
$pdvdver_2 = GuiCtrlCreateRadio("Version 7", 150, 365, 70)
$pdvdver_3 = GuiCtrlCreateRadio("nicht installieren", 250, 365, 110)
GUICtrlCreateGroup ("",-99,-99,1,1)
;close group PowerDVD; GROUP WITH Nero
[/autoit] [autoit][/autoit] [autoit]
GuiCtrlCreateGroup("Nero Version", 5, 402, 390, 45, $BS_CENTER)
$nero_1 = GuiCtrlCreateRadio("Version 6", 40, 419, 90)
$nero_2 = GuiCtrlCreateRadio("Version 7", 150, 419, 70)
$nero_3 = GuiCtrlCreateRadio("nicht installieren", 250, 419, 110)
GUICtrlCreateGroup ("",-99,-99,1,1)
;close group Nero; GROUP WITH Office
[/autoit] [autoit][/autoit] [autoit]
GuiCtrlCreateGroup("Erkanntes Office", 5, 450, 390, 45, $BS_CENTER)GUICtrlCreateGroup ("",-99,-99,1,1)
[/autoit] [autoit][/autoit] [autoit]
;close group Office$UPDATE = GUICtrlCreateButton("Updates Laden", 125, 500, 150, 20)
[/autoit] [autoit][/autoit] [autoit]
GuiCtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetTip(-1, "First run the Installation")
$INSTALL = GUICtrlCreateButton("Installation durchführen", 65, 530, 275, 40)
GUICtrlSetTip(-1, "Starts the Silent Installation"); Windows Versions Check
[/autoit] [autoit][/autoit] [autoit]
$winverstr = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName")If GUICtrlRead($winver_1) = $GUI_UNCHECKED AND GUICtrlRead($winver_2) = $GUI_UNCHECKED AND GUICtrlRead($winver_3) = $GUI_UNCHECKED Then
[/autoit] [autoit][/autoit] [autoit]
Select
Case StringInStr($winverstr,"Vista") <> 0
GUICtrlSetState($winver_3, $GUI_CHECKED)
winver()
Case StringInStr($winverstr,"XP") <> 0 Or StringInStr($winverstr,"2000") <> 0
GUICtrlSetState($winver_2, $GUI_CHECKED)
winver()
Case StringInStr($winverstr,"ME") <> 0 Or StringInStr($winverstr,"98") <> 0 Or StringInStr($winverstr,"95") <> 0
GUICtrlSetState($winver_1, $GUI_CHECKED)
winver()
Case StringInStr($winverstr,"2003") <> 0
MsgBox(4096, "Wichtig!!","Unknown or Unsupportet Windows. Funktion ist nicht gewährleistet.")
Case StringInStr($winverstr,"") <> 0
MsgBox(4096, "Wichtig!!","Unknown or Unsupportet Windows. Funktion ist nicht gewährleistet.")
EndSelect
EndIf
; ende Windows Versions Check; GROUP WITH Windows Version
[/autoit] [autoit][/autoit] [autoit]
GuiCtrlCreateGroup("Erkannte Windows Version", 5, 85, 390, 40, $BS_CENTER)
GUICtrlCreateLabel($winverstr, 20, 103, 360, 20, $SS_CENTER)
GUICtrlCreateGroup ("",-99,-99,1,1)
;close group Windows Version; GUI MESSAGE LOOP
[/autoit] [autoit][/autoit] [autoit]
GuiSetState()
While 1
$MSG = GUIGetMsg()Select
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Case $MSG = $winver_1
$Button = $winver_1
winver()
Case $MSG = $winver_2
$Button = $winver_2
winver()
Case $MSG = $winver_3
$Button = $winver_3
winver()
Case $MSG = $auswahl_1
$Button = $auswahl_1
install_auswahl()
Case $MSG = $auswahl_2
$Button = $auswahl_2
update_auswahl()
Case $MSG = $CLEAN
; kopiert Datei wget (frage ob WINME)
If GUICtrlRead($winver_1) = $GUI_CHECKED Then
MsgBox(0,"Autostart Cleaner", "Unter Windows ME funktioniert dies nicht.")
Else
RunWait(@ScriptDir & "\regclean\start.bat", @ScriptDir & "\regclean\")
MsgBox(0,"Autostart Cleaner", "Der Autostart wurde aufgeräumt.")
EndIf
; kopieren der Datei beendet
Case $MSG = $UPDATE
$pingfield = Ping("www.google.de")
If $pingfield <> 0 Then
update()
Else
MsgBox(0, "Status", "Es besteht keine Internet Verbindung")
EndIf
Case $MSG = $INSTALL
installation()
EndSelect
If $MSG = $GUI_EVENT_CLOSE Then ExitLoop
WEnd; Installtions Routine Windows 9x/ME/2k/XP/Vista
[/autoit] [autoit][/autoit] [autoit]
Func installation()
$width = @DesktopWidth
$height = @DesktopHeight
If ($width = 800) And ($height = 600) Then
$guifield = GUICreate("Status", 200, 130, 150, 150)
Else
$guifield = GUICreate("Status", 200, 130, 750, 300)
EndIf
GUISetState(@SW_SHOW, $guifield)
$myedit=GUICtrlCreateEdit (""& @CRLF, 20,10,160,110,$ES_AUTOVSCROLL+$WS_VSCROLL)
; Kontrollfrage Standart-Design
If GUICtrlRead($design_standart) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz", "NoRun", "REG_DWORD", "1"); Deaktiviert Windows Desktop Aufräum Assistent
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz", "NoRun", "REG_DWORD", "1")
GUICtrlSetData ($myedit, "Desktopbereinigungs-Assistent wird deaktiviert"& @CRLF,1)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu", "{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "REG_DWORD", "0"); Fügt Arbeitsplatz Icon hinzu
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu", "{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "REG_DWORD", "0")
GUICtrlSetData ($myedit, "Der Arbeitsplatz wird zum Desktop hinzugefügt"& @CRLF,1)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu", "{450D8FBA-AD25-11D0-98A8-0800361B1103}", "REG_DWORD", "0"); Fügt Eigene Dateien Icon hinzu
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu", "{450D8FBA-AD25-11D0-98A8-0800361B1103}", "REG_DWORD", "0")
GUICtrlSetData ($myedit, "Die Eigenen Dateien zum Desktop hinzugefügt"& @CRLF,1)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu", "{871C5380-42A0-1069-A2EA-08002B30309D}", "REG_DWORD", "0"); Fügt Internet-Explorer Icon hinzu
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu", "{871C5380-42A0-1069-A2EA-08002B30309D}", "REG_DWORD", "0")
GUICtrlSetData ($myedit, "Der Internet-Explorer wird zum Desktop hinzugefügt"& @CRLF,1)
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "ConvertedWallpaper", "REG_SZ", @WindowsDir & "\web\wallpaper\Windows XP.jpg"); ändert das Hintergrundbild
GUICtrlSetData ($myedit, "Hintergrundbild wird angepasst"& @CRLF,1)
GUICtrlSetData ($myedit, ""& @CRLF,1)
EndIf
; Standart-Design wurde abgearbeitet
; Kontrollfrage Avast
If GUICtrlRead($avast) = $GUI_CHECKED Then
GUICtrlSetData ($myedit, "Avast wird installiert"& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
; Key Auslesen
Dim $key = IniRead(@ScriptDir & "\config.ini", "avast", "avast_key", "W7408643H5100A1106-5UBK0NH2")RunWait(@ScriptDir & '\Avast\setupger.exe /VERYSILENT /NORESTART /SP-', @ScriptDir & "\Avast\", @SW_HIDE)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData ($myedit, "Avast wird registriert"& @CRLF,1)
; Suche des Avast-Installationsordner
Sleep(1000)
IF RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ALWIL Software\Avast\4.0","Avast4ProgramFolder") <> "" Then
Dim $avastDir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ALWIL Software\Avast\4.0","Avast4ProgramFolder")
Else
Dim $avastDir = "C:\Programme\Alwil Software\Avast4"
EndIf
; Suche beendetDim $pid = Run($avastDir & "\VisthLic.exe")
[/autoit] [autoit][/autoit] [autoit]
ProcessWait ("VisthLic.exe", 5)
If Not $pid Then ExitDim $var, $handle
[/autoit] [autoit][/autoit] [autoit];1st dialog
[/autoit] [autoit][/autoit] [autoit]
While 1
$var = WinList()
For $i = 1 to $var[0][0]
If $var[$i][0] And WinGetProcess($var[$i][1]) = $pid And WinGetClassList($var[$i][1]) Then
$handle = $var[$i][1]
WinActivate($handle)
ControlSetText($handle, "", 1010, $key)
ControlClick($handle, "", 1) ;Ok
ExitLoop 2
EndIf
Next
WEnd;2nd dialog
[/autoit] [autoit][/autoit] [autoit]
While 1
$var = WinList()
For $i = 1 to $var[0][0]
If $var[$i][0] And WinGetProcess($var[$i][1]) = $pid And WinGetClassList($var[$i][1]) And $var[$i][1]<>$handle Then
WinActivate($var[$i][1])
ControlClick($var[$i][1], "", 1) ;Ok
ExitLoop 2
EndIf
Next
WEnd
GUICtrlSetData ($myedit, "Installation von Avast abgeschlossen."& @CRLF,1)
GUICtrlSetData ($myedit, ""& @CRLF,1)
EndIf
; Avast Anweisung wurde ausgeführt
; Kontrollfrage Spybot
If GUICtrlRead($spybot) = $GUI_CHECKED Then
GUICtrlSetData ($myedit, "Spybot wird installiert"& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
RunWait(@ScriptDir & '\Spybot\spybotsd15.exe /verysilent /COMPONENTS="!update,main,language,skins" /tasks="!launchteatimer,!launchsdhelper,desktopicon,fileassoc" /nocancel', @ScriptDir & '\Spybot\', @SW_HIDE)
GUICtrlSetData ($myedit, "Spybot wurde erfolgreich installiert."& @CRLF,1)
GUICtrlSetData ($myedit, ""& @CRLF,1)
EndIf
; Spybot Anweisung wurde ausgeführt
; Kontrollfrage Ccleaner
If GUICtrlRead($ccleaner) = $GUI_CHECKED Then
GUICtrlSetData ($myedit, "CCleaner wird installiert"& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
RunWait(@ScriptDir & '\ccleaner\ccleanersetup.exe /S', @ScriptDir & "\ccleaner\", @SW_HIDE)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\CCleaner", "UpdateCheck", "REG_SZ", "0")
GUICtrlSetData ($myedit, "CCleaner wurde installiert."& @CRLF,1)
GUICtrlSetData ($myedit, ""& @CRLF,1)
EndIf
; Ccleaner Anweisung wurde ausgeführt
; Kontrollfrage Adobe Acrobat Reader
If GUICtrlRead($acrobat) = $GUI_CHECKED Then
GUICtrlSetData ($myedit, "Adobe Acrobat Reader wird installiert"& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
If GUICtrlRead($winver_1) = $GUI_CHECKED Then
RunWait(@ScriptDir & '\acrobat5\Setup.exe -s', @ScriptDir & "\acrobat5\", @SW_HIDE)
FileDelete( @DesktopCommonDir & '\Acrobat Reader 5.0.lnk')
Else
RunWait(@ScriptDir & '\acrobat8\Setup.exe /sAll /rs', @ScriptDir & "\acrobat8\", @SW_HIDE)
FileDelete( @DesktopCommonDir & '\Adobe Reader 8.lnk')
EndIf
GUICtrlSetData ($myedit, "Acrobat Reader wurde installiert."& @CRLF,1)
GUICtrlSetData ($myedit, ""& @CRLF,1)
EndIf
; Adobe Acrobat Reader Anweisung wurde ausgeführt
; Kontrollfrage Web.de Smart-Surfer
If GUICtrlRead($web) = $GUI_CHECKED Then
GUICtrlSetData ($myedit, "Web.de Smart Surfer wird auf dem System installiert."& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
RunWait(@ScriptDir & "\smart-surfer\WEBDE.exe /S", @ScriptDir & "\smart-surfer\", @SW_HIDE)
GUICtrlSetData ($myedit, "Smart Surfer Installation abgeschlossen."& @CRLF,1)
GUICtrlSetData ($myedit, ""& @CRLF,1)
EndIf
; Web.de Smart-Surfer Anweisung wurde ausgeführt
; Kontrollfrage WinRAR Installation
If GUICtrlRead($winrar) = $GUI_CHECKED Then
GUICtrlSetData ($myedit, "WinRAR wird auf dem System installiert."& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
RunWait(@ScriptDir & "\winrar\wrar.exe /S", @ScriptDir & "\winrar\", @SW_HIDE)
GUICtrlSetData ($myedit, "WinRAR wurde erfolgreich installiert."& @CRLF,1)
GUICtrlSetData ($myedit, ""& @CRLF,1)
EndIf
; WinRAR Anweisung wurde ausgeführt
; Kontrollfrage Firefox Setup
If GUICtrlRead($firefox) = $GUI_CHECKED Then
GUICtrlSetData ($myedit, "Firefox wird auf dem System installiert."& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
RunWait(@ScriptDir & "\firefox\Firefox_Setup.exe -ms", @ScriptDir & "\firefox\", @SW_HIDE)
GUICtrlSetData ($myedit, "Firefox wurde erfolgreich installiert."& @CRLF,1)
GUICtrlSetData ($myedit, ""& @CRLF,1)
EndIf
; Firefox Anweisung wurde ausgeführt
; Kontrollfrage The GIMP
If GUICtrlRead($gimp) = $GUI_CHECKED Then
GUICtrlSetData ($myedit, "Die Entwicklungsumbegung für The Gimp wird installiert."& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
RunWait(@ScriptDir & '\the-gimp\gtk-setup.exe /SILENT /SP- /NORESTART', @ScriptDir & "\the-gimp\", @SW_HIDE)
GUICtrlSetData ($myedit, "The Gimp wird installiert."& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
RunWait(@ScriptDir & '\the-gimp\gimp-setup.exe /SILENT /SP- /NORESTART', @ScriptDir & "\the-gimp\", @SW_HIDE)
GUICtrlSetData ($myedit, "The Gimp und die Entwicklungsumgebung wurden installiert."& @CRLF,1)
GUICtrlSetData ($myedit, ""& @CRLF,1)
EndIf
; GIMP Anweisung wurde ausgeführt
; Kontrollfrage PowerDVD5
If GUICtrlRead($pdvdver_1) = $GUI_CHECKED Then
GUICtrlSetData ($myedit, "PowerDVD Version 5 wird installiert."& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
RunWait(@ScriptDir & "\PDVD5\Setup.exe", @ScriptDir & "\PDVD5\", @SW_HIDE)
GUICtrlSetData ($myedit, "Installation von PowerDVD Version 5 erfolgreich beendet."& @CRLF,1)
GUICtrlSetData ($myedit, ""& @CRLF,1)
EndIf
; PowerDVD5 Anweisung wurde ausgeführt
; Kontrollfrage PowerDVD7
If GUICtrlRead($pdvdver_2) = $GUI_CHECKED Then
GUICtrlSetData ($myedit, "PowerDVD Version 7 wird installiert."& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
RunWait(@ScriptDir & "\PDVD7\Setup.exe", @ScriptDir & "\PDVD7\", @SW_HIDE)
GUICtrlSetData ($myedit, "Installation von PowerDVD Version 7 erfolgreich beendet."& @CRLF,1)
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "LanguageShortcut")
GUICtrlSetData ($myedit, ""& @CRLF,1)
EndIf
; PowerDVD7 Anweisung wurde ausgeführt
; Kontrollfrage Nero6
If GUICtrlRead($nero_1) = $GUI_CHECKED Then
GUICtrlSetData ($myedit, "Nero 6 wird installiert."& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
RunWait(@ScriptDir & "\Nero6\Nerosetup.exe /silent /noreboot /no_ui /sn=1a23-0609-4030-2333-6402-0097 /write_sn", @ScriptDir & "\Nero6\", @SW_HIDE)
GUICtrlSetData ($myedit, "Nero 6 wurde in das bestehende System Integriert."& @CRLF,1)
GUICtrlSetData ($myedit, ""& @CRLF,1)
EndIf
; Nero6 Anweisung wurde ausgeführt
; Kontrollfrage Nero7
If GUICtrlRead($nero_2) = $GUI_CHECKED Then
RunWait("dxdiag /x " & @WindowsDir & "\TEMP\dxdiag.log")
GUICtrlSetData ($myedit, "System wird für die Installation von Nero 7 geprüft."& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
GUICtrlSetData ($myedit, "Wichtige Systemdateien für Nero7 werden kopiert."& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
DirCreate(@WindowsDir & "\TEMP\Nero7")
RunWait("xcopy /Y /E /C Nero7\*.* " & @WindowsDir & "\TEMP\Nero7\*.*",@ScriptDir,@SW_HIDE)
$directx9 = 0
Dim $lRead
_FileReadToArray(@WindowsDir & "\TEMP\dxdiag.log", $lRead)
For $lNum = 1 To $lRead[0]
If StringLeft($lRead[$lNum], = "DirectX 9.0c" Then
$directx9 = 1
ExitLoop
EndIf
Next
If $directx9 <> 1 Then
GUICtrlSetData ($myedit, "DirextX 9.0C wird installiert."& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
RunWait(@WindowsDir & "\TEMP\Nero7\Redist\DirectX\dxsetup.exe /silent", @WindowsDir & "\TEMP\Nero7\Redist\DirectX\", @SW_HIDE)
EndIf
GUICtrlSetData ($myedit, "Nero 7 wird installiert."& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
RunWait(@WindowsDir & '\TEMP\Nero7\SetupX.exe /qb! /NORESTART RebootYesNo="No" NERO_SCOUT="FALSE" serialnum_userval="1C82-0000-19E5-MAAX-4005-0331-2675" AgreeToLicense="Yes" EULA_AGREEMENT=1', @WindowsDir & "\TEMP\Nero7\", @SW_HIDE)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Installation\Settings", "AutomaticUpdate", "REG_SZ", "0")
GUICtrlSetData ($myedit, "Nero 7 wurde in das bestehende System Integriert."& @CRLF,1)
GUICtrlSetData ($myedit, ""& @CRLF,1)
GUICtrlSetData ($myedit, "Nero 7 Installationskomponenten werden entfernt."& @CRLF,1)
GUICtrlSetData ($myedit, ""& @CRLF,1)
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "NeroFilterCheck")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Nero Home\MediaLibrary", "DisableNeroScout", "REG_DWORD", "1")
DirRemove(@WindowsDir & "\TEMP\Nero7", 1)
If FileExists(@WindowsDir & "\TEMP\dxdiag.log") Then
FileDelete(@WindowsDir & "\TEMP\dxdiag.log")
EndIf
EndIf
; Nero7 Anweisung wurde ausgeführt
; Kontrollfrage Hotfixes
If GUICtrlRead($hotfix) = $GUI_CHECKED Then
If (GUICtrlRead($winver_2) = $GUI_CHECKED) And (@OSServicePack <> "Service Pack 2") Then
GUICtrlSetData ($myedit, "Service Pack wird von Hotfixes nicht unterstützt."& @CRLF,1)
GUICtrlSetData ($myedit, "Installation wird beendet."& @CRLF,1)
Else
If GUICtrlRead($winver_2) = $GUI_CHECKED Then
$hotfix_pfad = IniRead(@ScriptDir & "\config.ini", "Pfade_Hotfixes", "hotfix_xp", "")
$hotfix_title = IniRead(@ScriptDir & "\config.ini", "Fenster_name", "hotfix_xp_name", "")
Else
$hotfix_pfad = IniRead(@ScriptDir & "\config.ini", "Pfade_Hotfixes", "hotfix_vi", "")
$hotfix_title = IniRead(@ScriptDir & "\config.ini", "Fenster_name", "hotfix_vi_name", "")
EndIf
GUICtrlSetData ($myedit, "Hotfixes werden für die installation vorbereitet."& @CRLF,1)
GUICtrlSetData ($myedit, "......."& @CRLF,1)
Run(@ScriptDir & "\" & $hotfix_pfad)
WinWait($hotfix_title, "Info")
ControlClick($hotfix_title, "Weiter","TButton4")
WinWait($hotfix_title, "ERGÄNZENDER")
ControlClick($hotfix_title, "Ich stimme zu","TRadioButton2")
ControlClick($hotfix_title, "Weiter","TButton3")
WinWait($hotfix_title, "Abbrechen")
ControlClick($hotfix_title, "Weiter","TButton3")
; Hotfixes installieren
$i = 0
Do
If WinWait("Neu starten","Jetzt neu starten",2) = 1 Then
$i = $i + 1
EndIf
Sleep(2000); wartet 2 sec
If WinWait($hotfix_title,"Jetzt nicht neu starten",2) = 1 Then
$i = $i + 1
EndIf
Sleep(2000); wartet 2 sec
Until $i = 1
If WinExists("Neu starten","Jetzt neu starten") Then ; Installation mit zwischenzeitlichem neustart
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Firma :-)", "Unattended-autorun", "REG_SZ", "1")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Firma :-)", "Hotfixtitel", "REG_SZ", $hotfix_title)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Unattended-autorun", "REG_SZ", @ScriptDir & "\" & @ScriptName)
WinActivate("Neu starten","Jetzt neu starten")
ControlClick("Neu starten","Jetzt neu starten","TButton1")
Else ; Installation ohne zwischenzeitlichem neustart
WinActivate($hotfix_title,"Jetzt nicht neu starten")
ControlClick($hotfix_title,"Beenden","TButton2")
EndIf
EndIf
EndIf
GUIDelete($guifield)
; Hotfixes Anweisung wurde ausgeführt
; Hinweis
MsgBox(0,"Installation abegeschlossen.", "Alle ausgewählten Programme wurden installiert.")
EndFunc
; ende der Installationsroutine
; Update Routine Windows 9x/ME/2k/XP/Vista
Func update()
$guifield2 = GUICreate("Status", 200, 130, 750, 300)
GUISetState(@SW_SHOW, $guifield2)
$myedit2=GUICtrlCreateEdit (""& @CRLF, 20,10,160,110,$ES_AUTOVSCROLL+$WS_VSCROLL)GUICtrlSetData ($myedit2, "WGET.exe wird kopiert."& @CRLF,1)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData ($myedit2, "......."& @CRLF,1)
; kopiert Datei wget (frage ob WINME)
If GUICtrlRead($winver_1) = $GUI_CHECKED Then
RunWait(@ScriptDir & "\wget\xcopy /Y wget.exe %windir%\System\", @ScriptDir & "\wget\", @SW_HIDE)
Else
RunWait(@ScriptDir & "\wget\xcopy /Y wget.exe %windir%\System32\", @ScriptDir & "\wget\", @SW_HIDE)
EndIf
; kopieren der Datei beendet
GUICtrlSetData ($myedit2, "WGET.exe wurde kopiert."& @CRLF,1)
GUICtrlSetData ($myedit2, ""& @CRLF,1)
; Kontrollfrage Updates Avast
If GUICtrlRead($avast) = $GUI_CHECKED Then
GUICtrlSetData ($myedit2, "Avast Updates werden heruntergeladen."& @CRLF,1)
GUICtrlSetData ($myedit2, "......."& @CRLF,1)
RunWait("wget -q http://files.avast.com/iavs4pro/vpsupd.exe", @TempDir, @SW_HIDE)
GUICtrlSetData ($myedit2, "Avast Updates werden installiert."& @CRLF,1)
RunWait("vpsupd.exe /SILENT /SP- /NORESTART", @TempDir, @SW_HIDE)
GUICtrlSetData ($myedit2, "Avast Updates wurden erfolgreich installiert."& @CRLF,1)
GUICtrlSetData ($myedit2, ""& @CRLF,1)
EndIf
; Avast Updates wurden ausgeführt
; Kontrollfrage Updates Spybot
If GUICtrlRead($spybot) = $GUI_CHECKED Then
GUICtrlSetData ($myedit2, "Spybot Updates werden heruntergeladen."& @CRLF,1)
GUICtrlSetData ($myedit2, "......."& @CRLF,1)
RunWait("wget -q http://www.spybotupdates.com/updates/files/…sd_includes.exe", @TempDir, @SW_HIDE)
RunWait("wget -q http://www.spybotupdates.com/updates/files/spybotsd_tools.exe", @TempDir, @SW_HIDE)
RunWait("wget -q http://www.spybotupdates.com/updates/files/…sd_advcheck.exe", @TempDir, @SW_HIDE)
GUICtrlSetData ($myedit2, "Spybot Updates werden installiert."& @CRLF,1)
RunWait("spybotsd_includes.exe /S", @TempDir, @SW_HIDE)
RunWait("spybotsd_tools.exe /S", @TempDir, @SW_HIDE)
RunWait("spybotsd_advcheck.exe /S", @TempDir, @SW_HIDE)
GUICtrlSetData ($myedit2, "Spybot Updates wurden erfolgreich installiert."& @CRLF,1)
GUICtrlSetData ($myedit2, ""& @CRLF,1)
EndIf
; Spybot Updates wurden ausgeführt
MsgBox(0,"Update-Status", "Updates wurden installiert.")
EndFunc
; ende der Updateroutine; Funktion zur auswahl der Installationen
[/autoit] [autoit][/autoit] [autoit]
Func install_auswahl()
If GUICtrlRead($winver_1) = $GUI_CHECKED Then
GUICtrlSetState($hotfix, $GUI_UNCHECKED)
GUICtrlSetState($hotfix, $GUI_DISABLE)
GUICtrlSetState($CLEAN, $GUI_DISABLE)
Else
If StringInStr($winverstr,"2000") <> 0 Then
GUICtrlSetState($hotfix, $GUI_ENABLE)
GUICtrlSetState($hotfix, $GUI_UNCHECKED)
GUICtrlSetState($CLEAN, $GUI_ENABLE)
Else
If GUICtrlRead($winver_2) = $GUI_CHECKED Then
If StringInStr(@OSServicePack,"2") Then
GUICtrlSetState($hotfix, $GUI_ENABLE)
GUICtrlSetState($hotfix, $GUI_CHECKED)
GUICtrlSetState($CLEAN, $GUI_ENABLE)
Else
GUICtrlSetState($hotfix, $GUI_UNCHECKED)
GUICtrlSetState($hotfix, $GUI_DISABLE)
MsgBox(0,"WICHTIG!!", "Service Pack 2 ist nicht installiert.")
EndIf
Else
GUICtrlSetState($hotfix, $GUI_ENABLE)
GUICtrlSetState($hotfix, $GUI_CHECKED)
GUICtrlSetState($CLEAN, $GUI_ENABLE)
EndIf
EndIf
EndIf
GUICtrlSetState($avast, $GUI_CHECKED)
GUICtrlSetState($spybot, $GUI_CHECKED)
GUICtrlSetState($ccleaner, $GUI_ENABLE)
GUICtrlSetState($ccleaner, $GUI_CHECKED)
GUICtrlSetState($acrobat, $GUI_ENABLE)
GUICtrlSetState($acrobat, $GUI_CHECKED)
GUICtrlSetState($web, $GUI_ENABLE)
GUICtrlSetState($winrar, $GUI_ENABLE)
GUICtrlSetState($firefox, $GUI_ENABLE)
GUICtrlSetState($gimp, $GUI_ENABLE)
Select
Case GUICtrlRead($winver_1) = $GUI_CHECKED
GUICtrlSetState($design_standart, $GUI_UNCHECKED)
GUICtrlSetState($design_standart, $GUI_DISABLE)
GUICtrlSetState($design_klassisch, $GUI_UNCHECKED)
GUICtrlSetState($design_klassisch, $GUI_DISABLE)
GUICtrlSetState($pdvdver_1, $GUI_ENABLE)
GUICtrlSetState($pdvdver_2, $GUI_DISABLE)
GUICtrlSetState($pdvdver_3, $GUI_ENABLE)
GUICtrlSetState($pdvdver_1, $GUI_CHECKED)
GUICtrlSetState($pdvdver_2, $GUI_UNCHECKED)
GUICtrlSetState($pdvdver_3, $GUI_UNCHECKED)
GUICtrlSetState($nero_1, $GUI_ENABLE)
GUICtrlSetState($nero_2, $GUI_DISABLE)
GUICtrlSetState($nero_3, $GUI_ENABLE)
GUICtrlSetState($nero_1, $GUI_CHECKED)
GUICtrlSetState($nero_2, $GUI_UNCHECKED)
GUICtrlSetState($nero_3, $GUI_UNCHECKED)Case GUICtrlRead($winver_2) = $GUI_CHECKED
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($design_standart, $GUI_UNCHECKED)
GUICtrlSetState($design_standart, $GUI_ENABLE)
GUICtrlSetState($design_klassisch, $GUI_UNCHECKED)
GUICtrlSetState($design_klassisch, $GUI_ENABLE)
GUICtrlSetState($pdvdver_1, $GUI_ENABLE)
GUICtrlSetState($pdvdver_2, $GUI_ENABLE)
GUICtrlSetState($pdvdver_3, $GUI_ENABLE)
GUICtrlSetState($pdvdver_1, $GUI_CHECKED)
GUICtrlSetState($pdvdver_2, $GUI_UNCHECKED)
GUICtrlSetState($pdvdver_3, $GUI_UNCHECKED)
GUICtrlSetState($nero_1, $GUI_ENABLE)
GUICtrlSetState($nero_2, $GUI_ENABLE)
GUICtrlSetState($nero_3, $GUI_ENABLE)
GUICtrlSetState($nero_1, $GUI_CHECKED)
GUICtrlSetState($nero_2, $GUI_UNCHECKED)
GUICtrlSetState($nero_3, $GUI_UNCHECKED)
Case GUICtrlRead($winver_3) = $GUI_CHECKED
GUICtrlSetState($design_standart, $GUI_UNCHECKED)
GUICtrlSetState($design_standart, $GUI_DISABLE)
GUICtrlSetState($design_klassisch, $GUI_UNCHECKED)
GUICtrlSetState($design_klassisch, $GUI_DISABLE)
GUICtrlSetState($pdvdver_1, $GUI_DISABLE)
GUICtrlSetState($pdvdver_2, $GUI_ENABLE)
GUICtrlSetState($pdvdver_3, $GUI_ENABLE)
GUICtrlSetState($pdvdver_1, $GUI_UNCHECKED)
GUICtrlSetState($pdvdver_2, $GUI_CHECKED)
GUICtrlSetState($pdvdver_3, $GUI_UNCHECKED)
GUICtrlSetState($nero_1, $GUI_DISABLE)
GUICtrlSetState($nero_2, $GUI_ENABLE)
GUICtrlSetState($nero_3, $GUI_ENABLE)
GUICtrlSetState($nero_1, $GUI_UNCHECKED)
GUICtrlSetState($nero_2, $GUI_CHECKED)
GUICtrlSetState($nero_3, $GUI_UNCHECKED)
EndSelect
GUICtrlSetState($UPDATE, $GUI_DISABLE)
GUICtrlSetState($INSTALL, $GUI_ENABLE)
If GUICtrlRead($winver_3) = $GUI_CHECKED Then
MsgBox(0,"WICHTIG!!", "Gehen Sie sicher das Sie den UAC deaktiviert haben.")
EndIf
EndFunc
; ende der Installationen Auswahl; Funktion zur auswahl der Updates
[/autoit] [autoit][/autoit] [autoit]
Func update_auswahl()
GUICtrlSetState($hotfix, $GUI_UNCHECKED)
GUICtrlSetState($hotfix, $GUI_DISABLE)
GUICtrlSetState($avast, $GUI_CHECKED)
GUICtrlSetState($spybot, $GUI_CHECKED)
GUICtrlSetState($ccleaner, $GUI_UNCHECKED)
GUICtrlSetState($ccleaner, $GUI_DISABLE)
GUICtrlSetState($acrobat, $GUI_UNCHECKED)
GUICtrlSetState($acrobat, $GUI_DISABLE)
GUICtrlSetState($web, $GUI_UNCHECKED)
GUICtrlSetState($web, $GUI_DISABLE)
GUICtrlSetState($winrar, $GUI_UNCHECKED)
GUICtrlSetState($winrar, $GUI_DISABLE)
GUICtrlSetState($firefox, $GUI_UNCHECKED)
GUICtrlSetState($firefox, $GUI_DISABLE)
GUICtrlSetState($gimp, $GUI_UNCHECKED)
GUICtrlSetState($gimp, $GUI_DISABLE)
GUICtrlSetState($pdvdver_1, $GUI_UNCHECKED)
GUICtrlSetState($pdvdver_2, $GUI_UNCHECKED)
GUICtrlSetState($pdvdver_3, $GUI_UNCHECKED)
GUICtrlSetState($pdvdver_1, $GUI_DISABLE)
GUICtrlSetState($pdvdver_2, $GUI_DISABLE)
GUICtrlSetState($pdvdver_3, $GUI_DISABLE)
GUICtrlSetState($nero_1, $GUI_UNCHECKED)
GUICtrlSetState($nero_2, $GUI_UNCHECKED)
GUICtrlSetState($nero_3, $GUI_UNCHECKED)
GUICtrlSetState($nero_1, $GUI_DISABLE)
GUICtrlSetState($nero_2, $GUI_DISABLE)
GUICtrlSetState($nero_3, $GUI_DISABLE)
GUICtrlSetState($UPDATE, $GUI_ENABLE)
GUICtrlSetState($INSTALL, $GUI_DISABLE)
If GUICtrlRead($winver_3) = $GUI_CHECKED Then
MsgBox(0,"WICHTIG!!", "Gehen Sie sicher das Sie den UAC deaktiviert haben.")
EndIf
MsgBox(0,"WICHTIG!!", "Gehen Sie sicher das der PC mit dem Internet Verbunden ist.")
EndFunc
; ende der Updaes Auswahl; Windows 2k/XP auswahl
[/autoit]
Func winver()
If GUICtrlRead($auswahl_2) = $GUI_CHECKED Then
update_auswahl()
Else
install_auswahl()
EndIf
EndFunc
; ende Windows 2k/XP Auswahlmfg
-
Ok hab das Problem selber gelöst.
Manchmal sieht man den Wald vor lauter Bäumen nicht.Ich habs so gelöst:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GuiConstants.au3>
#include <File.au3>
#include <array.au3>
#NoTrayIcon
#requireadmin$guiname = IniRead(@ScriptDir & "\config.ini", "main", "name", "philsign")
[/autoit] [autoit][/autoit] [autoit]
$guiwidth = IniRead(@ScriptDir & "\config.ini", "main", "width", "1680")
$guiheight = IniRead(@ScriptDir & "\config.ini", "main", "height", "1050")
$posguix = IniRead(@ScriptDir & "\config.ini", "main", "posguix", "0")
$posguiy = IniRead(@ScriptDir & "\config.ini", "main", "posguiy", "0")$anzbtn = IniRead(@ScriptDir & "\config.ini", "main", "anzahl-button", "4")
[/autoit] [autoit][/autoit] [autoit]
$guipic = IniRead(@ScriptDir & "\config.ini", "main", "pfad-hg", "")
$pospicx = IniRead(@ScriptDir & "\config.ini", "main", "pospicx", "0")
$pospicy = IniRead(@ScriptDir & "\config.ini", "main", "pospicy", "0")$background = GUICreate($guiname,$guiwidth,$guiheight,$posguix,$posguiy,$WS_POPUP,$WS_EX_TOOLWINDOW)
[/autoit] [autoit][/autoit] [autoit]
GuiCtrlCreatePic($guipic,$pospicx,$pospicy,$guiwidth,$guiheight)
GUICtrlSetState(-1,$GUI_DISABLE)Dim $btnname[$anzbtn], $btnposx[$anzbtn], $btnposy[$anzbtn], $btnwidth[$anzbtn], $btnheight[$anzbtn], $btnpic1[$anzbtn], $btnpic2[$anzbtn], $btnprog[$anzbtn], $btnprogdir[$anzbtn], $button[$anzbtn]
[/autoit] [autoit][/autoit] [autoit]$i = 0
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Do
$btnname[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "name", "")
$btnposx[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "posx", "")
$btnposy[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "posy", "")
$btnwidth[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "width", "")
$btnheight[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "height", "")
$btnpic1[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "pic1", "")
$btnpic2[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "pic2", "")
$btnprog[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "programm", "Meldung")
$btnprogdir[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "programmdir", "")
$i = $i + 1
Until $i = $anzbtn$i = 0
[/autoit] [autoit][/autoit] [autoit]
Do
$button[$i] = GUICtrlCreatePic($btnpic1[$i], $btnposx[$i], $btnposy[$i], $btnwidth[$i], $btnheight[$i])
$i = $i + 1
Until $i = $anzbtnGUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
EndSelect
$i = 0
Do
_PicButtonFromFile($background, $button[$i], $btnpic1[$i], $btnpic2[$i], $btnpic2[$i], $btnname[$i])
$i = $i + 1
Until $i = $anzbtn
WEndFunc _PicButtonFromFile($hWnd, $controlID, $defaultPic, $onHoverPic, $onClickPic, $Function = "")
[/autoit] [autoit][/autoit] [autoit]Local $resFunc
[/autoit] [autoit][/autoit] [autoit]
If $onClickPic = '' Or $onClickPic = -1 Then $onClickPic = $onHoverPic
$cMsg = GUIGetCursorInfo($hWnd)
If $cMsg[4] = $controlID Then
GUICtrlSetImage( $controlID, $onHoverPic)
$cMsg = GUIGetCursorInfo($hWnd)
While $cMsg[4] = $controlID
If GUIGetMsg() = $controlID Then
GUICtrlSetImage( $controlID, $onClickPic)
$resFunc = Call("_aufruf",$Function)
EndIf
Sleep(10)
$cMsg = GUIGetCursorInfo($hWnd)
WEnd
GUICtrlSetImage($controlID, $defaultPic)
Return $resFunc
EndIfEndFunc ;==>_PicButtonFromFile
[/autoit] [autoit][/autoit] [autoit]Func _aufruf($name)
[/autoit] [autoit][/autoit] [autoit]
$i = 0
$zahl = 0
Do
If $name = $btnname[$i] Then
$zahl = $i
ExitLoop
EndIf
$i = $i + 1
Until $i = $anzbtn
Select
Case $btnprog[$zahl] = 'EXIT'
Exit
Case $btnprog[$zahl] = ''
MsgBox(4096,"Meldung","Dieser Button wurde noch nicht belegt")
Case $btnprog[$zahl] <> ''
Run($btnprog[$zahl], $btnprogdir[$zahl])
EndSelectEndFunc
[/autoit]Und nochmals BIG THX an Greenhorn der mich erst soweit gebracht hat
-
Nochmals thx für deine Hilfe.
Nun hab ich aber ein anderes Problem ich möchte gerne diese Schaltflächen aus einer *.ini Datei in einer Schleife erstellen.
Das funktioniert auch bis auf das ich keine Funktionen in einer Schleife erstellen kann.
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GuiConstants.au3>
#include <File.au3>
#NoTrayIcon
#requireadmin$guiname = IniRead(@ScriptDir & "\config.ini", "main", "name", "philsign")
[/autoit] [autoit][/autoit] [autoit]
$guiwidth = IniRead(@ScriptDir & "\config.ini", "main", "width", "1680")
$guiheight = IniRead(@ScriptDir & "\config.ini", "main", "height", "1050")
$posguix = IniRead(@ScriptDir & "\config.ini", "main", "posguix", "0")
$posguiy = IniRead(@ScriptDir & "\config.ini", "main", "posguiy", "0")$anzbtn = IniRead(@ScriptDir & "\config.ini", "main", "anzahl-button", "4")
[/autoit] [autoit][/autoit] [autoit]
$guipic = IniRead(@ScriptDir & "\config.ini", "main", "pfad-hg", "")
$pospicx = IniRead(@ScriptDir & "\config.ini", "main", "pospicx", "0")
$pospicy = IniRead(@ScriptDir & "\config.ini", "main", "pospicy", "0")
$i = 0$background = GUICreate($guiname,$guiwidth,$guiheight,$posguix,$posguiy,$WS_POPUP,$WS_EX_TOOLWINDOW)
[/autoit] [autoit][/autoit] [autoit]
GuiCtrlCreatePic($guipic,$pospicx,$pospicy,$guiwidth,$guiheight)
GUICtrlSetState(-1,$GUI_DISABLE)Do
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$btnname[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "name", "")
$btnposx[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "posx", "")
$btnposy[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "posy", "")
$btnwidth[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "width", "")
$btnheight[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "height", "")
$btnpic1[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "pic1", "")
$btnpic2[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "pic2", "")
$btnprog[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "programm", "Meldung")
$btnprogdir[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "programmdir", "")
$i = $i + 1
Until $i = $anzbtn$i = 0
[/autoit] [autoit][/autoit] [autoit]
Do
$button[$i] = GUICtrlCreatePic($btnpic1[$i], $btnposx[$i], $btnposy[$i], $btnwidth[$i], $btnheight[$i])
$i = $i + 1
Until $i = $anzbtnGUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
EndSelect
$i = 0
Do
_PicButtonFromFile($background, $button[$i], $btnpic1[$i], $btnpic2[$i], $btnpic2[$i], $btnname[$i])
$i = $i + 1
Until $i = $anzbtn
WEndFunc _PicButtonFromFile($hWnd, $controlID, $defaultPic, $onHoverPic, $onClickPic, $Function = '')
[/autoit] [autoit][/autoit] [autoit]Local $resFunc
[/autoit] [autoit][/autoit] [autoit]
If $onClickPic = '' Or $onClickPic = -1 Then $onClickPic = $onHoverPic
$cMsg = GUIGetCursorInfo($hWnd)
If $cMsg[4] = $controlID Then
GUICtrlSetImage( $controlID, $onHoverPic)
$cMsg = GUIGetCursorInfo($hWnd)
While $cMsg[4] = $controlID
If GUIGetMsg() = $controlID Then
GUICtrlSetImage( $controlID, $onClickPic)
$resFunc = Call($Function)
EndIf
Sleep(10)
$cMsg = GUIGetCursorInfo($hWnd)
WEnd
GUICtrlSetImage($controlID, $defaultPic)
Return $resFunc
EndIfEndFunc ;==>_PicButtonFromFile
[/autoit] [autoit][/autoit] [autoit]$i = 0
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Do
[/autoit] [autoit][/autoit] [autoit]
Func _funktion()
Select
Case $btnprog[$i] = 'EXIT'
Exit
Case $btnprog[$i] = 'Meldung'
MsgBox(4096,"Meldung","Dieser Button wurde noch nicht belegt")
Case Else
Run($btnprog[$i], $btnprogdir[$i])
EndSelectEndFunc
[/autoit] [autoit][/autoit] [autoit]$i = $i + 1
[/autoit]
Until $i = $anzbtnund hier noch die *.ini datei
Spoiler anzeigen
[main]
name=philsign
width=1680
height=1050
posguix=0
posguiy=0pfad-hg=hg.jpg
pospicx=0
pospicy=0anzahl-button=4
[button0]
name=x
posx=1640
posy=0
width=40
height=40
pic1=x1.jpg
pic2=x2.jpg
programm=EXIT
programmdir=[button1]
name=tv
posx=1275
posy=85
width=205
height=109
pic1=tv1.jpg
pic2=tv2.jpg
programm=C:\Programme\WinTV\WinTV2K.EXE
programmdir=C:\Programme\WinTV\[button2]
name=musik
posx=1210
posy=481
width=352
height=84
pic1=musik1.jpg
pic2=musik2.jpg
programm=C:\Programme\Winamp\winamp.exe
programmdir=C:\Programme\Winamp\[button3]
name=video
posx=1202
posy=868
width=343
height=92
pic1=vid1.jpg
pic2=vid2.jpg
programm=movie.exe
programmdir=Ist das überhaupt möglich?
Bin für jede Hilfe dankbar.
thx
-
thx hast mir echt geholfen.
Bin jetzt erstmal am Quelltext verstehen aber ist dir aufgefallen das wenn du keine Parameter angibst sich die Bilder auch nicht anklicken lassen?
Siehe Beendentrotzdem
thx
-
Hy,
ich hab da ein Problem. Und zwar möchte ich auf einem Hintergrundbild mehrere Buttons erzeugen die auch Bilder sind. Wenn man mit der Maus drüber fährt soll sich das Bild ändern und man soll dieses Bild dann als Button benutzen können.
So hier erstmal das Script wie weit ich gekommen bin:
Spoiler anzeigen
[autoit][/autoit] [autoit][/autoit] [autoit]#include <GuiConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#NoTrayIcon
#requireadmin
#include <array.au3>$background = GUICreate("hintergrund",1024,768,0,0,$WS_POPUP,$WS_EX_TOOLWINDOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW, $background)
GuiCtrlCreatePic("pic.jpg",0,0,1024,768)Sleep(500)
[/autoit] [autoit][/autoit] [autoit]
$mainbutton1 = GUICreate("mainbutton1", 400, 200, 600,80,$WS_POPUP,$WS_EX_TOOLWINDOW & $WS_EX_TOPMOST)
GUISetState(@SW_HIDE, $mainbutton1)
$button1 = GUICtrlCreatePic(@ScriptDir & "\bilder\2.jpg",0,0,200,120)
GUICtrlSetState($button1, $GUI_ENABLE)
$mainbutton2 = GUICreate("mainbutton2", 400, 200, 600,80,$WS_POPUP,$WS_EX_TOOLWINDOW & $WS_EX_TOPMOST)
GUISetState(@SW_SHOW, $mainbutton2)
$button2 = GUICtrlCreatePic(@ScriptDir & "\bilder\1.jpg",0,0,200,120)
GUICtrlSetState($button2, $GUI_ENABLE)Opt("MouseCoordMode", 0)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]GuiSetState()
[/autoit] [autoit][/autoit] [autoit]while 1
[/autoit] [autoit][/autoit] [autoit]
$MSG = GUIGetMsg()
$a = GUIGetCursorInfo($mainbutton2)
Select
Case $MSG = $button2
MsgBox(4096,"meldung2","passt2")
Case $a[0] > 0 And $a[0] < 400 And $a[1] > 0 And $a[1] < 200
GUISetState(@SW_HIDE, $mainbutton2)
GUISetState(@SW_SHOW, $mainbutton1)
if $MSG = $button2 Then
MsgBox(4096,"meldung22","passt22")
EndIfCase Else
[/autoit] [autoit][/autoit] [autoit][/autoit]
GUISetState(@SW_HIDE, $mainbutton1)
GUISetState(@SW_SHOW, $mainbutton2)
EndSelect
If $MSG = $GUI_EVENT_CLOSE Then ExitLoop
sleep(500)
WEndDas Problem ist irgendwie Funktioniert das Script auch aber wenn ich drauf klicke erscheint die Meldung erst ca. 30 sec. später. Hat einer vll eine Lösung parat?
thx
-
thx
erstmalAlso ich hab den Code bei mir so Masterraven9 was isn des fürn Prog, was da bei dir noch im Hintergrund läuft...des Unattended Installer v0.7
Ist von mir um div. Installationen zu verkürzen.
-
Hy Leude
ich hät da ein Problem wollte mir ein Programm schreiben das die Installation der Hotfixes automatisch macht. Dies ist mir auch fast gelungen, das einzige Problem was ich nun habe ist das die Installation ab einem bestimmten Punkt neustarten will. An sich müsste man nur in einem Fenster auf einem Button klicken aber leider kann ich mit WinWait auch nicht auf das Fenster warten da es keinen Taskeintrag besitzt.
Soweit bin ich bis jetzt:
Spoiler anzeigen
[autoit]Run("WinFuture_XP.exe")
[/autoit] [autoit][/autoit] [autoit]Sleep(2000)
[/autoit] [autoit][/autoit] [autoit]WinWaitActive("WinFuture Update Pack für Windows XP SP2 (November 2007)")
[/autoit] [autoit][/autoit] [autoit]Sleep(2000)
[/autoit] [autoit][/autoit] [autoit]Send("{ENTER}")
[/autoit] [autoit][/autoit] [autoit]Sleep(2000)
[/autoit] [autoit][/autoit] [autoit]Send("{TAB}")
[/autoit] [autoit][/autoit] [autoit]Send("{TAB}")
[/autoit] [autoit][/autoit] [autoit]Send("{ENTER}")
[/autoit] [autoit][/autoit] [autoit]Sleep(2000)
[/autoit] [autoit][/autoit] [autoit]Send("{DOWN}")
[/autoit] [autoit][/autoit] [autoit]Send("{UP}")
[/autoit] [autoit][/autoit] [autoit]Send("{TAB}")
[/autoit] [autoit][/autoit] [autoit]Send("{ENTER}")
[/autoit] [autoit][/autoit] [autoit]WinWaitActive("Neustarten") --> Problem
[/autoit] [autoit][/autoit] [autoit]Send("{ENTER}")
[/autoit]Mein Problem ist denk ich mal auf dem Bild ersichtlich.
thx
-
Hy,
ich suche eine Möglichkeit wie ich eien Datei die Online Verfügbar ist in ein Array einzulesen.
habe schon "_FileReadToArray("http://www.google.de/index.html",$aRecords)" versucht aber das funktioniert nicht.
Gibt es überhaupt eien möglichkeit die Datei direkt einzulesen?
thx
-
Also ich habs jetzt mal mit AdlibEnable versucht versteh es aber nicht so ganz
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GuiConstants.au3>
GUICreate("test", 200, 150)$i = 59
[/autoit] [autoit][/autoit] [autoit]
$i2 = 29AdlibEnable("sec",1000)
[/autoit] [autoit][/autoit] [autoit]func sec()
[/autoit] [autoit][/autoit] [autoit]
IF $i = 0 Then
$i = 59
EndIf
$i = $i-1
EndFuncAdlibEnable("min",1800000)
[/autoit] [autoit][/autoit] [autoit]func min()
[/autoit] [autoit][/autoit] [autoit]
IF $i2 = 0 Then
$i2 = 29
EndIf
$i2 = $i2-1
EndFuncGUICtrlCreateLabel($i2, 10, 10)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel(":", 25, 10)
GUICtrlCreateLabel($i, 35, 10)GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit]
$MSG = GUIGetMsg()
If $MSG = $GUI_EVENT_CLOSE Then ExitLoop
WEnd -
Leider bringt mir dein Script nix weil die 30 min konstant bleiben.
Jetzt steh ich gerade vor mehreren Problemen z.B.
mit welchem Befehl kann ich das regeln das ich das Program auch während es runterzählt mit einem Klick auf "x" beenden kann oder
wie kann ich ein neues GUI Fenster erstellen in dem ich auch Anweisungen ausführen kann.thx
-
Also rechts Klick auf den Arbeitsplatz und "Verwalten" auswählen.
Im folgenden Fenster auf "Dienste und Anwendungen" klicken und dann nochmal auf "Dienste".
Dann gibts dort in der Liste 3 Dienste die mit "Media Center" anfangen.
Jetzt musst du nur noch den richtigen Dienst heraus suchen, indem du einen recht klick auf den Dienst machst und "Eigenschaften" wählst.
Im nächsten Fenster schaust du jetzt unter "Pfad zur EXE-Datei:" bei welchem Dienst diese "ehshell.exe" steht, wählst dort unter Starttyp "Deaktivert" aus und klickst dann noch auf "Beenden.
Fertig
PS: Wenn es der Media Center Planer Dienst ist wird nach dem beenden des Dienstes die Media Center oberfläche nicht mehr 100%ig funktionieren.
Dafür musst du dann den Dienst wieder aktivieren.
-
Also die "ehshell.exe" kommt von einem Dienst von Media Center.
An sich sollte es reichen wenn man den entsprechenden Dienst deaktiviert.