Hi,
ich habe ein GUI-Maske entworfen, bei der
1.) einmal einzelne Funktionen gestartet werden können und
2.) auf der anderen Seite alle nacheinander in einer bestimmten Reighenfolge gestartet werden sollen. (Funktionen sind schon vorhanden)
Wie bekomme ich eine komfortable Lösung für 2.) ?
Ich stelle es mir so vor, das in einer definierten "func" die einzelnen Funktionen nacheinander gestartet werden können. --> Button "Installation"
Meine jetzige Lösung sieht vor, alles noch einmal aus den einzelnen Funktionen in die Install-Funktion hineinzukopieren. Leider zuviel an Text und eben nicht schön.
Hier ein Auszug aus meinem Script:
[autoit]
#include <GUIConstants.au3>
Opt("GUIOnEventMode",1)
#Region ### START Koda GUI section ### Form=d:\download\koda 1.6.0.2\forms\grafik.kxf
GUICreate("Admin-Einstellungen", 585, 466, 217, 127)
GUISetBkColor(0x656C81)
$Button1 = GUICtrlCreateButton("IE-Reiter ausblenden", 350, 25, 220, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent($Button1,"Ausblenden")
$Button2 = GUICtrlCreateButton("IE-Reiter einblenden", 350, 55, 220, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent($Button2,"Einblenden")
$Button3 = GUICtrlCreateButton("Recent Docs ausschalten", 350, 85, 220, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent($Button3,"RecentOf")
$Button4 = GUICtrlCreateButton("Proxy auf Arcor ändern", 350, 115, 220, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent($Button4,"Proxy")
$Button5 = GUICtrlCreateButton("Recent Docs einschalten", 350, 145, 220, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent($Button5,"RecentOn")
$Button6 = GUICtrlCreateButton("Admin freischalten", 350, 175, 220, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent($Button6,"Admin")
$Button7 = GUICtrlCreateButton("Senden an", 350, 205, 220, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent($Button7,"Senden")
$Button8 = GUICtrlCreateButton("SUS-Service", 350, 235, 220, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent($Button8,"SUS_Service")
$Button98 = GUICtrlCreateButton("Installation ", 15, 56, 220, 81, 0)
GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent($Button98,"Installation")
$Button99 = GUICtrlCreateButton("EXIT", 15, 385, 220, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent($Button99,"OnExit")
GUISetOnEvent($GUI_EVENT_CLOSE,"OnExit")
[/autoit][autoit][/autoit][autoit]GUISetState() ; display the GUI
[/autoit][autoit][/autoit][autoit]#EndRegion ### END Koda GUI section ###
[/autoit][autoit][/autoit][autoit][/autoit][autoit]While 1
Sleep (1000)
WEnd
;--------------- Functions ---------------
Func Ausblenden();blendet die Reiter des IE aus (Erweitert, Programme, Verbindungen)
WinMinimizeAll()
; Set the RunAs parameters to use local adminstrator account
; Declare all variables used
Dim $Username, $Password
; Initialization of the variables
$Username = "Adminsitrator"
$Password = ""
; Set the RunAs parameters to use local adminstrator account
RunAsSet($Username, @Computername, $Password)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main","Start Page","REG_SZ","http://www.club-vaio.com/de/")
RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","ConnectionsTab","REG_DWORD","1")
RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","ProgramsTab","REG_DWORD","1")
RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","AdvancedTab","REG_DWORD","1")
RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","HomePage","REG_DWORD","1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","MigrateProxy","REG_DWORD","1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","EnableHttp1_1","REG_DWORD","1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyEnable","REG_DWORD","1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyHttp1.1","REG_DWORD","1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ","10.14.5.131:8000")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyOverride","REG_SZ","*.db.de;172.*;localhost;<local>")
MsgBox(64, "Installation", "Es werden die Reiter Verbindungen, Erweitert, Programme ausgeblendet.")
EndFunc
Func Einblenden();blendet die Reiter des IE wieder ein
WinMinimizeAll()
; Set the RunAs parameters to use local adminstrator account
; Declare all variables used
Dim $Username, $Password
; Initialization of the variables
$Username = "Administrator"
$Password = ""
; Set the RunAs parameters to use local adminstrator account
RunAsSet($Username, @Computername, $Password)
RegDelete("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","ConnectionsTab")
RegDelete("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","ProgramsTab")
RegDelete("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","AdvancedTab")
RegDelete("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","HomePage")
MsgBox(64, "Installation", "Es werden nun wieder alle Reiter eingeblendet.")
EndFunc
Func RecentOf();schaltet den Ordner "Dokumente" im Startmenü aus
WinMinimizeAll()
; Set the RunAs parameters to use local adminstrator account
; Declare all variables used
Dim $Username, $Password
; Initialization of the variables
$Username = "Administrator"
$Password = ""
; Set the RunAs parameters to use local adminstrator account
RunAsSet($Username, @Computername, $Password)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDriveTypeAutoRun", "REG_BINARY", "91000000")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "ClearRecentDocsOnExit", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRecentDocsMenu", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRecentDocsHistory", "REG_DWORD", "1")
MsgBox(64, "Installation", "Es wurden alle Daten erfolgreich geändert.")
EndFunc
Func Proxy();schaltet den Proxy auf Arcor um
WinMinimizeAll()
; Set the RunAs parameters to use local adminstrator account
; Declare all variables used
Dim $Username, $Password
; Initialization of the variables
$Username = "Administrator"
$Password = ""
; Set the RunAs parameters to use local adminstrator account
RunAsSet($Username, @Computername, $Password)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","MigrateProxy","REG_DWORD","1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","EnableHttp1_1","REG_DWORD","1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyEnable","REG_DWORD","1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyHttp1.1","REG_DWORD","1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ","wwwproxy.arcor.db.de:8000")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyOverride","REG_SZ","*.db.de;172.*;localhost;<local>")
MsgBox(64, "Installation", "Es wurde der Proxy - Arcor - erfolgreich geändert.")
EndFunc
Func RecentOn();schaltet den Ordner "Dokumente" im Startmenü wieder frei
WinMinimizeAll()
; Set the RunAs parameters to use local adminstrator account
; Declare all variables used
Dim $Username, $Password
; Initialization of the variables
$Username = "Administrator"
$Password = ""
; Set the RunAs parameters to use local adminstrator account
RunAsSet($Username, @Computername, $Password)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRecentDocsMenu", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRecentDocsHistory", "REG_DWORD", "0")
MsgBox(64, "Installation", "Es wurden alle Daten erfolgreich geändert.")
EndFunc
Func Admin();schaltet den Admin im Startmenü frei
WinMinimizeAll()
; Set the RunAs parameters to use local adminstrator account
; Declare all variables used
Dim $Username, $Password
; Initialization of the variables
$Username = "Administrator"
$Password = ""
; Set the RunAs parameters to use local adminstrator account
RunAsSet($Username, @Computername, $Password)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList", "Administrator", "REG_DWORD", "1")
MsgBox(64, "Installation", "Die Anmeldung des Administrator wurde erfolgreich geändert.")
EndFunc