@Дмитрий3241

Ребят помогите пожалуста, я хочу добавить текст в "Edit" чужой программы. Имя программы (Garena).
Но "WM_SETTEXT" не работает, я также пробовал "SetWindowText" но без результатно.
Я просто очень много (спам ботов) видел для гарены.
Хочу свой написать, но не получаеться не как добавить текст.
Если кто знает иные методы добавление то пожалуйста пишите в этой теме.
И кстати еше я видел что есть команды "WM_COPY" и "WM_PASTE".
Если с помощью них можно вставлять текст то подскажите как это сделать.
Также поля в которые я хочу добавить текст имеют свойство (ReadOnly).
Так как с WInAPI я стал (дружить) недавно желательно ко всему приводить примеры.
Всем заранее спасибо.

0

@anonimus

)) зачем ты пишешь имя программы?

ищешь handle окна функция FindWindow(), потом ищешь handle эдита функция FindWindowEx()
потом посылаешь сообщение WM_SETTEXT и все.

0

@Дмитрий3241

я же писал что SETTEXT не работает... А имя программы я пишу для того, что бы "вдруг ктонибудь уже писал бот для гарены" ну или для того, что бы скачать и попробывать...

0

@anonimus

когда я писал ответ про WM_SETTEXT ничего не было, может ты потом добавил

Добавлено через 56 секунд
а хендл эдита верно находишь?

0

@Дмитрий3241

Да с хендолом все точно верно.

0

@anonimus

ну без программы ничем помочь не могу.
ты про какой эдит говоришь, в который нужно ввести пароль? или другой какой-то?
Могу скачать ее установить попробовать, если речь идет о полях для авторизации, если какие-то другие, то давай логин и пароль какой-нить что бы можно было залогинеться

0

@Дмитрий3241

anonimus, если можеш то пожалуста скачай гарену и попробуй просто очень надо.
Вот сылка на гарену (http://sng.garena.com/~client/).
Да вот когда при авторизации надо вести пароль и логин, вот тут я пытаюсь свой текст вставить, но неполучается.
"Имеют свойство (ReadOnly)"
К этому не относится.
Вот если что логин и пароль:
Логин: 2~MaN
Пароль: 523844
Попробуй с полями авторизации, после авторизации там слева будут команты, при заходе в комнату есть чат попробуй туда тоже добавить.

0

@anonimus

покажи ка свой код, у меня с первого раза получилось

0

@Дмитрий3241

Ого, сейчас кину.
Вот держи то что нужно.

function SetText_(hWnd: HWND; lpString: PChar): LRESULT;stdcall;
var
tmr:LRESULT;
begin
tmr:=SendMessage(hWnd, WM_SETREDRAW, WPARAM(0),lparam(lpString));
result:=tmr;
end;

procedure TTest.ClearBTNClick(Sender: TObject);
begin
//Очищаем поля Логин.
SetText_(FindWindowEx(FindWindowEx(FindWindow('SkinDialog','Garena'),0,'ComboBox ',nil),0,'Edit',nil),Pchar(''));
//Очищаем поля Пароль.
SetText_(FindWindowEx(FindWindow('SkinDialog','Garena'),0,'Edit',nil),Pchar('')) ;
end;

procedure TTest.PasteBTNClick(Sender: TObject);
Var
Login , Password : String;
Desck : Integer;
Text : PChar;
begin
//Записываем в переменные Логин и Пароль для вставки в Гарену.
Login:=LoginText.Text;
Password:=PasswordText.Text;

//Вставляем Логин в Гарену.
Desck:=FindWindowEx(FindWindowEx(FindWindow('SkinDialog','Garena'),0,'ComboBox', nil),0,'Edit',nil);
Text:=PChar(Login);
SetText_(Desck,Text);

//Вставляем Пароль в Гарену.
Desck:=FindWindowEx(FindWindow('SkinDialog','Garena'),0,'Edit',nil);
Text:=PChar(Password);
SetText_(Desck,Text);

end;

У меня везде получаеться а именно в гарене нет .

0

@anonimus

а что ж ты обманываешь, не вижу у тебя в коде где ты посылаешь WM_SETTEXT
у тебя сообщение WM_SETREDRAW

Добавлено через 2 минуты

0

@Дмитрий3241

Это я уже экспереминтировал от без исходности...
Блин на работает слухай а это может связанно с WIndow 7 ?
Кинь пожалуста свой код.

0

@anonimus

он на рабочем компе остался, позже скину.

а ты в label пробовал выводить значение переменной Desck и сравнивать его например с показаниями spy++

0

@Дмитрий3241

Да пробовал тока не spay++ а моей прогой
Я писал сканер что бы легче Handle искать было.

0

@anonimus

у меня код аналогичен твоему

1

@Дмитрий3241

Вот скачай там исходник моей проги и сканера которым я ищу.
Попробуй мою прогу у себя закомпилировать и изменить если получиться отпишись.
Я пока в магаз за мылом и веревкой.
Вот сылка http://files.mail.ru/XCJNKF
За помощь плюсик уже обеспечен

Да я шас твой код компильнул не работает x.O
Может все таки дело в:
1. Windows 7.
2. В брандмауре.
3. В Delphi.
А да я использую Embarcadero RAD Studio XE

0

@anonimus

ну это мне гарену нужно на домашний комп скачивать ставить, а так неохота ((

P.S.
а у тебя на 7 уак включен?

0

@Дмитрий3241

уак это брандмауер?

0

@anonimus

нет это контроль учетных записей uac

1

@Дмитрий3241

Да включен.

Добавлено через 1 минуту
Хотя нет тракбар на нем стоит в самом низу...

Добавлено через 31 секунду
Кстати подскажи как его совсем убрать если можно.

Добавлено через 59 минут
Шас у другана был, проверял прогу, у него тоже все работает нормально.
Спасибо за помощь, плюсик я уже кинул.
Если что буду еше писать.

0

@Supersumestria

А как работать например с окошком Касперского? Сейчас вот запустил программу которая отображает класс и Хэндл окна что под мышкой, навел на его Эдиты, но никаких эдитов найти невозможно, все окно один сплошной - QWidget

Он щас запущен(Kaspersky), и эта зараза гавкает когда написать QWidget , в любом браузере

0