[Squ1zZy] VBS Change Resolution Registry
Posted: 30 Dec 2008, 17:27
Hey there guys,
An old friend on this forum asked me to make a little application to change a resolution of a game using the registry.
Since I didn't wanna make an executables nobody can adjust i've decided to make a little VBS that anyone can change as there desire:
What you need to do is the following:
Copy and paste the tekst between the code tags in a tekst file and rename the extension from .txt to .vbs.
Doubleclick the file.vbs, enter the height and width and you're done.
Maybe it's an idea to use this for the games that needs some registry tweaking.
Just sharing with you guys :)
An old friend on this forum asked me to make a little application to change a resolution of a game using the registry.
Since I didn't wanna make an executables nobody can adjust i've decided to make a little VBS that anyone can change as there desire:
Code: Select all
' Made By: Squ1zZy
' Date: 30/12/2008
Option Explicit
Dim objShell
Dim StrWidth, StrHeight, StrNameWidth, StrNameHeight, StrRegistry
StrNameWidth = "ScreenResolutionWidth"
StrNameHeight = "ScreenResolutionHeight"
StrWidth = InputBox("Enter the Width:")
StrHeight = InputBox("Enter the Height:")
StrRegistry = "HKCUSOFTWAREUbisoftShaunWhiteSnowboarding1.0Engine"
Set objShell = CreateObject("WScript.Shell")
objShell.RegWrite strRegistry & strNameWidth, "REG_SZ"
objShell.RegWrite strRegistry & strNameWidth, strWidth, "REG_SZ"
objShell.RegWrite strRegistry & strNameHeight, "REG_SZ"
objShell.RegWrite strRegistry & strNameHeight, strHeight, "REG_SZ"
Wscript.Echo "Resolution set to " & strWidth & "x" & StrHeight
WScript.Quit
What you need to do is the following:
Copy and paste the tekst between the code tags in a tekst file and rename the extension from .txt to .vbs.
Doubleclick the file.vbs, enter the height and width and you're done.
Maybe it's an idea to use this for the games that needs some registry tweaking.
Just sharing with you guys :)