by Cafer Demiraslan (Turquie/Turkey) (1 Submission)
Category: Registry
Compatability: VB Script
Difficulty: Unknown Difficulty
Originally Published: Mon 9th September 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Make Useful changes in Registry-II (revision)
VBcoders
'operating system. WE 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"
Call Welcome()
'
'C*
'
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", "81"
'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
'. Write Bin. values inversely
''for all Windows versions
WSHShell.RegWrite "HKCU\Control Panel\Desktop\SmoothScroll", 1, "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\", "%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"
'11.
'By default Windows doesnt display file extensions with this tweak you will show file extensions for
' known and unknown files
' change HideFileExt value to 0 for enabling, 1 for disabling this feature
'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt ",0, "REG_DWORD"
'12.
'This setting affects the number of times the icon flashes if above value was not set to zero.
'Create a new DWORD value, or modify the existing value called 'ForegroundFlashCount' set the
' value (in decimal) to the number times to flash the taskbar icon, setting the value to '0' cases the icon
' to flash infinitely. The default value is '3'.
'for all win version
WSHShell.RegWrite "HKCU\Control Panel\Desktop\ForegroundFlashCount",7, "REG_DWORD"
'13.
'This tweak allows you to control the Window focus using the mouse cursor, by making an application
'active simply by moving your mouse cursor over it.
'Open your registry and find the key [HKEY_CURRENT_USER\Control Panel\Mouse]
'Create a new DWORD value, or modify the existing value, named ActiveWindowTracking' and set it to
' equal '1' for enabled or '0' for disabled.
'for Windows NT, 2000 and XP
WSHShell.RegWrite "HKCU\Control Panel\Mouse\ActiveWindowTracking'",1, "REG_DWORD"
' *
' * Welcome
' *
Sub Welcome()
Dim intDoIt
Dim cvp
cvp= MsgBox("Do you want to execute VBS file? ",vbOkCancel+vbQuestion,"Hello!")
if cvp=vbCancel then
WScript.Quit
Exit Sub
End If
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
