Hallo, ich möchte ein Programm vorstellen wo ihr die Dreamscene von Microsoft installieren könnt und deinstallieren .
ich beantworte aber keine Fragen und so Sachen, ich habe Aphasie durch Schlaganfall!
Über Änderungsvorschläge würde ich mich schon freuen!
AutoIt: Dreamscene Installer.au3
#NoTrayIcon
#RequireAdmin
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=D:\Meine Apps\tools\gfx\DreamScene.ico
#AutoIt3Wrapper_Outfile=Dreamscene Installer.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=Dreamscene Installer
#AutoIt3Wrapper_Res_Description=Dreamscene Installer
#AutoIt3Wrapper_Res_Fileversion=1.0.0.1
#AutoIt3Wrapper_Res_LegalCopyright=© ICE Tec. All rights reserved.
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_Field=CompanyName|ICE Tec
#AutoIt3Wrapper_Res_Field=OriginalFileName|Dreamscene Installer.exe
#AutoIt3Wrapper_Res_Field=ProductName|Windows Dreamscene Installer
#AutoIt3Wrapper_Res_Field=ProductVersion|1.0.0.1
#AutoIt3Wrapper_Run_Tidy=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Process.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEX.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
Global $workpath = @UserProfileDir & "\AppData\Local\Temp\Dreamscene"
Global $DreamScene = @WindowsDir & "\Web\Windows DreamScene"
Global $gui, $Button_1, $Button_2, $msg
$gui = GUICreate("Dreamscene Installer", 170, 80, -1, -1, -1, BitOR($WS_EX_APPWINDOW, $WS_EX_TOOLWINDOW))
$Button_1 = GUICtrlCreateButton("Installieren", 35, 10, 100, 20)
GUICtrlSetFont($Button_1, 9, 500)
$Button_2 = GUICtrlCreateButton("Deinstallation", 35, 32, 100, 20)
GUICtrlSetFont($Button_2, 9, 500)
$Button_3 = GUICtrlCreateButton("Info", 60, 54, 50, 20)
GUISetBkColor(0xFFAC01, $gui)
GUICtrlSetFont($Button_3, 9, 500)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1
_Installieren()
Case $msg = $Button_2
_Deinstallation()
Case $msg = $Button_3
MsgBox(8256, "Dreamscene Installer", StringReplace(" Why go you to High School, when you can go High to School _ _ _ Dreamscene Installer v1.0.0.1 _ _ Copyrights: © ICE Technologie. All rights reserved. _ Greetings from GERMANY (Singen am Hohentwiel)", "_", @CR))
EndSelect
WEnd
Func _Installieren()
_RunDos("TASKKILL /F /IM Explorer.exe")
DirCreate($workpath)
FileInstall("D:\Meine Apps\tools\DreamScene_i.reg", $workpath & "\DreamScene_i.reg", 1)
ShellExecuteWait("regedit.exe", "/s " & $workpath & "\DreamScene_i.reg", @WindowsDir, "", @SW_HIDE)
DirRemove($workpath, 1)
DirCreate($DreamScene)
FileInstall("D:\Meine Apps\tools\DreamScene.dll", @SystemDir & "\DreamScene.dll", 1)
FileInstall("D:\Meine Apps\tools\DreamScene.dll.mui", @SystemDir & "\en-US\DreamScene.dll.mui", 1)
_RunDos("START Explorer.exe")
WinActivate("Dreamscene Installer", "")
MsgBox(64, "Dreamscene Installer", " Dreamscene wurde" & @CRLF & " installiiert", 10)
EndFunc ;==>_Installieren
Func _Deinstallation()
_RunDos("TASKKILL /F /IM Explorer.exe")
DirCreate($workpath)
FileInstall("D:\Meine Apps\tools\DreamScene_d.reg", $workpath & "\DreamScene_d.reg", 1)
ShellExecuteWait("regedit.exe", "/s " & $workpath & "\DreamScene_d.reg", @WindowsDir, "", @SW_HIDE)
DirRemove($workpath, 1)
FileDelete(@SystemDir & "\DreamScene.dll")
FileDelete(@SystemDir & "\en-US\DreamScene.dll.mui")
DirRemove($DreamScene, 1)
_RunDos("START Explorer.exe")
WinActivate("Dreamscene Installer", "")
MsgBox(64, "Dreamscene Deinstallieren", " Dreamscene wurde" & @CRLF & " deinstalliert", 10)
EndFunc ;==>_Deinstallation
Alles anzeigen