Scripting for Balloon Pop ups and Alerts
Tuesday, August 1, 2006 by JukEboXAuDiO | Discussion: DesktopX
I made a bar on the left of my screen with DesktopX with my systray icons and everyone once and a while when something that involves a balloon on my systray come on it comes from the bottom right and not the systray icon it belongs to on the left. Is there a why to fix that?
Also I have a bar for taskbar programs but when someo IMs me nothin happens to the icon to alert me. Is there a way to fix and or code a way for that as well?
Reply #2 Wednesday, August 2, 2006 10:58 AM
As for the taskbar flashing to alert you about IM messages: I'm not sure, I thought DX supported that feature. But I could be wrong. It's be odd if it didn't because ObjectBar is capable of that.
Reply #3 Wednesday, August 2, 2006 10:18 PM
While theoretically possible this is just not practical.
Please login to comment and/or vote for this skin.
Welcome Guest! Please take the time to register with us.
There are many great features available to you once you register, including:
- Richer content, access to many features that are disabled for guests like commenting on the forums and downloading skins.
- Access to a great community, with a massive database of many, many areas of interest.
- Access to contests & subscription offers like exclusive emails.
- It's simple, and FREE!







Reply #1 Wednesday, August 2, 2006 5:39 AM
Sub Object_OnScriptEnter
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
End Sub
Sub Object_OnScriptExit
Set WshShell = Nothing
End Sub