Сообщений в теме: 17

[rustaban]

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

Может кто даст совет как реализовать такие действия (перемещение, опеределение, нажатие клавиш) в языке программирования Delphi. Можно ли это реализовать в других языках программирования.

[resurected_timofei]

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

Может кто даст совет как реализовать такие действия (перемещение, опеределение, нажатие клавиш) в языке программирования Delphi. Можно ли это реализовать в других языках программирования.

Посылать свои сообщения о перемещении мыши? Копай в эту сторону.
Попробую на неделе забабахать что-нибудь подобное на WINAPI.

PS: Вирусы пишем?

[yedyge]

http://msdn.microsof...yboardinput.asp

[yedyge]

точнее http://msdn.microsof...s/sendinput.asp

[rustaban]

нашел нечто подобное mouse_event, kebd_event
буду пока кодить, посмотрим что получится
сейчас возникла проблема как открыть нужное окно, максимизировать, передать ему фокус и потом соответсвенно посылать сообщения мыши и клавиатуры.

PS: Вирусы пишем?

нет, скорее будет автоматизация процесса

[resurected_timofei]

ИМХО, софт плохо написан, если таким образом приходиться делать. Не всё значит учтено в ф-циях.

Могу ошибаться. Может ситуация у тебя там ооочень не стандартная.

[Here_for_YOU]

можете попробовать программку типа wirekeys... Она использует несложный синтаксис и работает под тип shell-скриптов... а если уж совсем лениться можно просто записать последовательность действий и установить событие..

[for_ruslan]

МОжет я не до конца всё понял, но есть прога автоматизации действий юзера за компом именуется "WinBatch" или "Win Batch". посмотри в нете что это такое может - это то что тебе нужно.

есть такая прога, ктр запоминает поведение пользователя и может его автоматически воспроизводить именуется "WinBatch" или "Win Batch". Посмотри инфу в интернете. Может это то что тебе надо.

[YoriKim]

Как-то писал для друга похожую прогу. Ниже написаны процедурки. Где нужно, поменяешь события:

Определения цвета:

procedure TForm1.Button1(Sender: TObject);
var x,y:integer;
	DC: HDC;
	Color: Cardinal;
	r,g,b:integer;
begin
	x:=mouse.CursorPos.x;
	y:=mouse.CursorPos.y;
	DC :=GetDC(0);
	//узнаём цвет точки с координатами (x,y)
	Color := GetPixel(DC, x, y);
	//разбиваем по трём цветам
	r:=GetRValue(Color);
	g:=GetGValue(Color);
	b:=GetBValue(Color);
	
	ReleaseDC(0,DC);
end;

Нажатие левой кнопки мыши

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); 
Application.ProcessMessages; 
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

Нажатие правой кнопки мыши

mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0); 
Application.ProcessMessages; 
mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);  

Переместить курсор

procedure TForm1.Button1Click(Sender: TObject); 
var 
  pt : TPoint; 
begin 
   Application.ProcessMessages; 
   Screen.Cursor := CrHourglass; 
   GetCursorPos(pt); 
   SetCursorPos(pt.x + 1, pt.y + 1); 
   Application.ProcessMessages; 
   SetCursorPos(pt.x - 1, pt.y - 1); 
end;

Сообщение отредактировал YoriKim: 08.05.2007, 11:35:26

[Delight]

а может есть у кого прога похожая местами на Пунто? перевода транслита..
или хотя бы куда копать?

[yedyge]

tcode, shtirlitz

[DaBrat]

Я извиняюсь немного за офф и за свое "умничество", но...

в языке программирования Delphi

Delphi - это не язык, это среда разработки язык, все таки, ОбжектПаскаль.
Еще раз извиняюсь, просто в универе приучили разделять эти понятия

[Delight]

мне ж открытые исходники

[v04bvs]

Я извиняюсь немного за офф и за свое "умничество", но...

в языке программирования Delphi

Delphi - это не язык, это среда разработки язык, все таки, ОбжектПаскаль.
Еще раз извиняюсь, просто в универе приучили разделять эти понятия

Уже давно не Object pascal а Delphi Language

[DaBrat]

Уже давно не Object pascal а Delphi Language

Да? ну сорри тогда, я лох

[alexandra-FX]

Macromedia Flash 8 установила себе программу, для того что б сделать ролик! теперь сижу и смотрю в экран...везде потыкала, но так и не понимаю...как этим пользоватся...мож кто поможет?

[andrey_ddr]

Язык программирования Delphi. Гы-гы-гы.

[andrey_ddr]

Macromedia Flash 8 установила себе программу, для того что б сделать ролик! теперь сижу и смотрю в экран...везде потыкала, но так и не понимаю...как этим пользоватся...мож кто поможет?

http://www.flasher.ru/