Delphi | SEclub.org
Delphi
Все новые
Всего сообщений: 1912
*
ZBEP
27 янв 2011 в 21:02
nk, автокликер? Могу кинуть исходники, я как то делал.
Хендл можно получить так:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
CrPos:TPoint;
hWnd: THandle;
aName: array [0..255] of Char;
begin
CrPos.X:=X;
CrPos.Y:=Y;
hWnd:=WindowFromPoint(CrPos);
if Boolean(GetClassName(hWnd, aName, 256)) then
begin
Form1.Caption:=string(aName)
end else
Form1.Caption:="Нет";
end;
27 янв 2011 в 21:03 / ZBEP (2)
*
nk
27 янв 2011 в 21:13
да да автокликер надо, кинь если можешь
*
ZBEP
28 янв 2011 в 03:19
nk, Автокликер: zalil.ru/30416739
28 янв 2011 в 03:19 / ZBEP (1)
*
nk
28 янв 2011 в 04:10
вообщем посмотрел я твой код, не все понял, какойто он большой для автокликера. я хотел сделать чето очень уж простое, вот вообщем че я накалякал: procedure TForm1.Timer1Timer(Sender: TObject); var hWnd:THANDLE; begin hWnd:= FindWindow(nil,"World of Warcraft"); SendMessage(hWnd, wm_char, ord("w"), 0); end; ток один косяк, в варике клавиша не нажимается. или может и нажимается но действий никаких не происходит
28 янв 2011 в 04:11 / nk (1)
*
ZBEP
28 янв 2011 в 05:16
nk, в моем автокликере прост идет с выбором куда, что (клавиша мыши или клавиатуры) и за какой промежуток времени нажимать.
Писал его давно, поэтому и код корявый. А так, как я выше писал достаточно получить хендел и отправить ему нажатие нужной клавиши и все.
hWnd:=WindowFromPoint(CrPos); - Получить хендел.
PostMessage(hWnd, WM_KEYDOWN, 90, 0); - Отправка события нажатия.
Остальное все делал для удобства, грубо говоря для твоих целей понадобится только эти 2 строчки + Таймер.
Если хендел правильный, то должно реагировать в любом приложении. Накрайняк посмотри что отправляется при нажатии на нужную клавишу твоему окну и отправляй то же самое.
*
ZBEP
28 янв 2011 в 05:35
Отследить можно spyxx.exe (в комплекте с VS есть) либо другими программами для этих целей.
*
nk
28 янв 2011 в 14:46
благодарю, буду тестить
*
ZBEP
28 янв 2011 в 19:31
nk, Еще можно вообще с другого конца подойти, отследить WPE какое сообщение отсылается серверу при нажатии на "Z" и отсылать по таймеру то же сообщение (как бы не приложению, а серверу). Но думаю это уже извращения ненужные. Не бота ведь пишешь.
28 янв 2011 в 19:31 / ZBEP (1)
*
IceMage
29 янв 2011 в 12:03
ZBEP, близзы таким хитрозадым акк банят )))
*
ZBEP
29 янв 2011 в 19:09
!ceMage, Ну это да)))
*
VetalRacer
2 фев 2011 в 00:51
Подскажите пожалуйста как сделать так что бы при нажатии кнопки в первой форме, открывалась вторая форма, а первая пропадала? :) P.S. Дельфи 7
2 фев 2011 в 00:52 / VetalRacer (1)
*
ZBEP
2 фев 2011 в 04:08
VetalRacer,
Form1.Visible:=False;
Form2.Show;
2 фев 2011 в 04:08 / ZBEP (1)
Скачать тему
Для полноценного использования разделов сайта войдите или зарегистрируйтесь.
Создание сайтов и программирование | Компьютеры | Форум | Главная
18+ © Seclub.org 2003-2024