Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Программа и интерфейс
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 02.10.2010, 19:44
Аватар для T@nker
T@nker T@nker вне форума
Прохожий
 
Регистрация: 27.05.2010
Адрес: г муравленко(ЯНАО)
Сообщения: 40
Версия Delphi: Delphi 7
Репутация: 10
Вопрос зайти в WoW c проги

как авторизоватся в WoW без эмуляции процесса
(проста пишу прогу под свой серв)(т,е без нажатия tab)
__________________
Начинающий программист уверен что в 1 МБ 1000 КБ
законченный программист уверен что в 1 км 1024 м
Ответить с цитированием
  #2  
Старый 02.10.2010, 21:25
Аватар для v1s2222
v1s2222 v1s2222 вне форума
Продвинутый
 
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
По умолчанию

Ну (как я понимаю), сам вов ты уже открыл, тогда ищи там компоненты (TEdit), учти они могут называться по другому и вводи туда текст функцией SendMessage.
Компоненты ищи функцией FindWindow...
__________________
Помогаю за Спасибо
Ответить с цитированием
  #3  
Старый 03.10.2010, 00:23
Аватар для KOOL
KOOL KOOL вне форума
Активный
 
Регистрация: 06.01.2008
Адрес: Рязань
Сообщения: 306
Версия Delphi: 2009
Репутация: 6150
По умолчанию

Из моего лаунчера:
Код:
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;
__________________
РГРТУ - ФВТ - Системы Автоматизированного ПРоектирования. ت
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:39.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter