• Home
 · 
• Registry
 · 
• Make Useful changes in Registry

Make Useful changes in Registry

Make Useful changes in Registry

Rate Make Useful changes in Registry

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'
' You have a royalty-free right to use, modify, reproduce and distribute
' the Sample Application Files (and/or any modified version) in any way
' you find useful.
' ------------------------------------------------------------------------
'*********************************
'Disclaimer: Modifying the registry can cause serious problems that may require you to reinstall your operating system. 
'I CANNOT GUARANTEE that problems resulting from modifications to the registry can be solved. Use the information 'provided at your own risk. '*********************************

L_Welcome_MsgBox_Message_Text   = "All changes have been made to registry "
L_Welcome_MsgBox_Title_Text     = "Reg. Changer"
Call Welcome()


' ********************************************************************************
' *
' * Registry related methods.
' *

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

'1.
'HKEY_CURRENT_USER\Control Panel\Mouse\SnapToDefaultButton
'this reg value forces mouse to move to default button on a window when it is first displayed
' "HKEY_CURRENT_USER\Control Panel\Mouse", "SnapToDefaultButton", "1"
WSHShell.RegWrite "HKCU\Control Panel\Mouse\SnapToDefaultButton", "1"

'2.
'HKEY_CURRENT_USER\Control Panel\Desktop\AutoEndTasks
'this reg. value Automatically Closes Non-Responding Applications on Shutdown
'1 automatically end tasks, 0 prompt for action
'for all Windows versions
WSHShell.RegWrite "HKCU\Control Panel\Desktop\AutoEndTasks","1"

'3.
'remove Shortcut to ....  prefix from shortcuts
'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer ->link
'for all win. versions.
WSHShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Link", 00, "REG_BINARY"

'4.
'Windows normally delays menus before they are displayed. For regular users this
'delay can become annoying, with this setting you to change the delay time or remove
'it altogether.
'for all Windows versions
'values are 0-999 miliseconds
WSHShell.RegWrite "HKCU\Control Panel\Desktop\MenuShowDelay", "100"

'5.
'This setting controls whether fonts are anti-aliased to appear smoother when
'displayed within Windows.
' HKEY_CURRENT_USER\Control Panel\Desktop
'Create a new string value, or modify the existing value, called "FontSmoothing" and set
'it to "2" to enable font smoothing or "0" to disable it.
''for all Windows versions
WSHShell.RegWrite "HKCU\Control Panel\Desktop\FontSmoothing", "2"

'6.
'Normally when the contents of a window change you may need to wait a few seconds, or
'press F5, to refresh the display to see the updated information. This tweak configures
'the system to perform faster automatic updates.
'HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Update
'Create a new DWORD value, or modify the existing value, named "UpdateMode" and set it
'to equal "0" for faster updates
'for all Windows versions
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Control\Update\UpdateMode",0, "REG_DWORD"
 
'7.
'This setting allow you to disable the Windows smooth scrolling function, which on an
'low-powered system can cause performance degradation.
'Modify the value, or create a new binary value, named "SmoothScroll" and set it to
'either '0' for disabled or '1' for enabled.
'HKEY_CURRENT_USER\Control Panel\Desktop
'Note: On some versions of Windows this value may be REG_BINARY (00 00 00 00 = disabled,
'01 00 00 00 = enabled) instead.
''for all Windows versions
WSHShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\SmoothScroll", 00, "REG_BINARY"

'8.
'Makes Explorer show a thumbnail version of bitmaps files in the current folder rather
'than the generic icon ordinarily used. This is a great way to preview .BMP files without
'having to open them first.
' HKEY_CLASSES_ROOT\Paint.Picture\DefaultIcon
'Modify the value of (Default) to equal '%1'.
''for all Windows versions
WSHShell.RegWrite "HKCR\Paint.Picture\DefaultIcon\default",  "%1"

'9.
'Windows Explorer caches DLLs (Dynamic-Link Libraries) in memory for a period of time
'after the application using them has been closed. This can be an inefficient use of
'memory on low memory systems, and may cause problems or delays for programmers developing
'with Windows DLL files.
'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer
'Create a new sub-key named 'AlwaysUnloadDLL' and set the default value to equal '1' to
'disable Windows caching the DLL in memory.
''for all Windows versions
WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDLL", "1"


'10.
'By default, Windows drop-down menus are aligned to the left, with this tweak you can
'change the default behavior to align the menus to the right instead.
'Create a new string value, or modify the existing value, named 'MenuDropAlignment' and
'set it to equal '1' for right alignment or '0' for left alignment.
WSHShell.RegWrite "HKCU\Control Panel\Desktop\MenuDropAlignment", "1"


' *
' * Welcome
' *
Sub Welcome()
    Dim intDoIt

    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _   
          vbOKCancel + vbInformation,       _
          L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCancel Then
        WScript.Quit
    End If
End Sub
'Written by Cafer Demiraslan Aug 2002