function systray.ButtonClick _ ' функция нажатия кнопки в тулбаре
(byval hWnd as HWND, _ ' хэндл панели инструментов
byval nButton as integer, _ ' номер кнопки в панели инструментов - отсчет с нуля
byval click as integer) as BOOL ' имитация клик мышкой
dim bytesread as DWORD
dim tRc as RECT ' координаты окна тулбара
dim rc as RECT ' локальные координаты кнопки
GetWindowRect(hWnd,@tRc) ' получим координаты тулбара относительно экрана
SendMessage(hwnd,TB_GETITEMRECT,nButton,cast(lparam,lpRect)) ' получим локальные координаты кнопки
if ReadProcessMemory(hTbProcess,lpRect,@rc, sizeof(rc),@bytesread) = 0 then ' прочитаем RECT из памяти  
return 0
end if

SetForegroundWindow(hWnd) ' поставим окно тулбара на передний план- это надо, чтоб нормально появлялось контекстное меню  
SetCursorPos(tRc.left+rc.left,tRc.top+rc.top) ' поставим курсор по координатам кнопки
sleep_(70) ' это надо, чтоб успело чтото обновиться в панели, иначе не всегда нормально работает  
select case click
case left_click ' левый клик
SendMessage(hWnd, WM_LBUTTONDOWN,0, MAKELPARAM(rc.left,rc.top)) ' нажмем левую кнопку мыши по координатам rect
SendMessage(hWnd, WM_LBUTTONUP,0,MAKELPARAM(rc.left,rc.top)) ' отпустим левую кнопку мыши
case right_click ' правый клик
SendMessage(hWnd, WM_RBUTTONDOWN,0, MAKELPARAM(rc.left,rc.top)) ' нажмем правую кнопку мыши по координатам rect
SendMessage(hWnd, WM_RBUTTONUP,0,MAKELPARAM(rc.left,rc.top)) ' отпустим правую кнопку мыши
case double_left_click ' двойной левый клик
'SendMessage(hWnd, WM_LBUTTONDBLCLK, 0,MAKELPARAM(rc.left,rc.top)) ' двойной левый клик мыши по координатам rect
case double_right_click ' двойной правый клик
SendMessage(hWnd, WM_RBUTTONDBLCLK, 0,MAKELPARAM(rc.left,rc.top)) ' двойной правый клик мыши по координатам rect

end select
function = 1
end function

function round(byval x as double) as longint
function = int(x+0.5)
end function

constructor FBSCREEN()
screenX= GetSystemMetrics(SM_CXSCREEN) ' получим у системы разрешение оси x
screenY= GetSystemMetrics(SM_CYSCREEN) ' получим у системы разрешение оси y
end constructor