• Home
 · 
• Registry
 · 
• console application full screen

console application full screen

get your vbscript console applications running under cscript using the stdin & stdout objects for input running full-screen. and get the fore and background collor set to the color you like

Rate console application full screen

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

option explicit
dim oShell: set oShell = CreateObject("WScript.Shell")
' asume it started tweaked
dim bTweaked: bTweaked = true
' is it tweaked?
if wscript.arguments.count = 0 then
 bTweaked = false
elseif not wscript.arguments(0) = "tweaked" then 
 bTweaked = false
end if
' if not, let's tweak it
if not bTweaked then
 dim kFullScreen, kScreenColors
 kFullScreen = oShell.regRead("HKCU\Console\FullScreen")
 kScreenColors = oShell.regRead("HKCU\Console\ScreenColors")
 oShell.regwrite "HKCU\Console\FullScreen", 1, "REG_DWORD"
 oShell.regWrite "HKCU\Console\ScreenColors", 9, "REG_DWORD"
 oShell.run "cscript.exe /NoLogo """ & wscript.scriptfullname & """ tweaked"
 wscript.sleep 5000
 oShell.regwrite "HKCU\Console\FullScreen", kFullScreen, "REG_DWORD"
 oShell.regWrite "HKCU\Console\ScreenColors", kScreenColors, "REG_DWORD"
 set oShell = nothing
 wscript.quit
end if
dim oIn: set oIn = wscript.stdIn
dim oOut: set oOut = wscript.stdOut
oOut.writeLine "press enter to contintue..."
call oIn.readLine