|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
зайти в WoW c проги
как авторизоватся в WoW без эмуляции процесса
(проста пишу прогу под свой серв)(т,е без нажатия tab) Начинающий программист уверен что в 1 МБ 1000 КБ законченный программист уверен что в 1 км 1024 м |
#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; РГРТУ - ФВТ - Системы Автоматизированного ПРоектирования. ت |