Making TrayTip clickable

[jaded]

Hi,

I'm pretty new to AutoIT, but beginning to get the hang of it.

Still somethings are too advanced for me, so I'm hoping you can help me out here

I have this script which embeds a web page.

The script checks the web page for a string every 5th minute. If it finds the given string, it displays a TrayTip.

What i want to is to make that TrayTip clickable, so when you click on it, it opens/maximizes the program, which is normally minimized to tray.

I have found this script, that works by itself, but I am haveing a hard time implementing it to my own.

#include
#include
#include
#include

Dim $iInterval = 8, $iInit
Dim $iMSInterval = $iInterval * 1000
Dim $aWindows, $hShell_TrayWnd

TrayTip('Title', 'Text', $iInterval)

$aWindows = WinList('[CLASS:tooltips_class32]')
$hShell_TrayWnd = WinGetHandle('[CLASS:Shell_TrayWnd]')

For $i = 1 To $aWindows[0][0]
If _WinAPI_GetParent($aWindows[$i][1]) = $hShell_TrayWnd And _
BitAND(_WinAPI_GetWindowLong($aWindows[$i][1], $GWL_STYLE), $WS_VISIBLE) Then

ExitLoop
EndIf
Next

$iInit = TimerInit()


While TimerDiff($iInit) <= $iMSInterval
If Not _GUIToolTip_ToolExists($aWindows[$i][1]) Then
MsgBox(64, 'Notification', 'ToolTip was clicked')
ExitLoop
EndIf
Sleep(50)
WEnd

Can anyone please guide me in getting this function into my script as I'm unsure where to put the different sections

What I have tried gives me this error all the time:

Error: "Array variable has incorrect number of subscripts or subscript dimension range exceeded."

Thanks in advance

Morten

My script:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <IE.au3>
#include <GuiToolTip.au3>
#include <WinAPI.au3>

Opt("GUIEventOptions",1)
Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)

TraySetOnEvent($TRAY_EVENT_PRIMARYUP,"SpecialEvent")

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
GUICreate("CWT Knowledge Base", 950, 600, _
(@DesktopWidth - 900) / 2, (@DesktopHeight - 600) / 2, _
$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 950, 600)

; Minimize window at startup
GuiSetState(@SW_MINIMIZE)
GuiSetState(@SW_HIDE)
;GUISetState() ;Show GUI

_IENavigate ($oIE, "http://my-address.com")

; Sets number of minutes for error checking and starts a timer
$time = 5 ; Number of minutes to wait before each check
$temp = TimerInit()

While 1

; This check the webpage for current IT issues every $time minute
if TimerDiff($temp) > 60*($time * 1000) Then
$sText = _IEBodyReadText($oIE)
If StringInStr($sText, "major") Then ; checks if there is an error
;_IEAction($oIE, "refresh")
TrayTip ( "There is a problem at the moment!", "Click here to see the details!", 1, 22) ; The tooltip message.
EndIf
$temp = TimerInit() ; Reset TimerInit
Else
Sleep(10) ; so the script doesn't overload the CPU
EndIf


$msg = GuiGetMsg()

Select
Case $msg = $GUI_EVENT_MINIMIZE
MinimizeApp()

Case $msg = $GUI_EVENT_CLOSE
MinimizeApp()

EndSelect

WEnd

Func SpecialEvent()
GuiSetState(@SW_RESTORE)
GuiSetState(@SW_Show)
TraySetState(2) ; hide
EndFunc

Func MinimizeApp()
GuiSetState(@SW_MINIMIZE)
GuiSetState(@SW_HIDE)
TraySetState(1) ; show

If @OSVersion = "WIN_NT4" or @OSVersion = "WIN_ME" or @OSVersion = "WIN_98" or @OSVersion = "WIN_95" then
TraySetToolTip ("MyScript - click here to restore")
Else
Traytip ("MyScript", "click here to restore", 5)
EndIf
EndFunc


; Get rid of scrollbars
If IsObj($oIE.document.documentElement) Then
; HTML4 transitional or strict
$oIE.document.documentElement.style.overflow = "hidden"
Else
; IE in quirks mode
$oIE.documentElement.scroll = "no"
EndIf

GUIDelete()

Exit

[OliverA]

Try this

Ops wrong link, the second script i mean by rover

Or also this:

Edited April 19, 2013 by OliverA

[somdcomputerguy]

Hello, welcome to the AutoIt forums. See the Tray* items in the Help file.

[jaded]

Thank you both for responding

I did find the posts you refer to Oliver and I did also check the Help files, but apparently it is too advanced for me, to get into my head hehe. There is alot of lines that i have no clue what does and where to put.

Is the script I found and posted not good enough to use?

I have tried in incoorporate it like this:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <IE.au3>
#include <GuiToolTip.au3>
#include <WinAPI.au3>

Opt("GUIEventOptions",1)
Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)

Dim $iInterval = 8, $iInit
Dim $iMSInterval = $iInterval * 1000
Dim $aWindows, $hShell_TrayWnd

TraySetOnEvent($TRAY_EVENT_PRIMARYUP,"SpecialEvent")

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
GUICreate("CWT Knowledge Base", 950, 600, _
(@DesktopWidth - 900) / 2, (@DesktopHeight - 600) / 2, _
$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 950, 600)

; Minimize window at startup
GuiSetState(@SW_MINIMIZE)
GuiSetState(@SW_HIDE)
;GUISetState() ;Show GUI

_IENavigate ($oIE, "http://my-address.com")

; Sets number of minutes for error checking and starts a timer
$time = 5 ; Number of minutes to wait before each check
$temp = TimerInit()

While 1

; This check the webpage for current IT issues every $time minute
if TimerDiff($temp) > 60*($time * 1000) Then
$sText = _IEBodyReadText($oIE)
If StringInStr($sText, "major") Then ; checks if there is an error
;_IEAction($oIE, "refresh")
TrayTip ( "There is a problem at the moment!", "Click here to see the details!", $iInterval) ; The tooltip message.
EndIf
$temp = TimerInit() ; Reset TimerInit
Else
Sleep(10) ; so the script doesn't overload the CPU
EndIf




$aWindows = WinList('[CLASS:tooltips_class32]')
$hShell_TrayWnd = WinGetHandle('[CLASS:Shell_TrayWnd]')

For $i = 1 To $aWindows[0][0]
If _WinAPI_GetParent($aWindows[$i][1]) = $hShell_TrayWnd And _
BitAND(_WinAPI_GetWindowLong($aWindows[$i][1], $GWL_STYLE), $WS_VISIBLE) Then

ExitLoop
EndIf
Next

$iInit = TimerInit()


While TimerDiff($iInit) <= $iMSInterval
If Not _GUIToolTip_ToolExists($aWindows[$i][1]) Then
MsgBox(64, 'Notification', 'ToolTip was clicked')
ExitLoop
EndIf
Sleep(50)
WEnd




$msg = GuiGetMsg()

Select
Case $msg = $GUI_EVENT_MINIMIZE
MinimizeApp()

Case $msg = $GUI_EVENT_CLOSE
MinimizeApp()

EndSelect

WEnd

Func SpecialEvent()
GuiSetState(@SW_RESTORE)
GuiSetState(@SW_Show)
TraySetState(2) ; hide
EndFunc

Func MinimizeApp()
GuiSetState(@SW_MINIMIZE)
GuiSetState(@SW_HIDE)
TraySetState(1) ; show

If @OSVersion = "WIN_NT4" or @OSVersion = "WIN_ME" or @OSVersion = "WIN_98" or @OSVersion = "WIN_95" then
TraySetToolTip ("MyScript - click here to restore")
Else
Traytip ("MyScript", "click here to restore", 5)
EndIf
EndFunc


; Get rid of scrollbars
If IsObj($oIE.document.documentElement) Then
; HTML4 transitional or strict
$oIE.document.documentElement.style.overflow = "hidden"
Else
; IE in quirks mode
$oIE.documentElement.scroll = "no"
EndIf

GUIDelete()

Exit

Edited April 22, 2013 by jaded

[jaded]

Can anyone help me with what I am doing wrong?

[MouseSpotter]

You example pops up a tooltip which when clicked gives a 'ToolTip was clicked' message.

Exactly what is not happening that you expect to happen?

[jaded]

Hi Wayfarer,

It doesn't work when I have embedded it in my code.

I get an error when i start the program

Line 6582 (File "Testing.exe"):

Error: Array variable has incorrect number of subscript or subscript dimension range exceeded.

[MouseSpotter]

Ok ... that means you have complied the code into "testing.exe"

Does the testing.au3 script run ok (scite - F5) ? (assuming testing.exe was complied from testing.au3)

p.s. Wayfarer is a forum reward label - not my member name

Edited May 3, 2013 by MouseSpotter

[careca]

That error comes up because in line 69:

If Not _GUIToolTip_ToolExists($aWindows[$i][1]) Then

$i is not set.

[jaded]

p.s. Wayfarer is a forum reward label - not my member name

Hehe sry about that mate.. Didn't notice

I get the same error when running the .au3 (F5)

So how should i set $i for it to work?

Thanks

Morten

[careca]

With a value of 1 it doesn't crash anymore, what else is wrong in the script? what else is it supposed to do?

[jaded]

I did try to set $i = 1, but when i run the script, the MsgBox pops up all the time Or the other error.

So I guess I'm setting it in the wrong place - though I think I tried everything

[careca]

Yes it does, still need the answer to the question i did.

[jaded]

Oooh, well it's supposed to wait and only appear when you click on the TrayTip

[careca]

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <IE.au3>
#include <GuiToolTip.au3>
#include <WinAPI.au3>

Opt("GUIEventOptions",1)
Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)

Dim $iInterval = 8, $iInit
Dim $iMSInterval = $iInterval * 1000
Dim $aWindows, $hShell_TrayWnd

TraySetOnEvent($TRAY_EVENT_PRIMARYUP,"SpecialEvent")
TraySetOnEvent($TRAY_EVENT_SECONDARYDOWN, "PressedTray")

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
GUICreate("CWT Knowledge Base", 950, 600, _
(@DesktopWidth - 900) / 2, (@DesktopHeight - 600) / 2, _
$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 950, 600)

; Minimize window at startup
GuiSetState(@SW_MINIMIZE)
GuiSetState(@SW_HIDE)
;GUISetState() ;Show GUI

_IENavigate ($oIE, "http://my-address.com")

; Sets number of minutes for error checking and starts a timer
$time = 5 ; Number of minutes to wait before each check
$temp = TimerInit()

While 1

; This check the webpage for current IT issues every $time minute
if TimerDiff($temp) > 60*($time * 1000) Then
$sText = _IEBodyReadText($oIE)
If StringInStr($sText, "major") Then ; checks if there is an error
;_IEAction($oIE, "refresh")
TrayTip ( "There is a problem at the moment!", "Click here to see the details!", $iInterval) ; The tooltip message.
EndIf
$temp = TimerInit() ; Reset TimerInit
Else
Sleep(10) ; so the script doesn't overload the CPU
EndIf




$aWindows = WinList('[CLASS:tooltips_class32]')
$hShell_TrayWnd = WinGetHandle('[CLASS:Shell_TrayWnd]')

For $i = 1 To $aWindows[0][0]
If _WinAPI_GetParent($aWindows[$i][1]) = $hShell_TrayWnd And _
BitAND(_WinAPI_GetWindowLong($aWindows[$i][1], $GWL_STYLE), $WS_VISIBLE) Then

ExitLoop
EndIf
Next

;$iInit = TimerInit()


;While TimerDiff($iInit) <= $iMSInterval
;If Not _GUIToolTip_ToolExists($aWindows[1][1]) Then
;MsgBox(64, 'Notification', 'ToolTip was clicked')
;ExitLoop
;EndIf
;Sleep(50)
;WEnd




$msg = GuiGetMsg()

Select
Case $msg = $GUI_EVENT_MINIMIZE
MinimizeApp()

Case $msg = $GUI_EVENT_CLOSE
MinimizeApp()

EndSelect

WEnd

Func PressedTray()
    MsgBox(64, 'Notification', 'ToolTip was clicked with RMB')
EndFunc

Func SpecialEvent()
GuiSetState(@SW_RESTORE)
GuiSetState(@SW_Show)
TraySetState(2) ; hide
MsgBox(64, 'Notification', 'ToolTip was clicked')
EndFunc

Func MinimizeApp()
GuiSetState(@SW_MINIMIZE)
GuiSetState(@SW_HIDE)
TraySetState(1) ; show

If @OSVersion = "WIN_NT4" or @OSVersion = "WIN_ME" or @OSVersion = "WIN_98" or @OSVersion = "WIN_95" then
TraySetToolTip ("MyScript - click here to restore")
Else
Traytip ("MyScript", "click here to restore", 5)
EndIf
EndFunc


; Get rid of scrollbars
If IsObj($oIE.document.documentElement) Then
; HTML4 transitional or strict
$oIE.document.documentElement.style.overflow = "hidden"
Else
; IE in quirks mode
$oIE.documentElement.scroll = "no"
EndIf

GUIDelete()

Exit

[jaded]

Nothing happens here on my PC when i press the TrayTip with the code you pasted. Only if I click on the tray icon. :s

[careca]

oh, my bad, confused with trayicon, dunno if i can help with that, ill play around with GUIGetMsg and see if i can come up with something.

Edited May 7, 2013 by careca

[jaded]

No problem, i got confused as well and thought i had done it wrong.

Thanks for looking into it And if it helps, in my first post, the script works alone, but not when I implement it in my own code.

[jaded]

So, this seems to work (the press traytip part), however after I press the traytip and the app is maximized, it closes with an error shortly after.

---------------------------------------------------------------------

AutoIT Error

Line 248 (File "C:Users....au3"):

If Not_GUIToolTip_ToolExists(@aWindows[$i][1]) Then

If Not_GUIToolTip_ToolExists(^ ERROR

Error: Array variable has incorrect number of subscripts or subscript dimension range exceeded.

---------------------------------------------------------------------

 

Can you help plz?

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <IE.au3>
#include <GuiToolTip.au3>
#include <WinAPI.au3>
#include <Misc.au3>

$DllHandle = DllOpen("user32.dll")

Opt("GUIEventOptions",1)
Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)

TraySetOnEvent($TRAY_EVENT_PRIMARYUP,"MaximizeApp")

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
GUICreate("CWT Knowledge Base", 950, 600, _
        (@DesktopWidth - 900) / 2, (@DesktopHeight - 600) / 2, _
        $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 950, 600)

GUISetIcon("logo.ico")
TraySetIcon("logo.ico")
; Minimize window at startup
GuiSetState(@SW_MINIMIZE) 
GuiSetState(@SW_HIDE)
;GUISetState()       ;Show GUI

_IENavigate ($oIE, "http://cwtkb.jaded.dk")

; Sets number of minutes for error checking and starts a timer
$time = 1 ; Number of minutes to wait before each check
$temp = TimerInit()

Dim $iInterval = 8, $iInit
Dim $iMSInterval = $iInterval * 1000
Dim $aWindows, $hShell_TrayWnd

While 1
      
   ; This checks the webpage for current IT issues every $time minute
   if TimerDiff($temp) > 60*($time * 10) Then
      $sText = _IEBodyReadText($oIE)
      If StringInStr($sText, "major") Then ; checks if there is an error
      ;_IEAction($oIE, "refresh")
      TrayTip ( "There is a problem at the moment!", "Click here to see the details!", 1, 22) ; The tooltip message, and timeout.
     
     
     
      $aWindows = WinList('[CLASS:tooltips_class32]')
      $hShell_TrayWnd = WinGetHandle('[CLASS:Shell_TrayWnd]')

      For $i = 1 To $aWindows[0][0]
        If _WinAPI_GetParent($aWindows[$i][1]) = $hShell_TrayWnd And _
          BitAND(_WinAPI_GetWindowLong($aWindows[$i][1], $GWL_STYLE), $WS_VISIBLE) Then

          ExitLoop
        EndIf
      Next

      $iInit = TimerInit()


      While TimerDiff($iInit) <= $iMSInterval
        If Not _GUIToolTip_ToolExists($aWindows[$i][1]) Then
          ;MsgBox(64, 'Notification', 'ToolTip was clicked')
          MaximizeApp()
          ExitLoop
        EndIf

        Sleep(50)
      WEnd

     
      EndIf
      $temp = TimerInit() ; Reset TimerInit
   Else
      Sleep(10) ; so the script doesn't overload the CPU
   EndIf


   ; This finds the active TrayTip and position
   $hWnd = _WinAPI_FindWindow("tooltips_class32", "")
   $aWinPos = WinGetPos($hWnd)
   
   If $aWinPos Then
      ; Check if LeftMouseButton is pressed withing the TrayTip position...
      If _IsPressed("01", $DllHandle) Then
        $aMousePos = MouseGetPos()
        If ($aMousePos[0] >= $aWinPos[0]) And ($aMousePos[0] <= $aWinPos[0] + $aWinPos[2]) And _
            ($aMousePos[1] >= $aWinPos[1]) And ($aMousePos[1] <= $aWinPos[1] + $aWinPos[3]) Then
            MaximizeApp() ; ... if it is, then maximize app
        EndIf
      EndIf
   EndIf

   $msg = GuiGetMsg()
   
   Select
      Case $msg = $GUI_EVENT_MINIMIZE 
         MinimizeApp()           

      Case $msg = $GUI_EVENT_CLOSE
         MinimizeApp()
      
   EndSelect
   
WEnd



Func MaximizeApp()
    GuiSetState(@SW_RESTORE)
    GuiSetState(@SW_Show)
    TraySetState(2) ; hide
EndFunc

Func MinimizeApp()
   GuiSetState(@SW_MINIMIZE)
   GuiSetState(@SW_HIDE)
   TraySetState(1) ; show
   
   ;If @OSVersion = "WIN_NT4" or @OSVersion = "WIN_ME" or @OSVersion = "WIN_98" or @OSVersion = "WIN_95" then
    ;   TraySetToolTip ("CWT Knowledge Base - click here to restore")
   ;Else
    ;   Traytip ("CWT Knowledge Base", "click here to restore", 5)
   ;EndIf
EndFunc


; Get rid of scrollbars
If IsObj($oIE.document.documentElement) Then
    ; HTML4 transitional or strict
    $oIE.document.documentElement.style.overflow = "hidden"
Else
    ; IE in quirks mode
    $oIE.documentElement.scroll = "no"
EndIf

GUIDelete()
DllClose($DllHandle)
Exit

Thx

Morten

Edited May 28, 2013 by jaded

[careca]

Hello, the problem i see is that you're using [$i] outside of the FOR loop, so when it reaches this line it doesn't know what to do.

_GUIToolTip_ToolExists($aWindows[$i][1])