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
AI
Resumo por IA: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Código fonte
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
Comentários originais (3)
Recuperado do Wayback Machine