04-01-2010, 02:21 PM
I am not able to figure out to perform double click there. If I get something will let you know.
however, I can solve your co-ordinate issue -
try the code below. the code is capable to perform the left/right click on any application icon at notification area.
hope this helps
however, I can solve your co-ordinate issue -
try the code below. the code is capable to perform the left/right click on any application icon at notification area.
Code:
'Desc- Window Tray
Set oWindow = Description.Create
oWindow("regexpwndclass").value = "Shell_TrayWnd"
'Desc - WinToolBar: Notification Area
Set oSysTray= Description.Create
oSysTray("nativeclass").value = "ToolbarWindow32"
oSysTray("text").value = "Notification Area"
'Get Number of items in Notification area
nItems = Window(oWindow).WinToolbar(oSysTray).GetItemsCount
msgbox nItems
For nItem = 1 To nItems
'Get Name
sItemName = Window(oWindow).WinToolbar(oSysTray).GetItem(nItem)
If sItemName ="Skype" Then ' if the name is your required Application
x = Window(oWindow).WinToolbar(oSysTray).GetROProperty ("X")
y = Window(oWindow).WinToolbar(oSysTray).GetROProperty ("Y")
Window(oWindow).WinToolbar(oSysTray).Press "Skype",micLeftBtn 'For Left Click
Window(oWindow).WinToolbar(oSysTray).Press "Skype",micRightBtn 'For Right Click
'Look For Menu option to open and select
Set deviceReplay = CreateObject( "Mercury.DeviceReplay" )
deviceReplay.PressKey VK_UP
deviceReplay.PressKey VK_UP
deviceReplay.PressKey VK_RETURN
End If
Next
hope this helps