pcwAnnoyances
Posted 01/27/2009 - 16:29 by admin
<HTML> <HEAD> <TITLE>PC-WELT Script: XP-Nerv-Funktionen konfigurieren 1.1</TITLE> <HTA:APPLICATION ID="hta3" APPLICATIONNAME="pcwAnnoyances" BORDER = "dialog" CAPTION = "yes" SHOWINTASKBAR = "yes" SINGLEINSTANCE = "yes" SYSMENU = "yes" WINDOWSTATE = "normal" INNERBORDER = "no" MAXIMIZEBUTTON = "no" MINIMIZEBUTTON = "yes" CONTEXTMENU = "no" BORDERSTYLE = "complex"> <STYLE type="text/css"> body { scrollbar-arrow-color: #000000; font-family:Verdana; font-style:normal; font-size:10; background-color:Buttonface} DIV { font-family:Verdana; font-style:normal; font-size:12;} </STYLE> <SCRIPT LANGUAGE=vbscript> '|--------------------------------------------------------------------------------------------------|' Dim myfiles, myshell, x, y1, y2, y3, y4, y5, y6, y7 ReDim SStArr(0) Set myfiles = CreateObject("Scripting.FileSystemObject") Set myshell = CreateObject("Wscript.Shell") Set c = MyShell.Environment("PROCESS") Tempdir=c("Temp") Windir=c("Systemroot") Userprofile=c("Userprofile") ExpAdv = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\" Dim UserprefsBin(3) Dim Userprefs Dim StreamSettings Dim Limited CreateVBArray = Userprefs CreateVbArray = StreamSettings '|--------------------------------------------------------------------------------------------------|' Sub SubInitFenster if IS_Admin = False then Limited = 1 document.title = "PC-WELT Script: XP-Nerv-Funktionen konfigurieren 1.1 - Eingeschränkter Modus" else Limited = 0 document.title = "PC-WELT Script: XP-Nerv-Funktionen konfigurieren 1.1 - Admin Modus" end if Label.Value = "" UserPrefs = myshell.regread("HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask") for n = 0 to 3 m = 1 UserprefsBin(n) = "" do calc = UserPrefs(n) mod 2 Halb = Int(UserPrefs(n)/2) UserPrefs(n) = Halb UserprefsBin(n) = calc & UserprefsBin(n) m = m+1 loop until m=9 next on error resume next window.resizeTo 800, 610 Ext = Myshell.regread(ExpAdv & "HideFileExt") 'Dword -> 0, 1 if Ext = "" then Ext = 1 myshell.regwrite ExpAdv & "HideFileExt", Ext, "REG_DWORD" end if if Ext = 0 then document.all.Item("O1").Checked = True else document.all.Item("O1").Checked = False end if Hid = Myshell.regread(ExpAdv & "Hidden") 'Dword -> 1, 2 if Hid = "" then Hid = 2 myshell.regwrite ExpAdv & "Hidden", Hid, "REG_DWORD" end if if Hid = 1 then document.all.Item("O2").Checked = True else document.all.Item("O2").Checked = False end if sHid = Myshell.regread(ExpAdv & "ShowSuperHidden") 'Dword -> 1, 0 if sHid = "" then sHid = 0 myshell.regwrite ExpAdv & "ShowSuperHidden", sHid, "REG_DWORD" end if if sHid = 1 then document.all.Item("O4").Checked = True else document.all.Item("O4").Checked = False end if SysO = Myshell.regread(ExpAdv & "WebViewBarricade") 'Dword -> 1, 0 If SysO = "" then SysO = 0 myshell.regwrite ExpAdv & "WebViewBarricade", SysO, "REG_DWORD" end if if SysO = 1 then document.all.Item("O5").Checked = True else document.all.Item("O5").Checked = False end if ksea = Myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState\Use Search Asst") 'Zeichenfolge -> no, yes if ksea = "" then ksea = "yes" myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState\Use Search Asst", ksea, "REG_SZ" end if if ksea = "no" then document.all.Item("O3").Checked = True else document.all.Item("O3").Checked = False end if Ball = Myshell.regread(ExpAdv & "EnableBalloonTips") 'Dword -> 0, 1 if Ball = "" then Ball = 1 myshell.regwrite ExpAdv & "EnableBalloonTips", Ball, "REG_DWORD" end if if Ball = 0 then document.all.Item("O6").Checked = True else document.all.Item("O6").Checked = False end if Pers = Myshell.regread(ExpAdv & "IntelliMenus") 'Dword -> 0, 1 if Pers = "" then Pers = 1 myshell.regwrite ExpAdv & "IntelliMenus", Pers, "REG_DWORD" end if if Pers = 0 then document.all.Item("O7").Checked = True else document.all.Item("O7").Checked = False end if SSt = Myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ShellState") 'Bin for n = 0 to ubound(SSt) ReDim Preserve SStArr(n) hWert = Hex(SSt(n)) if len(hWert) = 1 then SStArr(n) = "0" & hWert else SStArr(n) = hWert end if next 'Klassisch Start 00 - Neu Start 02 if SStArr(32) = "00" then document.all.Item("O8").Checked = True else document.all.Item("O8").Checked = False end if Allg = Myshell.regread(ExpAdv & "WebView") 'Dword -> 0, 1 if Allg = "" then Allg = 0 myshell.regwrite ExpAdv & "WebView", Allg, "REG_DWORD" end if if Allg = 0 then document.all.Item("O10").Checked = True else document.all.Item("O10").Checked = False end if kLog = MyShell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LogonType") 'Dword 0, 1 if kLog = 0 then document.all.Item("O9").Checked = True else document.all.Item("O9").Checked = False end if if limited = 1 then document.all.Item("O9").Disabled = True kDesk = MyShell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\ThemeActive") 'Zeichenfolge 0, 1 x = kDesk if kDesk = 0 then document.all.Item("O11").Checked = True else document.all.Item("O11").Checked = False end if kAnim = myshell.regread("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\MinAnimate") if kAnim = 0 then document.all.Item("O14").Checked = True else document.all.Item("O14").Checked = False end if kCleanup = myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz\NoRun") if kCleanup = 1 then document.all.Item("O15").Checked = True else document.all.Item("O15").Checked = False end if kLowSpace = myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLowDiskSpaceChecks") if kLowSpace = 1 then document.all.Item("O16").Checked = True else document.all.Item("O16").Checked = False end if if limited = 1 then document.all.Item("O16").Disabled = True kLinks = myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\LinksFolderName") if kLinks = "Links" then document.all.Item("O17").Checked = False else document.all.Item("O17").Checked = True end if cleartype = myshell.regread("HKEY_CURRENT_USER\Control Panel\Desktop\FontSmoothing") if cleartype = 2 then document.all.Item("O18").Checked = True else document.all.Item("O18").Checked = False end if kHideDev = myshell.regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\DEVMGR_SHOW_NONPRESENT_DEVICES") if kHideDev = 1 then document.all.Item("O19").Checked = True else document.all.Item("O19").Checked = False end if if limited = 1 then document.all.Item("O19").Disabled = True DetailDev = myshell.regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\DEVMGR_SHOW_DETAILS") if DetailDev = 1 then document.all.Item("O23").Checked = True else document.all.Item("O23").Checked = False end if if limited = 1 then document.all.Item("O23").Disabled = True kDevErr = myshell.Regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows\NoPopupsOnBoot") if kDevErr = 1 then document.all.Item("O20").Checked = True else document.all.Item("O20").Checked = False end if if limited = 1 then document.all.Item("O20").Disabled = True kSharing = myshell.regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\ForceGuest") if kSharing = 0 then document.all.Item("O21").Checked = True else document.all.Item("O21").Checked = False end if if limited = 1 then document.all.Item("O21").Disabled = True kErrRep = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting\DoReport") if kErrRep = 0 then document.all.Item("O24").Checked = True else document.all.Item("O24").Checked = False end if if limited = 1 then document.all.Item("O24").Disabled = True google = myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Search Page") if instr(1, lcase(google), "www.google.de")=0 then document.all.Item("O22").Checked = False else document.all.Item("O22").Checked = True document.all.Item("O22").Disabled = True end if if limited = 1 then document.all.Item("O22").Disabled = True kWebServ = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\NoInternetOpenWith") if kWebServ = 1 then document.all.Item("O25").Checked = True else document.all.Item("O25").Checked = False end if if limited = 1 then document.all.Item("O25").Disabled = True kListShadow = myshell.regread(ExpAdv & "ListviewShadow") if kListShadow = 0 then document.all.Item("O26").Checked = True else document.all.Item("O26").Checked = False end if kListAlpha = myshell.regread(ExpAdv & "ListviewAlphaSelect") if kListAlpha = 0 then document.all.Item("O27").Checked = True else document.all.Item("O27").Checked = False end if kWinDrag = myshell.regread("HKEY_CURRENT_USER\Control Panel\Desktop\DragFullWindows") if kWinDrag = 0 then document.all.Item("O28").Checked = True else document.all.Item("O28").Checked = False end if kFoldBack = myshell.regread(ExpAdv & "ListviewWatermark") if kFoldBack = 0 then document.all.Item("O29").Checked = True else document.all.Item("O29").Checked = False end if kMouseShadow = Mid(UserPrefsBin(1), 3, 1) y1 = kMouseShadow if kMouseShadow = 0 then document.all.Item("O30").Checked = True else document.all.Item("O30").Checked = False end if kMenuShow = Mid(UserPrefsBin(1), 6, 1) y2 = kMenuShow if kMenuShow = 0 then document.all.Item("O31").Checked = True else document.all.Item("O31").Checked = False end if kMenuView = Mid(UserPrefsBin(0), 7, 1) y3 = kMenuView if kMenuView = 0 then document.all.Item("O32").Checked = True else document.all.Item("O32").Checked = False end if kMenuShadow = Mid(UserPrefsBin(2), 6, 1) y4 = kMenuShadow if kMenuShadow = 0 then document.all.Item("O33").Checked = True else document.all.Item("O33").Checked = False end if kKombField = Mid(UserPrefsBin(0), 6, 1) y5 = kKombField if kKombField = 0 then document.all.Item("O34").Checked = True else document.all.Item("O34").Checked = False end if kOptList = Mid(UserPrefsBin(0), 5, 1) y6 = kOptList if kOptList = 0 then document.all.Item("O35").Checked = True else document.all.Item("O35").Checked = False end if kQuickView = Mid(UserPrefsBin(1), 5, 1) y7 = kQuickView if kQuickView = 0 then document.all.Item("O36").Checked = True else document.all.Item("O36").Checked = False end if kTask = myshell.regread(ExpAdv & "TaskbarAnimations") if kTask = 0 then document.all.Item("O37").Checked = True else document.all.Item("O37").Checked = False end if kVerk = myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Link") if kVerk(0) = 28 then document.all.Item("O12").Checked = False else document.all.Item("O12").Checked = True end if kBeep = myshell.regread("HKEY_CURRENT_USER\Control Panel\Sound\Beep") if lcase(kBeep) = "yes" then document.all.Item("O13").Checked = False else document.all.Item("O13").Checked = True end if Err.clear kVerkPfeil = myshell.regread("HKEY_CLASSES_ROOT\LNKFILE\IsShortcut") if Err.Number = 0 then document.all.Item("O38").Checked = False else document.all.Item("O38").Checked = True end if if limited = 1 then document.all.Item("O38").Disabled = True 'if not Limited = 1 then StreamSettings = myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Settings") if StreamSettings(4) = 4 then document.all.Item("O39").Checked = True document.all.Item("O39").Disabled = True else document.all.Item("O39").Checked = False end if 'else ' document.all.Item("O39").Disabled = True 'end if Err.Clear Test = myshell.Regread("HKEYNotAKey\") sDescription = Replace(Err.Description, "HKEYNotAKey\", "") Err.Clear Bags = myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\Bags\2\Shell\") if sDescription <> Replace(Err.Description, "HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\Bags\2\Shell\", "") then document.all.Item("O40").Disabled = False document.all.Item("O40").Checked = False else document.all.Item("O40").Checked = True document.all.Item("O40").Disabled = True end if Recovery = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Setup\RecoveryConsole\SetCommand") if Recovery = 1 then document.all.Item("O41").Checked = True else document.all.Item("O41").Checked = False end if if limited = 1 then document.all.Item("O41").Disabled = True Submarkthechecked End Sub '|--------------------------------------------------------------------------------------------------|' Function IS_Admin IS_Admin = false On Error Resume Next myShell.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Beep\Admin\","1","REG_SZ" myShell.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Beep\Admin\" IF Err.Number = 0 THEN IS_Admin = true END If On Error GoTo 0 End Function '|--------------------------------------------------------------------------------------------------|' Sub SubSet On error resume next Set Logme = Myfiles.OpentextFile(Tempdir & "\" & "Error.Log", 2, True) UserPrefs = myshell.regread("HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask") if document.all.Item("O1").Checked then Ext = 0 else Ext = 1 end if myshell.regwrite ExpAdv & "HideFileExt", Ext, "REG_DWORD" if document.all.Item("O2").Checked then Hid = 1 else Hid = 2 end if myshell.regwrite ExpAdv & "Hidden", Hid, "REG_DWORD" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O3").Checked then ksea = "no" else ksea = "yes" end if myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState\Use Search Asst", ksea, "REG_SZ" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O4").Checked then sHid = 1 else sHid = 0 end if myshell.regwrite ExpAdv & "ShowSuperHidden", sHid, "REG_DWORD" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O5").Checked then SysO = 1 else SysO = 0 end if myshell.regwrite ExpAdv & "WebViewBarricade", SysO, "REG_DWORD" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O6").Checked then Ball = 0 else Ball = 1 end if myshell.regwrite ExpAdv & "EnableBalloonTips", Ball, "REG_DWORD" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O7").Checked then Pers = 0 else Pers = 1 end if myshell.regwrite ExpAdv & "IntelliMenus", Pers, "REG_DWORD" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O8").Checked then SStArr(32) = "00" else SStArr(32) = "02" end if Set FWrite = Myfiles.OpentextFile(Tempdir & "\" & "ShellState.reg", 2, True) FWrite.Writeline "REGEDIT4" FWrite.Writeline VBCR FWrite.Writeline "[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]" FWrite.Write Chr(34) & "ShellState" & chr(34) & "=hex:" for n = 0 to Ubound(SStArr)-1 FWrite.Write SStArr(n) & "," next FWrite.Write SStArr(Ubound(SStArr)) Fwrite.Close ret = Myshell.Run("regedit /s " & Tempdir & "\" & "ShellState.reg", 0, True) ret = MyFiles.DeleteFile(Tempdir & "\" & "ShellState.reg", true) if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O9").Checked then kLog = 0 Mult = 0 else kLog = 1 Mult = 1 end if if not limited = 1 then myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LogonType", kLog, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AllowMultipleTSSessions", Mult, "REG_DWORD" end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O10").Checked then Allg = 0 else Allg = 1 end if myshell.regwrite ExpAdv & "WebView", Allg, "REG_DWORD" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O11").Checked and x = 1 then ret = myshell.run(chr(34) & windir & "\Resources\Themes\Windows Classic.theme" & chr(34), 1, True) elseif not document.all.Item("O11").checked and x = 0 then ret = myshell.run(windir & "\resources\Themes\Luna.theme", 1, True) end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O14").Checked then kAnim = 0 else kAnim = 1 end if myshell.regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\MinAnimate", kAnim, "REG_SZ" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O15").Checked then kCleanup = 1 else kCleanup = 0 end if myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz\NoRun", kCleanup, "REG_DWORD" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O16").Checked then kLowSpace = 1 else kLowSpace = 0 end if if not limited = 1 then myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLowDiskSpaceChecks", kLowSpace, "REG_DWORD" end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O17").Checked then myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\LinksFolderName", "", "REG_SZ" ret = myshell.run("cmd /c rd /q /s " & chr(34) & Userprofile & "\Favoriten\Links\", 0, True) else myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\LinksFolderName", "Links", "REG_SZ" end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O18").Checked then cleartype = 2 else cleartype = 0 end if myshell.regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\FontSmoothing", cleartype, "REG_SZ" myshell.regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\FontSmoothingType", cleartype, "REG_DWORD" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O19").Checked then kHideDev = 1 else kHideDev = 0 end if if not limited = 1 then myshell.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\DEVMGR_SHOW_NONPRESENT_DEVICES", kHideDev, "REG_SZ" end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O23").Checked then DetailDev = 1 else DetailDev = 0 end if if not limited = 1 then myshell.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\DEVMGR_SHOW_DETAILS", DetailDev, "REG_SZ" end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O20").Checked then kDevErr = 1 else kDevErr = 0 end if if not limited = 1 then myshell.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows\NoPopupsOnBoot", kDevErr, "REG_DWORD" end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O21").Checked then kSharing = 0 else kSharing = 1 end if if not limited = 1 then myshell.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\ForceGuest", kSharing, "REG_DWORD" end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O22").Checked and not limited = 1 then myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Search Page", "http://www.google.de", "REG_SZ" myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Search Bar", "http://www.google.de/ie", "REG_SZ" myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Use Search Asst", "no", "REG_SZ" myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchURL\", "http://www.google.de/keyword/%s", "REG_SZ" myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchURL\provider", "gogl", "REG_SZ" myshell.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Search\SearchAssistant", "http://www.google.de/ie", "REG_SZ" document.all.Item("O22").disabled = True end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O24").Checked then kErrRep = 0 else kErrRep = 1 end if if not limited = 1 then myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting\DoReport", kErrRep, "REG_DWORD" end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O25").Checked then kWebServ = 1 else kWebServ = 0 end if if not limited = 1 then myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\NoInternetOpenWith", kWebServ, "REG_DWORD" end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O26").Checked then kListShadow = 0 else kListShadow = 1 end if myshell.regwrite ExpAdv & "ListviewShadow", kListShadow, "REG_DWORD" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O27").Checked then kListAlpha = 0 else kListAlpha = 1 end if myshell.regwrite ExpAdv & "ListviewAlphaSelect", kListAlpha, "REG_DWORD" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O28").Checked then kWinDrag = 0 else kWinDrag = 1 end if myshell.regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\DragFullWindows", kWinDrag, "REG_SZ" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O29").Checked then kFoldBack = 0 else kFoldBack = 1 end if myshell.regwrite ExpAdv & "ListViewWatermark", kFoldBack, "REG_DWORD" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O30").Checked and y1 = 1 then UserPrefs(1) = Userprefs(1) - 32 elseif not document.all.Item("O30").Checked and y1 = 0 then UserPrefs(1) = Userprefs(1) + 32 end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O31").Checked and y2 = 1 then UserPrefs(1) = Userprefs(1) - 4 elseif not document.all.Item("O31").Checked and y2 = 0 then UserPrefs(1) = Userprefs(1) + 4 end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O32").Checked and y3 = 1 then UserPrefs(0) = Userprefs(0) - 2 elseif not document.all.Item("O32").Checked and y3 = 0 then UserPrefs(0) = Userprefs(0) + 2 end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O33").Checked and y4 = 1 then UserPrefs(2) = Userprefs(2) - 4 elseif not document.all.Item("O33").Checked and y4 = 0 then UserPrefs(2) = Userprefs(2) + 4 end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O34").Checked and y5 = 1 then UserPrefs(0) = Userprefs(0) - 4 elseif not document.all.Item("O34").Checked and y5 = 0 then UserPrefs(0) = Userprefs(0) + 4 end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O35").Checked and y6 = 1 then UserPrefs(0) = Userprefs(0) - 8 elseif not document.all.Item("O35").Checked and y6 = 0 then UserPrefs(0) = Userprefs(0) + 8 end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O36").Checked and y7 = 1 then UserPrefs(1) = Userprefs(1) - 8 elseif not document.all.Item("O36").Checked and y7 = 0 then UserPrefs(1) = Userprefs(1) + 8 end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O37").Checked then kTask = 0 else kTask = 1 end if myshell.regwrite ExpAdv & "TaskbarAnimations", kTask, "REG_DWORD" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if Set FWrite = Myfiles.OpentextFile(Tempdir & "\" & "Userprefs.reg", 2, True) FWrite.Writeline "REGEDIT4" FWrite.Writeline VBCR FWrite.Writeline "[HKEY_CURRENT_USER\Control Panel\Desktop]" FWrite.Write Chr(34) & "UserPreferencesMask" & chr(34) & "=hex:" for n = 0 to Ubound(UserPrefs)-1 if len(Hex(UserPrefs(n))) = 1 then UserPrefs(n) = "0" & Hex(UserPrefs(n)) else UserPrefs(n) = Hex(UserPrefs(n)) end if FWrite.Write UserPrefs(n) & "," next FWrite.Write Hex(UserPrefs(Ubound(UserPrefs))) Fwrite.Close ret = Myshell.Run("regedit /s " & Tempdir & "\" & "UserPrefs.reg", 0, True) ret = MyFiles.DeleteFile(Tempdir & "\" & "UserPrefs.reg", true) if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O12").Checked then kVerkmit = "00,00,00,00" else kVerkmit = "28,00,00,00" end if Set FWrite = Myfiles.OpentextFile(Tempdir & "\" & "Verkmit.reg", 2, True) FWrite.Writeline "REGEDIT4" FWrite.Writeline VBCR FWrite.Writeline "[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]" FWrite.Write Chr(34) & "Link" & chr(34) & "=hex:" FWrite.Write kVerkmit Fwrite.Close ret = Myshell.Run("regedit /s " & Tempdir & "\" & "Verkmit.reg", 0, True) ret = MyFiles.DeleteFile(Tempdir & "\" & "Verkmit.reg", true) if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O13").Checked then kBeep = "No" else kBeep = "Yes" end if myshell.regwrite "HKEY_CURRENT_USER\Control Panel\Sound\Beep", kBeep, "REG_SZ" myshell.regwrite "HKEY_CURRENT_USER\Control Panel\Sound\ExtendedSounds", kBeep, "REG_SZ" if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O38").Checked and not Limited = 1 then on error resume next myshell.regdelete "HKEY_CLASSES_ROOT\LNKFILE\IsShortcut" on error goto 0 else if not Limited = 1 then myshell.regwrite "HKEY_CLASSES_ROOT\LNKFILE\IsShortcut", "", "REG_SZ" end if end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O39").Checked = True and document.all.Item("O39").Disabled = False then StreamSettings(4) = 4 Set FWrite = Myfiles.OpentextFile(Tempdir & "\" & "StreamSettings.reg", 2, True) FWrite.Writeline "REGEDIT4" FWrite.Writeline VBCR FWrite.Writeline "[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams]" FWrite.Writeline Chr(34) & "Settings" & chr(34) & "=hex:08,00,00,00,04,00,00,00,01,00,00,00,00,77,7E,13,73," &_ "35,CF,11,AE,69,08,00,2B,2E,12,62,04,00,00,00,02,00,00,00,43,00,00,00" FWrite.Writeline "" FWrite.Writeline [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults] Fwrite.Writeline chr(34) & "{F3364BA0-65B9-11CE-A9BA-00AA004AE837}" & chr(34) & "=hex:1C,00,00,00,04,00,00,00,00,00,00,00,00,00,90,00,00,00," &_ "00,00,01,00,00,00,FF,FF,FF,FF,F0,F0,F0,F0,14,00,03,00,90,00," &_ "00,00,00,00,00,00,30,00,00,00,FD,DF,DF,FD,0F,00,04,00,20,00,10,00,28," &_ "00,3C,00,00,00,00,00,01,00,00,00,02,00,00,00,03,00,00,00,F5,00,60,00,78,00," &_ "78,00,00,00,00,00,01,00,00,00,02,00,00,00,03,00,00,00,FF,FF,FF,FF,00,00,00," &_ "00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00," &_ "00,00,00,00,00,00,00,00,00" FWrite.Writeline "" FWrite.Writeline "" Fwrite.Close ret = Myshell.Run("regedit /s " & Tempdir & "\" & "StreamSettings.reg", 0, True) ret = MyFiles.DeleteFile(Tempdir & "\" & "StreamSettings.reg", true) document.all.Item("O39").Disabled = True end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O40").Checked = True and document.all.Item("O40").Disabled = False then Set FWrite = Myfiles.OpentextFile(Tempdir & "\" & "Bags.reg", 2, True) FWrite.Writeline "REGEDIT4" FWrite.Writeline VBCR FWrite.Writeline "[-HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\Bags]" FWrite.Writeline "" FWrite.Writeline "[-HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\BagMRU]" FWrite.Writeline "" FWrite.Writeline "" Fwrite.Close ret = Myshell.Run("regedit /s " & Tempdir & "\" & "Bags.reg", 0, True) ret = MyFiles.DeleteFile(Tempdir & "\" & "Bags.reg", true) document.all.Item("O39").Disabled = True end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if if document.all.Item("O41").Checked then Recovery = 1 else Recovery = 0 end if if not limited = 1 then myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Setup\RecoveryConsole\SetCommand", Recovery, "REG_DWORD" end if if not err.number = 0 then Logme.writeline Err.Description Err.clear end if Logme.Close myshell.run "RUNDLL32.EXE USER32.DLL,UpdatePerUserSystemParameters", 1, true set wmi = GetObject("winmgmts:") Prozesse = "select * from win32_process where name='explorer.exe'" set Task = wmi.ExecQuery(Prozesse) for each Prozess in Task Prozess.Terminate 0 next ret = myshell.run("Explorer.exe", 1, False) myshell.run "RUNDLL32.EXE USER32.DLL,UpdatePerUserSystemParameters", 1, true SubInitFenster label.value = "Fertig - manche Änderungen greifen erst nach einem Neustart..." Set Logme = myfiles.GetFile(Tempdir & "\" & "Error.Log") if not Logme.Size = 0 then myshell.run "notepad " & Tempdir & "\" & "Error.Log", 1, true end if myfiles.Deletefile(Tempdir & "\" & "Error.Log") End Sub '|--------------------------------------------------------------------------------------------------|' Sub SubMarkG1 if document.all.Item("G1").Checked then document.all.Item("O11").Checked = true document.all.Item("O26").Checked = true document.all.Item("O27").Checked = true document.all.Item("O28").Checked = true document.all.Item("O29").Checked = true document.all.Item("O30").Checked = true document.all.Item("O31").Checked = true document.all.Item("O32").Checked = true document.all.Item("O33").Checked = true document.all.Item("O34").Checked = true document.all.Item("O35").Checked = true document.all.Item("O36").Checked = true document.all.Item("O37").Checked = true document.all.Item("O3").Checked = true document.all.Item("O6").Checked = true document.all.Item("O6").Checked = true document.all.Item("O8").Checked = true document.all.Item("O7").Checked = true document.all.Item("O10").Checked = true document.all.Item("O14").Checked = true document.all.Item("O18").Checked = true if not document.all.Item("O9").Disabled then document.all.Item("O9").Checked = true end if else document.all.Item("O11").Checked = false document.all.Item("O26").Checked = false document.all.Item("O27").Checked = false document.all.Item("O28").Checked = false document.all.Item("O29").Checked = false document.all.Item("O30").Checked = false document.all.Item("O31").Checked = false document.all.Item("O32").Checked = false document.all.Item("O33").Checked = false document.all.Item("O3").Checked = False document.all.Item("O34").Checked = false document.all.Item("O35").Checked = false document.all.Item("O36").Checked = false document.all.Item("O37").Checked = false document.all.Item("O8").Checked = False document.all.Item("O6").Checked = false document.all.Item("O6").Checked = false document.all.Item("O7").Checked = false document.all.Item("O10").Checked = false document.all.Item("O14").Checked = false document.all.Item("O18").Checked = false if not document.all.Item("O9").Disabled then document.all.Item("O9").Checked = False end if end if Submarkthechecked End Sub '|--------------------------------------------------------------------------------------------------|' Sub SubMarkG2 if document.all.Item("G2").Checked then document.all.Item("O1").Checked = true document.all.Item("O2").Checked = true document.all.Item("O4").Checked = true document.all.Item("O5").Checked = true if not document.all.Item("O21").Disabled then document.all.Item("O21").Checked = true end if if not document.all.Item("O25").Disabled then document.all.Item("O25").Checked = true end if document.all.Item("O12").Checked = true if not document.all.Item("O38").disabled then document.all.Item("O38").Checked = true end if if not document.all.Item("O39").disabled then document.all.Item("O39").Checked = true end if if not document.all.Item("O40").disabled then document.all.Item("O40").Checked = true end if else document.all.Item("O1").Checked = False document.all.Item("O2").Checked = False document.all.Item("O4").Checked = False document.all.Item("O5").Checked = False if not document.all.Item("O21").Disabled then document.all.Item("O21").Checked = False end if if not document.all.Item("O25").Disabled then document.all.Item("O25").Checked = False end if document.all.Item("O12").Checked = False if not document.all.Item("O38").disabled then document.all.Item("O38").Checked = False end if if not document.all.Item("O39").disabled then document.all.Item("O39").Checked = False end if if not document.all.Item("O40").disabled then document.all.Item("O40").Checked = False end if end if Submarkthechecked end Sub '|--------------------------------------------------------------------------------------------------|' Sub SubMarkG3 if document.all.Item("G3").Checked then document.all.Item("O15").Checked = true if not document.all.Item("O24").Disabled then document.all.Item("O24").Checked = true end if if not document.all.Item("O20").Disabled then document.all.Item("O20").Checked = true end if if not document.all.Item("O16").Disabled then document.all.Item("O16").Checked = true end if if not document.all.Item("O19").Disabled then document.all.Item("O19").Checked = true end if if not document.all.Item("O23").Disabled then document.all.Item("O23").Checked = true end if document.all.Item("O17").Checked = true if not document.all.Item("O22").Disabled then document.all.Item("O22").Checked = true end if document.all.Item("O13").Checked = true if not document.all.Item("O41").Disabled then document.all.Item("O41").Checked = true end if else document.all.Item("O15").Checked = False if not document.all.Item("O24").Disabled then document.all.Item("O24").Checked = False end if if not document.all.Item("O20").Disabled then document.all.Item("O20").Checked = False end if if not document.all.Item("O16").Disabled then document.all.Item("O16").Checked = False end if if not document.all.Item("O19").Disabled then document.all.Item("O19").Checked = False end if if not document.all.Item("O23").Disabled then document.all.Item("O23").Checked = False end if document.all.Item("O17").Checked = False if not document.all.Item("O22").disabled then document.all.Item("O22").Checked = False end if document.all.Item("O13").Checked = False if not document.all.Item("O41").disabled then document.all.Item("O41").Checked = False end if end if Submarkthechecked end Sub '|--------------------------------------------------------------------------------------------------|' Sub SubQuit Set myshell = Nothing Set myFiles = Nothing Window.Close End Sub '|--------------------------------------------------------------------------------------------------|' Sub SubMarkSelection(object) if document.all.Item("O" & object).Checked then document.all.Item("O" & object).style.backgroundColor="#99CC66" document.all.Item("ColorSel" & object).style.backgroundColor="#99CC66" else document.all.Item("O" & object).style.backgroundColor="" document.all.Item("ColorSel" & object).style.backgroundColor="" end if End Sub '|--------------------------------------------------------------------------------------------------|' Sub Submarkthechecked for n = 1 to 41 If document.all.Item("O" & n).Checked then document.all.Item("O" & n).style.backgroundColor="#99CC66" document.all.Item("ColorSel" & n).style.backgroundColor="#99CC66" if document.all.Item("O" & n).Disabled then document.all.Item("ColorSel" & n).style.Color="#888888" else document.all.Item("ColorSel" & n).style.Color="#000000" end if else document.all.Item("O" & n).style.backgroundColor="" document.all.Item("ColorSel" & n).style.backgroundColor="" if document.all.Item("O" & n).Disabled then document.all.Item("ColorSel" & n).style.Color="#888888" else document.all.Item("ColorSel" & n).style.Color="#000000" end if end if next End Sub '|--------------------------------------------------------------------------------------------------|' </SCRIPT> </HEAD> <BODY onload="SubInitFenster" scroll="yes"> <Form> <TABLE border="0"> <TBODY> <TR> <td> <FIELDSET> <LEGEND> <DIV><INPUT Type=checkbox name="G1" Title="Visual-Styles" onClick="SubMarkG1"><b> Visuelle Stile für optimale Leistung anpassen</b></DIV> </LEGEND> <DIV ID="ColorSel11"><INPUT Type=checkbox name="O11" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\ThemeActive" onClick="SubMarkSelection('11')"> Klassischen Desktop aktivieren</DIV> <DIV ID="ColorSel3"><INPUT Type=checkbox name="O3" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState\Use Search Asst" onClick="SubMarkSelection('3')"> Klassische Suche aktivieren</DIV> <DIV ID="ColorSel8"><INPUT Type=checkbox name="O8" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ShellState" onClick="SubMarkSelection('8')"> Klassisches Startmenü aktivieren</DIV> <DIV ID="ColorSel9"><INPUT Type=checkbox name="O9" Title="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LogonType" onClick="SubMarkSelection('9')"> Klassische Anmeldung aktivieren</DIV> <DIV ID="ColorSel26"><INPUT Type=checkbox name="O26" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ListviewShadow" onClick="SubMarkSelection('26')"> Kein durchsichtiger Hintergrund für Symbolunterschriften</DIV> <DIV ID="ColorSel27"><INPUT Type=checkbox name="O27" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ListviewAlphaSelect" onClick="SubMarkSelection('27')"> Kein durchsichtiges Auswahlrechteck</DIV> <DIV ID="ColorSel28"><INPUT Type=checkbox name="O28" Title="HKEY_CURRENT_USER\Control Panel\Desktop\DragFullWindows" onClick="SubMarkSelection('28')"> Keinen Fensterinhalt beim Ziehen anzeigen</DIV> <DIV ID="ColorSel29"><INPUT Type=checkbox name="O29" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ListviewWatermark" onClick="SubMarkSelection('29')"> Keine speziellen Hintergründe für Ordnertypen</DIV> <DIV ID="ColorSel30"><INPUT Type=checkbox name="O30" Title="HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask - Byte 2" onClick="SubMarkSelection('30')"> Keinen Mausschatten anzeigen</DIV> <DIV ID="ColorSel31"><INPUT Type=checkbox name="O31" Title="HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask - Byte 2" onClick="SubMarkSelection('31')"> Menüelemente nach Aufruf eingeblendet lassen</DIV> <DIV ID="ColorSel32"><INPUT Type=checkbox name="O32" Title="HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask - Byte 1" onClick="SubMarkSelection('32')"> Menüs in Ansicht nicht ein- bzw ausblenden</DIV> <DIV ID="ColorSel33"><INPUT Type=checkbox name="O33" Title="HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask - Byte 3" onClick="SubMarkSelection('33')"> Keine Menüschatten anzeigen</DIV> <DIV ID="ColorSel34"><INPUT Type=checkbox name="O34" Title="HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask - Byte 1" onClick="SubMarkSelection('34')"> Keine offenen Kombinationsfelder anzeigen</DIV> <DIV ID="ColorSel35"><INPUT Type=checkbox name="O35" Title="HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask - Byte 1" onClick="SubMarkSelection('35')"> Keinen optimierten Bildlauf für Listenfelder verwenden</DIV> <DIV ID="ColorSel36"><INPUT Type=checkbox name="O36" Title="HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask - Byte 2" onClick="SubMarkSelection('36')"> Keine Quickinfo in Ansicht ein- bzw ausblenden</DIV> <DIV ID="ColorSel37"><INPUT Type=checkbox name="O37" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\TaskbarAnimations" onClick="SubMarkSelection('37')"> Keine Taskleistenanimationen anzeigen</DIV> <DIV ID="ColorSel6"><INPUT Type=checkbox name="O6" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\EnableBalloonTips" onClick="SubMarkSelection('6')"> Keine Infoblasen anzeigen</DIV> <DIV ID="ColorSel7"><INPUT Type=checkbox name="O7" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\IntelliMenus" onClick="SubMarkSelection('7')"> Personalisierte Menüs abschalten</DIV> <DIV ID="ColorSel10"><INPUT Type=checkbox name="O10" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\WebView" onClick="SubMarkSelection('10')"> Allgemeine Aufgaben in Ordnern deaktivieren</DIV> <DIV ID="ColorSel14"><INPUT Type=checkbox name="O14" Title="HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\MinAnimate" onClick="SubMarkSelection('14')"> Minimier-Animationen abschalten</DIV> <DIV ID="ColorSel18"><INPUT Type=checkbox name="O18" Title="HKEY_CURRENT_USER\Control Panel\Desktop\FontSmoothing" onClick="SubMarkSelection('18')"> Cleartype aktivieren (sinnvoll bei TFT-Bildschirmen)</DIV> </FIELDSET> </td> <td> <FIELDSET> <LEGEND> <DIV><INPUT Type=checkbox name="G2" Title="Explorer Erweiterung" onClick="SubMarkG2"><b> Funktionalität des Explorer verbessern</b></DIV> </LEGEND> <DIV ID="ColorSel1"><INPUT Type=checkbox name="O1" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt" onClick="SubMarkSelection('1')"> Alle Datei-Erweiterungen anzeigen</DIV> <DIV ID="ColorSel2"><INPUT Type=checkbox name="O2" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden" onClick="SubMarkSelection('2')"> Versteckte Dateien und Ordner anzeigen</DIV> <DIV ID="ColorSel4"><INPUT Type=checkbox name="O4" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden" onClick="SubMarkSelection('4')"> Systemdateien anzeigen</DIV> <DIV ID="ColorSel5"><INPUT Type=checkbox name="O5" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\WebViewBarricade" onClick="SubMarkSelection('5')"> Inhalt von Systemordnern anzeigen</DIV> <DIV ID="ColorSel21"><INPUT Type=checkbox name="O21" Title="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\ForceGuest" onClick="SubMarkSelection('21')"> Keine einfache Dateifreigabe verwenden (nur Pro)</DIV> <DIV ID="ColorSel25"><INPUT Type=checkbox name="O25" Title="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\NoInternetOpenWith" onClick="SubMarkSelection('25')"> Kein Webdienst zum Öffnen unbekannter Dateien</DIV> <DIV ID="ColorSel12"><INPUT Type=checkbox name="O12" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Link" onClick="SubMarkSelection('12')"> 'Verknüpfung mit' bei Links unterbinden</DIV> <DIV ID="ColorSel38"><INPUT Type=checkbox name="O38" Title="HKEY_CLASSES_ROOT\LNKFILE\IsShortcut" onClick="SubMarkSelection('38')"> Verknüpfungspfeile entfernen</DIV> <DIV ID="ColorSel39"><INPUT Type=checkbox name="O39" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Settings - Byte 5" onClick="SubMarkSelection('39')"> Systemweit Detailansicht als Standard aktivieren</DIV> <DIV ID="ColorSel40"><INPUT Type=checkbox name="O40" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\Bags\" onClick="SubMarkSelection('40')"> Alle Ordner-Ansichten auf 'Standard' zurücksetzen</DIV> </FIELDSET> <FIELDSET> <LEGEND> <DIV><INPUT Type=checkbox name="G3" Title="Divers" onClick="SubMarkG3"><b> Weitere Funktionen konfigurieren</b></DIV> </LEGEND> <DIV ID="ColorSel15"><INPUT Type=checkbox name="O15" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz\NoRun" onClick="SubMarkSelection('15')"> Desktopbereinigungs-Assistent abstellen</DIV> <DIV ID="ColorSel24"><INPUT Type=checkbox name="O24" Title="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting\DoReport" onClick="SubMarkSelection('24')"> Fehlerberichterstattung deaktivieren</DIV> <DIV ID="ColorSel20"><INPUT Type=checkbox name="O20" Title="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows\NoPopupsOnBoot" onClick="SubMarkSelection('20')"> Keine Gerätefehlermeldungen beim Systemstart</DIV> <DIV ID="ColorSel16"><INPUT Type=checkbox name="O16" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLowDiskSpaceChecks" onClick="SubMarkSelection('16')"> Keine Warnung über zu wenig freien Speicherplatz</DIV> <DIV ID="ColorSel19"><INPUT Type=checkbox name="O19" Title="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\DEVMGR_SHOW_NONPRESENT_DEVICES" onClick="SubMarkSelection('19')"> Versteckte Geräte im Geräte-Manager anzeigen</DIV> <DIV ID="ColorSel23"><INPUT Type=checkbox name="O23" Title="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\DEVMGR_SHOW_DETAILS" onClick="SubMarkSelection('23')"> Details über Geräte im Geräte-Manager anzeigen</DIV> <DIV ID="ColorSel17"><INPUT Type=checkbox name="O17" Title="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\LinksFolderName" onClick="SubMarkSelection('17')"> 'Links'-Ordner aus den Favoriten des IE entfernen</DIV> <DIV ID="ColorSel22"><INPUT Type=checkbox name="O22" Title="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Search Page" onClick="SubMarkSelection('22')"> Google.de als Standard-Suchdienst im IE verankern</DIV> <DIV ID="ColorSel13"><INPUT Type=checkbox name="O13" Title="HKEY_CURRENT_USER\Control Panel\Sound\Beep" onClick="SubMarkSelection('13')"> Internen PC-Speaker deaktivieren</DIV> <DIV ID="ColorSel41"><INPUT Type=checkbox name="O41" Title="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Setup\RecoveryConsole\SetCommand" onClick="SubMarkSelection('41')"> SET-Command für die Wiederhstellungskonsole</DIV> </FIELDSET> </td> </tr> </TBODY> </TABLE> </form> <INPUT Type=button value="Einstellungen übernehmen" name=button1 size=52 onClick="SubSet"> <INPUT Type=button value="Aktuellen Zustand anzeigen" name=button3 size=52 onClick="SubInitFenster"> <INPUT Type=button value="Quit" name=button2 size=32 onClick="SubQuit"><br><br> <Input ID=label Type=text Value="" Size=100% style="Border:none;background-color:Buttonface;color:#006600;" READONLY> </BODY> </HTML>
