Create A Vbs Script To Enable Or Disable Balloon Tips

1. Start > Run > Notepad.

2. Paste the following:

Option Explicit
On Error Resume Next

Dim WSHShell, n, p, itemtype, MyBox
Set WSHShell = WScript.CreateObject("WScript.Shell")

p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\EnableBalloonTips"

itemtype = "REG_DWORD"

n = WSHShell.RegRead (p)
errnum = Err.Number

if errnum <> 1 then

WSHShell.RegWrite p, 0, itemtype
End If

If n = 0 Then
WshShell.RegWrite p, 1, itemtype
MyBox = MsgBox("Balloon Tips are now ENABLED", 64, "Show or Hide Balloon Tips")
End If

If n = 1 Then
WshShell.Regwrite p, 0, itemtype
MyBox = MsgBox("Balloon Tips are now DISABLED", 64, "Show or Hide Balloon Tips")
End If

Set WshShell = Nothing

3. Save it as balloontips.vbs

4. To disable balloon tips, click on the file. Click on the file once again to enable them.

0 comments:

Related Posts Plugin for WordPress, Blogger...