![Фотография](https://vse.kz/uploads/av-21178.jpg?_r=0)
Нужна программа или совет
#1
Отправлено 01.04.2007, 12:43:06
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
Может кто даст совет как реализовать такие действия (перемещение, опеределение, нажатие клавиш) в языке программирования Delphi. Можно ли это реализовать в других языках программирования.
#2
Отправлено 01.04.2007, 19:33:14
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
Нужна такая программа, чтобы управляла действиями мыши: перемещать в нужное положение (координаты экрана х и у) на экране, определять какого цвета пиксель под мышью сейчас находиться, сообщать мыши действия нажать левую, правую кнопку.
Может кто даст совет как реализовать такие действия (перемещение, опеределение, нажатие клавиш) в языке программирования Delphi. Можно ли это реализовать в других языках программирования.
Посылать свои сообщения о перемещении мыши? Копай в эту сторону.
Попробую на неделе забабахать что-нибудь подобное на WINAPI.
PS: Вирусы пишем?
![:D](http://vse.kz/public/style_emoticons/default/biggrin.gif)
#3
Отправлено 01.04.2007, 23:56:42
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
#4
Отправлено 02.04.2007, 00:09:40
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
#5
Отправлено 02.04.2007, 20:40:53
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
буду пока кодить, посмотрим что получится
сейчас возникла проблема как открыть нужное окно, максимизировать, передать ему фокус и потом соответсвенно посылать сообщения мыши и клавиатуры.
нет, скорее будет автоматизация процессаPS: Вирусы пишем?
#8
Отправлено 04.05.2007, 07:06:32
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
есть такая прога, ктр запоминает поведение пользователя и может его автоматически воспроизводить именуется "WinBatch" или "Win Batch". Посмотри инфу в интернете. Может это то что тебе надо.
#9
Отправлено 08.05.2007, 11:34:00
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
Определения цвета:
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
#14
Отправлено 26.05.2007, 12:43:16
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
Уже давно не Object pascal а Delphi LanguageЯ извиняюсь немного за офф и за свое "умничество", но...
Delphi - это не язык, это среда разработкив языке программирования Delphi
язык, все таки, ОбжектПаскаль.
Еще раз извиняюсь, просто в универе приучили разделять эти понятия
#18
Отправлено 14.06.2007, 11:59:01
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
Macromedia Flash 8 установила себе программу, для того что б сделать ролик! теперь сижу и смотрю в экран...везде потыкала, но так и не понимаю...как этим пользоватся...мож кто поможет?
http://www.flasher.ru/
Количество пользователей, читающих эту тему: 1
пользователей: 0, неизвестных прохожих: 1, скрытых пользователей: 0