Beiträge von ICE Tec 82

ICE Tec 82

Hallo, ich möchte ein Programm vorstellen! Schredder.exe ist ein Programm wo ihr Dateien und Ordner sicher löschen könnt. Die Dateien und Ordner werden uberschieben und dann geloscht.

Ich beantworte aber keine Fragen und so Sachen, ich habe Aphasie durch Schlaganfall!
Über Änderungsvorschläge würde ich mich schon freuen!

AutoIt: Schredder.au3

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=D:\@HomeDrive\Meine Apps\tools\gfx\Schredder.ico
#AutoIt3Wrapper_Outfile=Schredder.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Res_Comment=Schredder
#AutoIt3Wrapper_Res_Description=Schredder
#AutoIt3Wrapper_Res_Fileversion=1.1.0.3
#AutoIt3Wrapper_Res_LegalCopyright=© ICE Tec. All rights reserved.
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_Field=CompanyName|ICE Tec
#AutoIt3Wrapper_Res_Field=OriginalFileName|Schredder.exe
#AutoIt3Wrapper_Res_Field=ProductName|Schredder
#AutoIt3Wrapper_Res_Field=ProductVersion|1.1.0.3
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****


#include <Array.au3>
#include <Constants.au3>
#include <_SecureDelete.au3>
#include <GUIConstants.au3>
#include "ModernMenuRaw.au3" ; Only unknown constants are declared here


Opt("TrayMenuMode", 1)


Global $option, $aboutitem, $exititem, $i, $autorun, $SecureDirectoryDelete, $result, $var, $msg, $SecureFileDelete
Global $SicherLeochen, $fDelete, $DoD_E_SicherLeochen, $DoD_E_SecureDirectoryDelete, $DoD_E_SecureFileDelete
Global Const $array[7] = [0x55, 0xAA, 0x92, 0x49, 0x24, 0xBB, "SicherGelöscht"]
Global Const $EnglischArray[7] = [0x55, 0xAA, 0x92, 0x49, 0x24, 0xBB, "SecureDeleted"]
Global Const $path = @ScriptFullPath
Global Const $reg1 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Run"
Global Const $reg2 = "Schredder"
Global Const $OSLang = StringInStr("0407 0807 0c07 1007 1407", @OSLang)


; *** Create the tray icon ***
$nTrayIcon1 = _TrayIconCreate("Schredder", @ScriptDir & "\Schredder.exe", 99)
_TrayIconSetClick(-1, 2)
; *** Create the tray context menu ***
$nTrayMenu1 = _TrayCreateContextMenu() ; is the same like _TrayCreateContextMenu(-1) or _TrayCreateContextMenu($nTrayIcon1)
$nSideItem3 = _CreateSideMenu($nTrayMenu1)
$aboutitem = _TrayCreateItem("Schredder") ; is the same like _TrayCreateMenu("Menu", -1) or _TrayCreateMenu("Menu", $nTrayMenu1)
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0)
$option = _TrayCreateMenu("Optionen")
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0) ; Force changing to ownerdrawn sometimes needed, i.e. in mixed menu
$DoD_E_SicherLeochen = _TrayCreateMenu("Mit DoD E überschreiben")
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0)
$SicherLeochen = _TrayCreateMenu("7 mal überschreiben")
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0)
$TrayExit = _TrayCreateItem("Beenden")
; *** Sub menu items ***
$TrayAdvanced = _TrayCreateItem("Mit Windows starten", $option, -1, 0)
$DoD_E_SecureDirectoryDelete = _TrayCreateItem("Ordner sicher Löschen", $DoD_E_SicherLeochen)
_TrayCreateItem("", $DoD_E_SicherLeochen)
_TrayItemSetIcon(-1, "", 0)
$DoD_E_SecureFileDelete = _TrayCreateItem("Datei sicher Löschen", $DoD_E_SicherLeochen)
$SecureDirectoryDelete = _TrayCreateItem("Ordner sicher Löschen", $SicherLeochen)
_TrayCreateItem("", $SicherLeochen)
_TrayItemSetIcon(-1, "", 0)
$SecureFileDelete = _TrayCreateItem("Datei sicher Löschen", $SicherLeochen)
autostartcheck()
SetBlueTrayColors()
$arDrives = DriveGetDrive("FIXED")
; icon
_TrayItemSetIcon($aboutitem, "shell32.dll", 1001)
_TrayItemSetIcon($option, "shell32.dll", 177)
_TrayItemSetIcon($TrayAdvanced, "", 0)
_TrayItemSetIcon($DoD_E_SicherLeochen, @ScriptDir & "\Schredder.exe", 99)
_TrayItemSetIcon($DoD_E_SecureDirectoryDelete, "shell32.dll", 4)
_TrayItemSetIcon($DoD_E_SecureFileDelete, "shell32.dll", 185)
_TrayItemSetIcon($SicherLeochen, @ScriptDir & "\Schredder.exe", 99)
_TrayItemSetIcon($SecureDirectoryDelete, "shell32.dll", 4)
_TrayItemSetIcon($SecureFileDelete, "shell32.dll", 185)
_TrayItemSetIcon($TrayExit, "shell32.dll", -28)
_TrayIconSetState() ; Show the tray icon


While 1
	$msg = GUIGetMsg()
	Switch $msg
		Case $aboutitem
			GUICtrlSetState($aboutitem, $GUI_UNCHECKED)
			If $OSLang = 1 Then ;GERMAN
				MsgBox(8256, "Schredder", StringReplace("           Why go you to High School, when you can go High to School _ _ _                                               Schredder v1.1.0.3 _ _                           Mit DoD E überschreiben oder 7 mal mit _                  0x55, 0xAA, 0x92, 0x49, 0x24, 0xBB, ´SicherGelöscht´ _                                                 überschreiben! _ _                    Copyrights: © ICE Technologie. All rights reserved. _                     Greetings from GERMANY (Singen am Hohentwiel)", "_", @CR))
			ElseIf $OSLang < 1 Then ;Englisch
				MsgBox(8256, "Shredder", StringReplace("           Why go you to High School, when you can go High to School _ _ _                                               Shredder v1.1.0.3 _ _                       Overwrite with DoD E or overwrite 7 times with _                     0x55, 0xAA, 0x92, 0x49, 0x24, 0xBB, 'SecureDeleted` _ _                    Copyrights: © ICE Technologie. All rights reserved. _                     Greetings from GERMANY (Singen am Hohentwiel)", "_", @CR))
			EndIf
		Case $TrayAdvanced
			If BitAND(GUICtrlRead($TrayAdvanced), $GUI_UNCHECKED) Then
				GUICtrlSetState($TrayAdvanced, $GUI_CHECKED)
				autostart()
			Else
				GUICtrlSetState($TrayAdvanced, $GUI_UNCHECKED)
				autostart()
			EndIf
		Case $DoD_E_SecureDirectoryDelete
			GUICtrlSetState($DoD_E_SecureDirectoryDelete, $GUI_UNCHECKED)
			DoD_E_OrdnersicherLeochen()
		Case $DoD_E_SecureFileDelete
			GUICtrlSetState($DoD_E_SecureFileDelete, $GUI_UNCHECKED)
			DoD_E_DateisicherLeochen()
		Case $SecureDirectoryDelete
			GUICtrlSetState($SecureDirectoryDelete, $GUI_UNCHECKED)
			OrdnersicherLeochen()
		Case $SecureFileDelete
			GUICtrlSetState($SecureFileDelete, $GUI_UNCHECKED)
			DateisicherLeochen()
		Case $TrayExit
			ExitLoop
	EndSwitch
WEnd


_TrayIconDelete($nTrayIcon1)
Exit


Func autostartcheck()
	RegRead($reg1, $reg2)
	If @error Then
		GUICtrlSetState($TrayAdvanced, $GUI_UNCHECKED)
	Else
		GUICtrlSetState($TrayAdvanced, $GUI_CHECKED)
	EndIf
EndFunc   ;==>autostartcheck


Func SetBlueTrayColors()
	_SetTrayBkColor(0xFFD8C0)
	_SetTrayIconBkColor(0xEE8877)
	_SetTrayIconBkGrdColor(0x703330)
	_SetTraySelectBkColor(0x662222)
	_SetTraySelectRectColor(0x4477AA)
	_SetTraySelectTextColor(0x66FFFF)
	_SetTrayTextColor(0x000000)
EndFunc   ;==>SetBlueTrayColors


Func autostart()
	RegRead($reg1, $reg2)
	If @error Then
		RegWrite($reg1, $reg2, "REG_SZ", $path)
	Else
		RegDelete($reg1, $reg2)
	EndIf
EndFunc   ;==>autostart


Func DoD_E_OrdnersicherLeochen()
	Local $sDir = FileSelectFolder("Ordner sicher Löchen", "", 2)
	If @error Then
		MsgBox(48, "Schredder", @CRLF & "        Keine Ordner ausgewählt", 10)
	Else
		_SecureDirectoryDelete($sDir)
		If @error = 1 Then
			MsgBox(16, "Schredder", $sDir & " existiert nicht", 10)
		ElseIf @error = 2 Then
			MsgBox(16, "Schredder", $sDir & " ist kein Verzeichnis", 10)
		ElseIf @error = 3 Then
			MsgBox(16, "Schredder", "Fehler beim Entfernen des Verzeichnisses", 10)
		ElseIf @error = 4 Then
			MsgBox(16, "Schredder", "Fehler beim Benutzer-Array", 10)
		ElseIf @error = 5 Then
			MsgBox(16, "Schredder", "Fehler beim Zuweisen von Puffern", 10)
		ElseIf @error = 6 Then
			MsgBox(16, "Schredder", "Errors were encountered, but " & $fDelete & " was False for top level dir", 10)
		Else
			MsgBox(64, "Schredder", @CRLF & "     Fertig", 10)
		EndIf
	EndIf
EndFunc   ;==>DoD_E_OrdnersicherLeochen


Func DoD_E_DateisicherLeochen()
	Local $sFile = FileOpenDialog("Datei sicher Löchen", @DesktopDir & "\", "Alle Dateien (*.*)", 1 + 2)
	If @error Then
		MsgBox(48, "Schredder", @CRLF & "        Keine Datei ausgewählt", 10)
	Else
		_SecureFileDelete($sFile)
		If @error = 1 Then
			MsgBox(16, "Schredder", $sFile & " existiert nicht", 10)
		ElseIf @error = 2 Then
			MsgBox(16, "Schredder", $sFile & " ist kein Verzeichnis", 10)
		ElseIf @error = 3 Then
			MsgBox(16, "Schredder", "Fehler beim Entfernen der Datei", 10)
		ElseIf @error = 4 Then
			MsgBox(16, "Schredder", "Fehler beim Benutzer-Array", 10)
		ElseIf @error = 5 Then
			MsgBox(16, "Schredder", "Fehler beim Zuweisen von Puffern", 10)
		ElseIf @error = 6 Then
			MsgBox(16, "Schredder", "Errors were encountered, but " & $fDelete & " was False for top level dir", 10)
		Else
			MsgBox(64, "Schredder", @CRLF & "     Fertig", 10)
		EndIf
	EndIf
EndFunc   ;==>DoD_E_DateisicherLeochen


Func OrdnersicherLeochen()
	Local $sDir = FileSelectFolder("Ordner sicher Löchen", "", 2)
	If @error Then
		MsgBox(48, "Schredder", @CRLF & "        Keine Ordner ausgewählt", 10)
	Else
		_SecureDirectoryDelete($sDir, $array)
		If @error = 1 Then
			MsgBox(16, "Schredder", $sDir & " existiert nicht", 10)
		ElseIf @error = 2 Then
			MsgBox(16, "Schredder", $sDir & " ist kein Verzeichnis", 10)
		ElseIf @error = 3 Then
			MsgBox(16, "Schredder", "Fehler beim Entfernen des Verzeichnisses", 10)
		ElseIf @error = 4 Then
			MsgBox(16, "Schredder", "Fehler beim Benutzer-Array", 10)
		ElseIf @error = 5 Then
			MsgBox(16, "Schredder", "Fehler beim Zuweisen von Puffern", 10)
		ElseIf @error = 6 Then
			MsgBox(16, "Schredder", "Errors were encountered, but " & $fDelete & " was False for top level dir", 10)
		Else
			MsgBox(64, "Schredder", @CRLF & "     Fertig", 10)
		EndIf
	EndIf
EndFunc   ;==>OrdnersicherLeochen


Func DateisicherLeochen()
	Local $sFile = FileOpenDialog("Datei sicher Löchen", @DesktopDir & "\", "Alle Dateien (*.*)", 1 + 2)
	If @error Then
		MsgBox(48, "Schredder", @CRLF & "        Keine Datei ausgewählt", 10)
	Else
		_SecureFileDelete($sFile, $array)
		If @error = 1 Then
			MsgBox(16, "Schredder", $sFile & " existiert nicht", 10)
		ElseIf @error = 2 Then
			MsgBox(16, "Schredder", $sFile & " ist kein Verzeichnis", 10)
		ElseIf @error = 3 Then
			MsgBox(16, "Schredder", "Fehler beim Entfernen der Datei", 10)
		ElseIf @error = 4 Then
			MsgBox(16, "Schredder", "Fehler beim Benutzer-Array", 10)
		ElseIf @error = 5 Then
			MsgBox(16, "Schredder", "Fehler beim Zuweisen von Puffern", 10)
		ElseIf @error = 6 Then
			MsgBox(16, "Schredder", "Errors were encountered, but " & $fDelete & " was False for top level dir", 10)
		Else
			MsgBox(64, "Schredder", @CRLF & "     Fertig", 10)
		EndIf
	EndIf
EndFunc   ;==>DateisicherLeochen

Alles anzeigen

ICE Tec 82

danke Bitnugger über Änderung!

Zitat von Bitnugger

Viele Dinge erledigst du wie ein "Profi" mit DllCall... obwohl du noch mit den Grundlagen zu kämpfen hast.

das stimmt, ich habe mir das programmieren selber beigebracht. bevor ich in den knast kamm habe ich Speed (Amphétamine) konsumiert. Auf Amphétamine hast du ausdauer

ICE Tec 82

ich habe Aphasie durch Schlaganfall! geht ein bissen länger bei mir!
ich hoffe du hast auch mal einen Schlaganfall mit Aphasie, dann schauen wir mal was du noch auf dir reihe kriegst.

ICE Tec 82

Hallo, ich möchte ein Programm vorstellen! WMPSC 2 res.exe ist ein Programm wo ihr den Style vom Windows Media Player ändern könnt.

[Blockierte Grafik: http://www.bilder-upload.eu/thumb/134095-1498651747.png]

[Blockierte Grafik: http://www.bilder-upload.eu/thumb/adb0be-1498651763.png]

[Blockierte Grafik: http://www.bilder-upload.eu/thumb/6ba567-1498651774.png]

Ich beantworte aber keine Fragen und so Sachen, ich habe Aphasie durch Schlaganfall!
Über Änderungsvorschläge würde ich mich schon freuen!

AutoIt: WMPSC 2.au3

#NoTrayIcon
#RequireAdmin
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=D:\Meine Apps\tools\gfx\71.ico
#AutoIt3Wrapper_Outfile=WMPSC 2 res.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=Windows Media Player Style Changer mit res Datei
#AutoIt3Wrapper_Res_Description=Windows Media Player Style Changer mit res Datei
#AutoIt3Wrapper_Res_Fileversion=1.0.0.2
#AutoIt3Wrapper_Res_LegalCopyright=© ICE Tec. All rights reserved.
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_Field=CompanyName|ICE Tec
#AutoIt3Wrapper_Res_Field=OriginalFileName|WMPSC 2 res.exe
#AutoIt3Wrapper_Res_Field=ProductName|WMPSC
#AutoIt3Wrapper_Res_Field=ProductVersion|1.0.0.2
#AutoIt3Wrapper_Run_Tidy=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****


#include <RansidTechno.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEX.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>




Global $workpath = @UserProfileDir & "\AppData\Local\Temp\WMPSC"
Global $respath = @UserProfileDir & "\AppData\Local\Temp\WMPSC\res\"
Global $DLLpath = @SystemDir & "\wmploc.DLL"
Global $DLLpath2 = @UserProfileDir & "\AppData\Local\Temp\wmploc.DLL"
Global $resDLL = @UserProfileDir & "\AppData\Local\Temp\res.DLL"
Global $backup = @UserProfileDir & "\AppData\Local\WMPSC\wmploc.res"
Global $backuppath = @UserProfileDir & "\AppData\Local\WMPSC"


Global $gui, $button_1, $button_2, $button_3, $button_4, $msg
$gui = GUICreate("WMPSC", 270, 140, -1, -1, -1, BitOR($WS_EX_APPWINDOW, $WS_EX_TOOLWINDOW))
GUISetBkColor(0xFFAC01, $gui)
$label = GUICtrlCreateLabel("Wechsle den Style des WMP 12", 36, 10, 200, 15)
GUICtrlSetFont($label, 10, 700)
$button_1 = GUICtrlCreateButton("Installiere WMP 12 Theme", 20, 40, 230, 30)
GUICtrlSetFont($button_1, 9, 500)
$button_2 = GUICtrlCreateButton("WMP 12 Theme zurücksetzen", 20, 72, 230, 30)
GUICtrlSetFont($button_2, 9, 500)
$button_3 = GUICtrlCreateButton("Musik aus", 105, 110, 60, 20)
$button_4 = GUICtrlCreateButton("Musik an", 105, 110, 60, 20)
GUICtrlSetState($button_4, $GUI_HIDE)
GUISetState()


While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			_Exit()
			ExitLoop
		Case $msg = $button_1
			GUISetState(@SW_HIDE, $gui)
			_patch()
		Case $msg = $button_2
			GUISetState(@SW_HIDE, $gui)
			_restore()
		Case $msg = $button_3
			_StopSound()
			GUICtrlSetState($button_3, $GUI_HIDE)
			GUICtrlSetState($button_4, $GUI_SHOW)
		Case $msg = $button_4
			_PlaySound()
			GUICtrlSetState($button_4, $GUI_HIDE)
			GUICtrlSetState($button_3, $GUI_SHOW)
	EndSelect
WEnd


Func _patch()
	$_eWarten = GUICreate("Bitte warten Sie einem Moment", 363, 113, -1, -1, $WS_DLGFRAME)
	GUISetBkColor(0xFFFFFF)
	$_eProgress = GUICtrlCreateProgress(10, 48, 345, 25, $PBS_MARQUEE)
	GUICtrlCreateLabel("Bitte warten Sie, wmploc.DLL wird bearbeitet...", 55, 8, 265, 17)
	GUICtrlCreateLabel("Dies kann einige Zeit in Anspruch nehmen.", 55, 24, 300, 17)
	GUISetState(@SW_SHOW, $_eWarten)
	_Marquee($_eProgress, 1, 16)


	$hMenu = DllCall("user32.dll", "hwnd", "GetSystemMenu", "hwnd", $_eWarten, "int", 0)
	DllCall("user32.dll", "hwnd", "EnableMenuItem", "hwnd", $hMenu[0], "int", 0xF060, "int", 0x1)


	DirCreate($respath)
	FileInstall("D:\Meine Apps\tools\ResHacker.exe", $workpath & "\ResHacker.exe")
	FileInstall("D:\Meine Apps\tools\ResEdit.exe", $workpath & "\ResEdit.exe")
	FileInstall("D:\Meine Apps\tools\Agent_Orange.res", $respath & "Agent_Orange.res", 1)
	RunWait('takeown.exe /f ' & $DLLpath, @SystemDir, @SW_HIDE)
	RunWait('icacls.exe ' & $DLLpath & ' /grant *S-1-5-32-544:F /q', @SystemDir, @SW_HIDE)
	FileCopy($DLLpath, $DLLpath2)


	If Not FileExists($backup) Then
		DirCreate($backuppath)
		RunWait($workpath & '\ResHacker.exe -extract ' & $DLLpath2 & ', ' & $backup & ',,,', $workpath, @SW_HIDE)
		RunWait($workpath & '\ResHacker.exe -delete ' & $DLLpath2 & ', ' & $resDLL & ', AVI,,', $workpath, @SW_HIDE)
		RunWait($workpath & '\ResHacker.exe -delete ' & $resDLL & ', ' & $resDLL & ', JPGTYPE,,', $workpath, @SW_HIDE)
		RunWait($workpath & '\ResHacker.exe -delete ' & $resDLL & ', ' & $resDLL & ', MUI,,', $workpath, @SW_HIDE)
		RunWait($workpath & '\ResHacker.exe -delete ' & $resDLL & ', ' & $resDLL & ', ICONGROUP,,', $workpath, @SW_HIDE)
		RunWait($workpath & '\ResHacker.exe -delete ' & $resDLL & ', ' & $resDLL & ', XML,,', $workpath, @SW_HIDE)
		RunWait($workpath & '\ResHacker.exe -delete ' & $resDLL & ', ' & $resDLL & ', XMLWRITE,,', $workpath, @SW_HIDE)
		RunWait($workpath & '\ResHacker.exe -delete ' & $resDLL & ', ' & $resDLL & ', CURSORGROUP,,', $workpath, @SW_HIDE)
		RunWait($workpath & '\ResHacker.exe -delete ' & $resDLL & ', ' & $resDLL & ', VERSIONINFO,,', $workpath, @SW_HIDE)
		RunWait($workpath & '\ResEdit.exe -convert "' & $resDLL & '" "' & $backup & '"', $workpath, @SW_HIDE) ; make res
		FileDelete($resDLL)
	EndIf


	RunWait($workpath & '\ResHacker.exe -modify ' & $DLLpath2 & ', ' & $DLLpath2 & ', ' & $respath & "Agent_Orange.res" & ',,,', $workpath, @SW_HIDE)


	RegWrite("HKLM\System\CurrentControlSet\Control\Session Manager", "PendingFileRenameOperations", "REG_MULTI_SZ", "\??\" & $DLLpath2 & @LF & "!\??\" & $DLLpath)


	DirRemove($workpath, 1)
	GUIDelete($_eWarten)
	Local $iMsgBoxAnswer
	$iMsgBoxAnswer = MsgBox(68, "WMP 12 Theme Changer", "               WMP Theme geändert!" & @CRLF & "Muss PC Neu starten. Jetz PC Neu starten?")
	Select
		Case $iMsgBoxAnswer = 6 ;Yes
			_Exit()
			Shutdown(6)
			Exit
		Case $iMsgBoxAnswer = 7 ;No
			Sleep(150)
			GUISetState(@SW_SHOW, $gui)
	EndSelect
EndFunc   ;==>_patch




Func _restore()
	If FileExists($backup) Then
		$_eWarten = GUICreate("Bitte warten Sie einem Moment", 363, 113, -1, -1, $WS_DLGFRAME)
		GUISetBkColor(0xFFFFFF)
		$_eProgress = GUICtrlCreateProgress(10, 48, 345, 25, $PBS_MARQUEE)
		GUICtrlCreateLabel("Bitte warten Sie, wmploc.DLL wird bearbeitet...", 55, 8, 265, 17)
		GUICtrlCreateLabel("Dies kann einige Zeit in Anspruch nehmen.", 55, 24, 300, 17)
		GUISetState(@SW_SHOW, $_eWarten)
		_Marquee($_eProgress, 1, 16)


		$hMenu = DllCall("user32.dll", "hwnd", "GetSystemMenu", "hwnd", $_eWarten, "int", 0)
		DllCall("user32.dll", "hwnd", "EnableMenuItem", "hwnd", $hMenu[0], "int", 0xF060, "int", 0x1)


		DirCreate($workpath)
		FileInstall("D:\Meine Apps\tools\ResHacker.exe", $workpath & "\ResHacker.exe")
		FileCopy($DLLpath, $DLLpath2)
		RunWait($workpath & '\ResHacker.exe -modify ' & $DLLpath2 & ', ' & $DLLpath2 & ', ' & $backup & ',,,', $workpath, @SW_HIDE)
		RegWrite("HKLM\System\CurrentControlSet\Control\Session Manager", "PendingFileRenameOperations", "REG_MULTI_SZ", "\??\" & $DLLpath2 & @LF & "!\??\" & $DLLpath)
		DirRemove($workpath, 1)
		DirRemove($backuppath, 1)
		GUIDelete($_eWarten)
		Local $iMsgBoxAnswer
		$iMsgBoxAnswer = MsgBox(68, "WMP 12 Theme Changer", "               WMP Theme geändert!" & @CRLF & "Muss PC Neu starten. Jetz PC Neu starten?")
		Select
			Case $iMsgBoxAnswer = 6 ;Yes
				_Exit()
				Shutdown(6)
				Exit
			Case $iMsgBoxAnswer = 7 ;No
				Sleep(150)
				GUISetState(@SW_SHOW, $gui)
		EndSelect
	Else
		MsgBox(4096, "", "Keine Backup res gefunden!")
	EndIf
EndFunc   ;==>_restore




Func _Marquee($h_Progress, $f_Mode = 1, $i_Time = 100)
	Local Const $WM_USER = 0x0400
	Local Const $PBM_SETMARQUEE = ($WM_USER + 10)
	Local $var = GUICtrlSendMsg($h_Progress, $PBM_SETMARQUEE, $f_Mode, Number($i_Time))
	If $var = 0 Then
		SetError(1)
		Return 0
	Else
		SetError(0)
		Return $var
	EndIf
EndFunc   ;==>_Marquee

Alles anzeigen

ICE Tec 82

Mein Krankenhausbericht: Die erste Seite!!

-edit: alpines: Befund pdf aus Datenschutzgründen entfernt-

ICE Tec 82

Hallo, ich möchte ein Programm vorstellen! TrayRecycler.exe ist ein Papierkorb im System-Tray von Microsoft (Benachrichtigungsfeld). TrayRecycler.exe räumt auch den Computer auf (Datenträger bereinigen und Säubere Temp Ordner). Ihr könnt jetzt den Papierkorb vom Desktop verstecken.

ich beantworte aber keine Fragen und so Sachen, ich habe Aphasie durch Schlaganfall!
Über Änderungsvorschläge würde ich mich schon freuen!

AutoIt: Papierkorb.au3

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=D:\Meine Apps\tools\gfx\trash.ico
#AutoIt3Wrapper_Outfile=TrayRecycler.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=Tray Recycler
#AutoIt3Wrapper_Res_Description=Tray Recycler
#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|TrayRecycler.exe
#AutoIt3Wrapper_Res_Field=ProductName|Tray Recycler
#AutoIt3Wrapper_Res_Field=ProductVersion|1.0.0.1
#AutoIt3Wrapper_Run_Tidy=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****


#include <Constants.au3>


Opt('MustDeclareVars', 1)
Opt("TrayMenuMode", 1)


Global $Recycle, $option, $cleanmgr, $cleantempdir, $aboutitem, $exititem, $i, $autorun, $Diskclean
Global $iRecycleBin_Items, $SHQUERYRBINFO, $Query, $OpenRecycle, $Recyclerdel, $var, $msg
Global Const $hdd = DriveGetDrive("FIXED")
Global Const $path = @ScriptFullPath
Global Const $reg1 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Run"
Global Const $reg2 = "Tray Recycler"
Global Const $MIM_APPLYTOSUBMENUS = 0x80000000, $MIM_BACKGROUND = 0x00000002


$aboutitem = TrayCreateItem("Tray Recycler")
TrayCreateItem("")
$option = TrayCreateMenu("Optionen")
$autorun = TrayCreateItem("Mit Windows starten", $option)
TrayCreateItem("")
$Diskclean = TrayCreateMenu("Datenträger aufräumen")
$cleanmgr = TrayCreateItem("Datenträger bereinigen", $Diskclean)
TrayCreateItem("", $Diskclean)
$cleantempdir = TrayCreateItem("Säubere Temp Ordner", $Diskclean)
TrayCreateItem("")
$Recycle = TrayCreateMenu("Papierkorb")
$OpenRecycle = TrayCreateItem("Papierkorb öffnen", $Recycle)
TrayCreateItem("", $Recycle)
$Recyclerdel = TrayCreateItem("Papierkorb leeren", $Recycle)
TrayCreateItem("")
$exititem = TrayCreateItem("Beenden")
autostartcheck()
itemcheck()
SetMenuColor(0, 0xEEBB99) ; BGR Farbwert, '0' bedeutet, dass das Tray Kontext-Menü dies selbst regelt
SetMenuColor($option, 0x0099FF) ; BGR Farbwert
SetMenuColor($Diskclean, 0x0099FF) ; BGR Farbwert
SetMenuColor($Recycle, 0x0099FF) ; BGR Farbwert
TraySetClick(2)
TraySetToolTip("Tray Recycler")
TraySetState($TRAY_ICONSTATE_SHOW)




While 1
	itemcheck()
	$msg = TrayGetMsg()
	Select
		Case $msg = $autorun
			autostart()
		Case $msg = $OpenRecycle
			TrayItemSetState($OpenRecycle, $TRAY_UNCHECKED)
			RecycleOpen()
		Case $msg = $cleanmgr
			TrayItemSetState($cleanmgr, $TRAY_UNCHECKED)
			CleanDisc()
		Case $msg = $cleantempdir
			TrayItemSetState($cleantempdir, $TRAY_UNCHECKED)
			SplashTextOn("Tray Recycler", "" & @LF & "Säubere Temp Ordner", 200, 85, -1, -1, 0, "", 12, 600)
			tempdir()
			SplashOff()
		Case $msg = $Recyclerdel
			TrayItemSetState($Recyclerdel, $TRAY_UNCHECKED)
			Recycle()
		Case $msg = $aboutitem
			TrayItemSetState($aboutitem, $TRAY_UNCHECKED)
			MsgBox(8256, "Tray Recycler", StringReplace("           Why go you to High School, when you can go High to School _ _ _                                             Tray Recycler v1.0.0.1 _ _                     Copyrights: © ICE Technologie. All rights reserved. _                     Greetings from GERMANY (Singen am Hohentwiel)", "_", @CR))
		Case $msg = $exititem
			ExitLoop
	EndSelect
WEnd


Func autostartcheck()
	RegRead($reg1, $reg2)
	If @error Then
		TrayItemSetState($autorun, $TRAY_UNCHECKED)
	Else
		TrayItemSetState($autorun, $TRAY_CHECKED)
	EndIf
EndFunc   ;==>autostartcheck


Func autostart()
	RegRead($reg1, $reg2)
	If @error Then
		RegWrite($reg1, $reg2, "REG_SZ", $path)
		TrayItemSetState($autorun, $TRAY_CHECKED)
	Else
		RegDelete($reg1, $reg2)
		TrayItemSetState($autorun, $TRAY_UNCHECKED)
	EndIf
EndFunc   ;==>autostart


Func itemcheck()
	If ProcessExists("DeviceDisplayObjectProvider.exe") Then Return
	$SHQUERYRBINFO = DllStructCreate("align 1;int;int64;int64")
	DllStructSetData($SHQUERYRBINFO, 1, DllStructGetSize($SHQUERYRBINFO))
	$Query = DllCall("shell32.dll", "int", "SHQueryRecycleBin", "str", $hdd & "\", "ptr", DllStructGetPtr($SHQUERYRBINFO))
	If DllStructGetData($SHQUERYRBINFO, 3) = 0 Then
		TraySetIcon(@SystemDir & "\shell32.dll", 32)
	Else
		TraySetIcon(@SystemDir & "\shell32.dll", 33)
	EndIf
EndFunc   ;==>itemcheck


Func Recycle()
	FileRecycleEmpty($hdd)
	SoundPlay(@WindowsDir & "\media\recycle.wav")
EndFunc   ;==>Recycle


Func RecycleOpen()
	Run("explorer.exe ::{645FF040-5081-101B-9F08-00AA002F954E}")
EndFunc   ;==>RecycleOpen


Func CleanDisc()
	For $i = 1 To 1000
		Local $var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches", $i)
		If @error <> 0 Then ExitLoop
		Local $regread = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\" & $var, "StateFlags1488")
		If $regread = False Then
			RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\" & $var, "StateFlags1488", "REG_DWORD", "2")
		EndIf
	Next
	Run(@SystemDir & "\cleanmgr.exe /sagerun:1488")
EndFunc   ;==>CleanDisc


Func tempdir()


	Local $search = FileFindFirstFile(@UserProfileDir & "\AppData\Local\Temp\*.*")
	While 1
		Local $file = FileFindNextFile($search)
		If @error Then Return True
		DirRemove(@UserProfileDir & "\AppData\Local\Temp\" & $file, 1)
		FileDelete(@UserProfileDir & "\AppData\Local\Temp\" & $file)
	WEnd
	FileClose($search)


	Local $search4 = FileFindFirstFile(@WindowsDir & "\Temp\*.*")
	While 1
		Local $file4 = FileFindNextFile($search4)
		If @error Then Return
		DirRemove(@WindowsDir & "\Temp\" & $file4, 1)
		FileDelete(@WindowsDir & "\Temp\" & $file4)
	WEnd
	FileClose($search4)


	Local $search3 = FileFindFirstFile(@TempDir & "\*.*")
	While 1
		Local $file3 = FileFindNextFile($search3)
		If @error Then Return
		DirRemove(@TempDir & "\" & $file3, 1)
		FileDelete(@TempDir & "\" & $file3)
	WEnd
	FileClose($search3)


EndFunc   ;==>tempdir


Func SetMenuColor($nMenuID, $nColor)
	Local $hMenu = TrayItemGetHandle($nMenuID) ; Holt den internen Menü-Handle


	Local $hBrush = DllCall("gdi32.dll", "hwnd", "CreateSolidBrush", "int", $nColor)
	$hBrush = $hBrush[0]


	Local $stMenuInfo = DllStructCreate("dword;dword;dword;uint;dword;dword;ptr")
	DllStructSetData($stMenuInfo, 1, DllStructGetSize($stMenuInfo))
	DllStructSetData($stMenuInfo, 2, BitOR($MIM_APPLYTOSUBMENUS, $MIM_BACKGROUND))
	DllStructSetData($stMenuInfo, 5, $hBrush)


	DllCall("user32.dll", "int", "SetMenuInfo", "hwnd", $hMenu, "ptr", DllStructGetPtr($stMenuInfo))
EndFunc   ;==>SetMenuColor

Alles anzeigen

ICE Tec 82

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

Beiträge von ICE Tec 82

Schredder

Tray Recycler

Style vom Windows Media Player ändern!

Style vom Windows Media Player ändern!

Dreamscene Installer

Tray Recycler

Dreamscene Installer