Ответ: Определить цвет
Steve сказал(а):
не обязательно Илл.. надо просто найти примеры по работе с окнами (FindWindow) и т.д.
Хмм.. и как же связать пиксель в изображении и пиксель на экране? Пусть сделали масштаб такой, что 1:1 показывается, но как узнать что pix(1,1) в jpg это pix(115,99) на экране?
Может какой тестовый файлик покажите?
что-что типа этого:
Public Sub PushTheButton()
Dim hWnd As Long
Dim lngRet As Long
Dim xcoord As Long, ycoord As Long
Dim retval As Long
hWnd = FindWindow(vbNullString, "Adobe Illustrator")
'PostMessage hwnd, WM_SETFOCUS, 0, 0
lngRet = SetForegroundWindow(hWnd)
'lngRet = BringWindowToTop(hwnd)
'keybd_event VK_I, 0, 0, 0
SendKeys "{i}", True
'Dim hWndActive As Long
' Dim rc As RECT
' Dim oldAccel(0 To 2) As Long
' Dim newAccel(0 To 2) As Long
' Dim oldSpeed As Long
' Dim newSpeed As Long
''
' hWndActive = GetFocus()
' GetWindowRect hWndActive, rc
' newSpeed = 1
' SystemParametersInfo SPI_GETMOUSE, 0, oldAccel(0), 0
' SystemParametersInfo SPI_GETMOUSESPEED, 0, oldSpeed, 0
' SystemParametersInfo SPI_SETMOUSE, 0, newAccel(0), SPIF_SENDCHANGE
' SystemParametersInfo SPI_SETMOUSESPEED, 0, newSpeed, SPIF_SENDCHANGE
' mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, 10, 10, 0, 0
' mouse_event MOUSEEVENTF_MOVE, 150, 110, 0, 0
' SystemParametersInfo SPI_SETMOUSE, 0, oldAccel(0), SPIF_SENDCHANGE
' SystemParametersInfo SPI_SETMOUSESPEED, 0, oldSpeed, SPIF_SENDCHANGE
SetCursorPos 600, 610
mouse_event WM_LBUTTONDBLCLK Or MK_LBUTTON, 0&, 0&, 1, 0
End Sub
Теперь следующий вопрос, как считать текущий цвет из палитры инструментов ?
