![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
|
как авторизоватся в WoW без эмуляции процесса
(проста пишу прогу под свой серв)(т,е без нажатия tab) |
|
#2
|
||||
|
||||
|
Ну (как я понимаю), сам вов ты уже открыл, тогда ищи там компоненты (TEdit), учти они могут называться по другому и вводи туда текст функцией SendMessage.
Компоненты ищи функцией FindWindow... |
|
#3
|
||||
|
||||
|
Из моего лаунчера:
Код:
procedure TMainForm.FillForms(n:integer);
var Hnd, i:cardinal;
s, c:string;
begin
Hnd:=GetForegroundWindow;
if Hnd=0 then
Exit;
c:=GetText(Hnd);
if Lowercase(c)='world of warcraft' then
begin
for i:=1 to Length(<логин>)do
SendMessage(Hnd, wm_char, Ord(<логин>[i]), 0);
SendMessage(Hnd, WM_KEYDOWN, VK_TAB, 0);
SendMessage(Hnd, WM_KEYUP, VK_TAB, 0);
s:=<пароль>;
for i:=1 to Length(s)do
SendMessage(Hnd, WM_CHAR, Ord(s[i]), 0);
SendMessage(Hnd, WM_KEYDOWN, VK_TAB, 0);
SendMessage(Hnd, WM_KEYUP, VK_TAB, 0);
SendMessage(Hnd, WM_KEYDOWN, VK_RETURN, 0);
SendMessage(Hnd, WM_KEYUP, VK_RETURN, 0);
end;
end; |