[LifeD]

очень нужно! уже несколько дней гуглю, но особых результатов не дало. думаю каждый из вас знает, что такое майл ру агент. так вот, мне нужно создать программу, чтобы она вместо меня делала некоторые действия в агенте. конеретнее, чтобы добавляла в друзья (преследуются личные цели, не спам). через spy узнал хэндл этого окна с людьми (окошко из 50 человек) и насколько я понял это listbox. и вот там этот список, если на человека сделать даблклик то откроется еще окно чтобы поместить там пригласительный текст и нажать кнопку добавить. и вот я не знаю как это сделать. наверное как то через, но как выбрать этого человека в листбоксе (если это еще точно листбокс). вобщем помогите, пожалуйста!!! на примере майл агента

[Pyro]

тут что-то есть
http://help.mail.ru/agent-help/developers

[LifeD]

Сообщение от Pyro

тут что-то есть
http://help.mail.ru/agent-help/developers

спасибо, но не совсем то что хотелось бы я еще не такой крутой программист) мне бы программу на уровне "ткнул на кнопку, а там в майле уже поехало". я правильно понимаю, что список где 50 контактов - это листбокс? и тогда как послать из моей программы сообщение, чтобы там выбралась первая строка? если бы это была моя программа, то мы бы сделали listbox1.itemindex[0]:=true или как то так. но как в чужой проге. это же вроде через sendmessage, но какие внутри команды..

[NumLock]

Описание протокола

[LifeD]

Сообщение от NumLock

Описание протокола

я это еще по первой ссылке читал. я не понимаю как. приведите пример с кодом, например нажать кнопку и добавились 2 первых контакта. заранее благодарен!

[Pyro]

PHP код:

procedure SendKey(h: Cardinal; key: Integer);
begin
  SendMessage(h, WM_KEYDOWN, key, 0);
  SendMessage(h, WM_KEYUP  , key, 0);
end;
//выбрать первый элемент:
  SendKey(listboxhandle, VK_HOME);
//выбрать второй элемент:
  SendKey(listboxhandle, VK_HOME);
  SendKey(listboxhandle, VK_DOWN); 


как добавляется контакт не знаю, если кнопка или toolbar, то можно найти и нажать на неё

PHP код:

//клик по кнопке на toolbar-е
procedure UClick(button: byte);
var p: TPoint;
begin
  p.x := 32*button+32; //32 – ширина кнопки
  p.y := 16;
  SendClick(UToolbar, p);
end;