[20$ competition:] Make a tool to reveal "Pure NON-Aero Basic style" in W8-x

You need to login to view this posts content.

 

Interesting observation, u think its will revive the start menu ?
or might work with explorer7 for win8 ?

 

You can find "AeroLite.MSStyles" in C:\Windows\Resources\Themes\aero.

 

This is a shared account

 

You need to login to view this posts content.

 

You need to login to view this posts content.

 

You need to login to view this posts content.

 

it's all about DWM. - If you kill it you i can see fora second the "theme" you want. renaming dwm and restart will present you the theme you want but messes up the system (not really useable).
this theme is (i guess) more for terminal sessions as i find some entry of dwm in an exclusion list.

I also guess that there is some registry entry which might let you disable the default themen/managing. - unfortunatly in win8.1 there is no uxsms service anymore.

Asking bigmuscle should guide you to an answer.

 

renaming dwm.exe results in a chunk of the right side of the screen being useless, it cuts off anything you make fullscreen.

 

You need to login to view this posts content.

 

Windows 8.1 What you will needed:

Tools:
Unlocker1.9.2.setup (Use to RENAME dwm.exe TO dwm.exeR)
Take Ownership.reg (Use to take Ownership of dwm.exeR)
Winaero Charms Bar Killer.exe (Load and set to run at startup)


Replacement Twinui.dll 6.3.9600.16457 (Size 12.5MB): (Use to replace Twinui.dll in C:\Windows\System32)

DOWNLOAD:
dll-found.com/twinui.dll_download.html


Shutdown.vbs: (On desktop)

Code:

Set WshShell = WScript.CreateObject("WScript.Shell")
If WScript.Arguments.length = 0 Then
Set ObjShell = CreateObject("Shell.Application")
ObjShell.ShellExecute "wscript.exe", """" & _
WScript.ScriptFullName & """" &_
 " RunAsAdministrator", , "runas", 1
Else

Dim Fso
Set Fso = WScript.CreateObject("Scripting.FileSystemObject")
Fso.MoveFile "C:\Windows\System32\dwm.exeR", "C:\Windows\System32\dwm.exe"

Set objShell = CreateObject("WScript.shell")
objShell.SendKeys "%{F4}"
End If

NOTES:
Use Shutdown.vbs to restart, shutdown, sign out.


dwm.exeR.vbs: (In C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp)

Code:

Set WshShell = WScript.CreateObject("WScript.Shell")
If WScript.Arguments.length = 0 Then
Set ObjShell = CreateObject("Shell.Application")
ObjShell.ShellExecute "wscript.exe", """" & _
WScript.ScriptFullName & """" &_
 " RunAsAdministrator", , "runas", 1
Else

Dim Fso
Set Fso = WScript.CreateObject("Scripting.FileSystemObject")
Fso.MoveFile "C:\Windows\System32\dwm.exe", "C:\Windows\System32\dwm.exeR"

Dim oShell : Set oShell = CreateObject("WScript.Shell")
oShell.Run "taskkill /f /im dwm.exe", , True
End If

NOTES:
dwm.exeR.vbs will rename dwm.exe to dwm.exeR and restart dwm.exe to load this theme.

ONLINE PICS:
s27.postimg.org/bpudmtvkj/Theme.jpg

s28.postimg.org/xye0y89bh/Theme_with_Win_X_working.jpg

Start Screen and Apps Screen will be BLACKED OUT when using this theme, SO don't use the Start Button.
WinX will work with this theme.

 

There's a unattended.xml command which you can try it out

Code:

            <Themes>
                <DefaultThemesOff>ture</DefaultThemesOff>
            </Themes>

 

This setting is deprecated in Windows® 8. In Windows 8, the classic Windows visual style is not available. This information is for reference only.

technet.microsoft.com/en-us/library/ff716273.aspx