[St0rm]

Здравствуйте.Проблема в следующем:

нужно получить хенд кнопки "Отправить" в Skype.Все хендлы окон я получил включая сам edit(поле ввода сообщения),скорее всего эта кнопка как то с ним склеена/совмещена(где вычитывал такое,возможно неправильно понял и ошибаюсь).
По этой кнопке нужно щёлкнуть левой кнопкой мыши(vk_return не нужен,именно кнопка мыши).Положение окна может меняться,по этому координаты вычислять тоже неэффективно.Ребят помогите пожалуйста кодом,чтобы щелкнуть по этой кнопке левой кнопкой мыши.

приложу скрин))

[Bargest]

У неё может и не быть хэндла. Эта кнопка может быть простой картинкой, а форма - отслеживать нажатие, когда координаты мыши принадлежат картинке.

[lmikle]

Можно получить координаты окна, высчитать положение кнопки и по нужным координатам клямкнуть мышкой. Как говорилось выше, у этой кнопки хэндла может и не быть...

[St0rm]

хм,можете привести пример?))
если я правильно понимаю,окно может тоже в размерах меняться и кнопка передвигаться соответственно,разве что она высчитывает когда курсор находится на этой картинке анимирует её и при "клаце" выполняет отправку.

ок.Дайте код,который бы высчитывал координаты этой голубенькой кнопочки ну а дальше я думаю по переменным расфосую и отдам переменные координатам мыши.
p.s. я не представляю как может выглядеть такое.

[angvelem]

Код:

var
  pr : TPoint;
  aRect : TRect;
begin
  GetGursorPos(pt); // узнать позицию мышки
  ScreenToClient(Wnd, pt); // перевести координаты 'десктопа' в оконные Skype-а
  if PtInRect(aRect, pt) then // в aRect уже должны "лежать" предпологаемые координаты кнопки
  begin
    // что-то делаем
  end;
end;

это только общее направление для размышления

[St0rm]

хорошо,завтра попробую.
хотя я всё еще думаю: форму ведь можно растянуть,а вместе с ней и координаты кнопки изменяться.так нужно придумать что бы каждый раз не вбивать новые координаты кнопки(+еще высчитывать).программа будет стоять не только у меня на компьютере,так что надо как то автоматизировать поиск это кнопки(ну или определение её координатов)

[Bargest]

Можно найти в памяти программы место, где лежат переменные координат кнопки, и читать оттуда. Только вот скорее всего там было что-то динамическое, и адрес найти будет проблематично.

[lmikle]

Кнопка всегда остается в одном положении относительно двух сторон окна (обычно, извращенный дизайн не рассматриваем). Соответсвенно, получив координаты окна (точнее его Rect), всегда можно посчитать где эта кнопка находится в экранных координатах.

[Pyro]

я писал такой неэффективный брутфорс - делает скриншот и ищет кнопку по нему, если такой нужен, могу поискать его

[St0rm]

Pyro,я так понимаю он по цветам будет искать?) скинь,посмотрю.
lmikle,покажи как пожалуйста.(незнаю,но отношусь скептически.)
Bargest, вот это было бы хорошим вариантом.узнать из памяти координаты кнопки на форме и передать их маусу и клацнуть. думаю это более стабильный метод.

[Pyro]

особенность: при поиске использует только первую полоску, т.е. what должна но не обязана быть высотой в 1px

function Find(what, where: tBitmap; center: boolean = true): tPoint; overload;
CONST
PixelCountMax = 32768;
TYPE
pRGBArray = ^TRGBArray;
TRGBArray = ARRAY[0..PixelCountMax-1] OF TRGBTriple;
var
ax, ay, x, y, wa, ha, wx, wy: Integer;
xfrom, yfrom: Integer; // c: TControl;
o, p: pRGBArray;

function cc(o, p: TRGBTriple): boolean;
begin
if (o.rgbtBlue <> p.rgbtBlue) or (o.rgbtGreen <> p.rgbtGreen) or (o.rgbtRed <> p.rgbtRed) then
result := false
else
result := true;
end;

label
vso, next;
begin wa := what.Width; ha := what.Height;
{dx := 0; dy := 0;} ay := 0; ax := 0; wx := where.Width;
xfrom := -1; yfrom := -1; wy := where.Height;
o := what.ScanLine[ay];

for y := 0 to wy - 1 do
begin
p := where.ScanLine[y];
for x := 0 to wx-wa - 1 do
if cc(p[x], o[ax]) then
begin
while (ax < wa-1) and (x+ax < wx - 1) do
begin
if not cc(p[x+ax], o[ax]) then
begin
ax := 0;
goto next;
end;
inc(ax);
end;
xfrom := x;
yfrom := y;
goto vso;
next:
end;
end;
result := point(-1, -1);
exit;

vso:
if not center then
result := point(xfrom, yfrom)
else
result := point(xfrom +wa div 2, yfrom +ha div 2);
// result := point(xfrom+ wx div 2, yfrom + wy div 2);
end;

ps магически, но работает

[St0rm]

Pyro,за гранью моего понимания.
Приведу пример как делал я:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  h1,h2,h3,h4,h5,h6:HWND;
begin
  h1:=FindWindow('tSkMainForm',nil);
  h2:=FindWindowEx(h1,0,'TConversationsControl',nil);
  h3:=FindWindowEx(h2,0,'TAccessibleEdit',nil);
  SendMessage(h3, WM_Settext, 0,integer(pchar('echo123')));
  SendMessage(h3, WM_KEYDOWN,VK_RETURN ,0 );
  SendMessage(h3, WM_KEYUP, VK_RETURN, 0);
  h4:=FindWindow('TConversationForm',nil);
  h5:=FindWindowEx(h4,0,'TChatEntryControl',nil);
  h6:=FindWindowEx(h5,0,'TChatRichEdit',nil);
  SendMessage(h6, WM_Settext, 0,integer(pchar('<u>я тут.</u>')));
  SendMessage(h6, WM_KEYDOWN,VK_SHIFT ,0 );
  SendMessage(h6, WM_KEYDOWN,VK_CONTROL ,0 );
  SendMessage(h6, WM_KEYDOWN,VK_RETURN ,0 );
  SendMessage(h6, WM_KEYUP, VK_RETURN, 0);
  SendMessage(h6, WM_KEYUP,VK_SHIFT ,0 );
  SendMessage(h6, WM_KEYUP,VK_CONTROL ,0 );
end;
end.

надеюсь вы суть поняли=))
нужно отправить текст форматированный html'ом=)
в скайпе отправляеться сочетанием клавиш ctrl+shift+левая кнопка мыши.
enter'ом не отправляет.

[Pyro]

пример работы той функции, для поиска картинки на экране
(особенность: при поиске использует только первую полоску, т.е. what должна но не обязана быть высотой в 1px)

[St0rm]

Pyro,значит мне нужно в image1 вставить картинку моей кнопки со скайпа?
как в 1 посте например картинка.

[St0rm]

есть еще API,предоставляемый скайпом.Skype4com,но там я не нашёл как отправить текст форматированный html'ом.по возможности гляньте пожалуйста.
p.s. другого выхода кроме предложенного Pyro нету?))