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
Original Author: DVM
Code
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("HKCUConsoleFullScreen")
kScreenColors = oShell.regRead("HKCUConsoleScreenColors")
oShell.regwrite "HKCUConsoleFullScreen", 1, "REG_DWORD"
oShell.regWrite "HKCUConsoleScreenColors", 9, "REG_DWORD"
oShell.run "cscript.exe /NoLogo """ & wscript.scriptfullname & """ tweaked"
wscript.sleep 5000
oShell.regwrite "HKCUConsoleFullScreen", kFullScreen, "REG_DWORD"
oShell.regWrite "HKCUConsoleScreenColors", 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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.