[Программа] PW_Loginer

[IFRIT667]

Программа PW_Loginer - Логинер для ленивых людей как я =)
Функционал программы прост:
1)Открывает Лаунчер
2)Кликает "Запуск"
3)Ждет загрузки клиента
4)Вводит логин и пароль
5)вхоит в игру

Скриншот
[Ссылки могут видеть только зарегистрированные пользователи. ]

[Ссылки могут видеть только зарегистрированные пользователи. ]
PS: вирусов нет ибо писал сам
PSS: и [Ссылки могут видеть только зарегистрированные пользователи. ] до кучи

[(Dimon)]

Довольно удобно, я всегда копировал пассы с блокнота, а теперь этого делать ненадо

[НАТУСЯ]

Вопрос для чего нужна это программа?

[IFRIT667]

Цитата: Сообщение от НАТУСЯ Вопрос для чего нужна это программа?

для входа в игру =)

принцип прост до безобразия первый раз настраиваете под ваш комп (тоесть время загрузки лаунчера и появления окна элементал клиент) а потом *тут включаем воображение* приходишь ты с универа/работы/школы врубаешь комп запускаешь прогу и идешь ставить чай приходиш а перс уже в игре и тебе РаДуеТся

PS: прогу писал для себя ленивого если кому не нравится тапками не кидаться

[NoDonater]

А что с сервером? Сервер он не выбирает? Просто заходит на тот, который стоял поумолчанию?

[siderr]

ктонибуть тестил? случяем логин и пас не отправляетса создателю?

[НАТУСЯ]

Цитата: ктонибуть тестил? случяем логин и пас не отправляетса создателю?

Меня тоже этот вопрос тревожыт

[IFRIT667]

я не на столько крутой кодер чтобы трояны приписывать =) еси кому интересно могу кинуть исходник

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

Цитата: Сообщение от NoDonater А что с сервером? Сервер он не выбирает? Просто заходит на тот, который стоял поумолчанию?

сервер не выбирает у мя один перс мне норм =)
ищите матерей кодера если надо разные сервы даже исходник кину на такое дело хотя закодил эту прогу в электричке по дороге домой на ноуте под пивом

[lol555]

Исходник покажи,может это очередной почтовый клиент который тебе все шлет и как вирус не отоброжается

[НАТУСЯ]

Лучше выложы сюда исходник или что там. и пусть проверят его кто в этом понимаеет

[Торри]

Мне кажется эта прога проще http://zhyk.ru/forum/showthread.php?t=84886

жи ши

[(Dimon)]

Цитата: Сообщение от Торри Мне кажется эта прога проще http://zhyk.ru/forum/showthread.php?t=84886 жи ши

Это не совсем одинаковые проги, та которая выложена в теме позволяет просто заходить на акк, а та на которую ты дал ссылку для переполненых серверов(на них проблематично зайти)или для серверов типо релакса, там если оставил перса в 109 фиг потом зайдеш.

[jkpro]

Зачем через ланчер? клиент можно запустить и без лаунчера, больше времени тратишь

[IFRIT667]

Цитата: Сообщение от lol555 Исходник покажи,может это очередной почтовый клиент который тебе все шлет и как вирус не отоброжается

на здоровье =)

{$R *.dfm}
uses ShellAPI, Unit2;
/// для кликабельности
procedure PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean);
type
TShiftKeyInfo = record
             shift: Byte;
             vkey: Byte;
end;
byteset = set of 0..7;
const
shiftkeys: array [1..3] of TShiftKeyInfo =
           ((shift: Ord(ssCtrl); vkey: VK_CONTROL),
            (shift: Ord(ssShift); vkey: VK_SHIFT),
            (shift: Ord(ssAlt); vkey: VK_MENU));
var
  flag: DWORD;
  bShift: ByteSet absolute shift;
  i: Integer;
begin
for i := 1 to 3 do begin
  if shiftkeys[i].shift in bShift then
    keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0);
end;
if specialkey then
  flag := KEYEVENTF_EXTENDEDKEY
else
  flag := 0;
  keybd_event(key, MapvirtualKey(key, 0), flag, 0);
  flag := flag or KEYEVENTF_KEYUP;
  keybd_event(key, MapvirtualKey(key, 0), flag, 0);
  for i := 3 downto 1 do begin
    if shiftkeys[i].shift in bShift then
      keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0),
                  KEYEVENTF_KEYUP, 0);
   end;
 end;

///// IF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
/// показ программе ехе лаунчера
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if openDialog1.Execute
then Edit1.Text:=ExtractFilePath(OpenDialog1.FileName)+ 'Launcher.exe' ;
Panel2.Visible:=false;
Panel3.Visible:=false;
end;
/// ЗАПОМНИТЬ
procedure TForm1.BitBtn2Click(Sender: TObject);
var Ini: Tinifile;
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Setting.ini');
Ini.WriteString('PATH','PATH',Edit1.Text);
Ini.WriteString('USER','LOGIN',Edit2.Text);
Ini.WriteString('USER','PASS',Edit3.Text);
ini.WriteInteger('TIME','SPIN_1',SpinEdit1.Value);
ini.WriteInteger('TIME','SPIN_2',SpinEdit2.Value);
ini.WriteInteger('TIME','SPIN_3',SpinEdit3.Value);
ini.WriteInteger('TIME','SPIN_4',SpinEdit4.Value);
ini.WriteInteger('TIME','SPIN_5',SpinEdit5.Value);
ini.WriteInteger('TIME','SPIN_6',SpinEdit6.Value);
Ini.Free;
Edit2.Enabled:=False;
Edit3.Enabled:=False;
end;

/// зАполнение форм
procedure TForm1.FormShow(Sender: TObject);
var Ini: Tinifile;
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Setting.ini');
Edit1.Text:=Ini.ReadString('PATH','PATH','');
Edit2.Text:=Ini.ReadString('USER','LOGIN','');
Edit3.Text:=Ini.ReadString('USER','PASS','');
SpinEdit1.Value:=Ini.ReadInteger('TIME','SPIN_1',40);
SpinEdit2.Value:=Ini.ReadInteger('TIME','SPIN_2',30);
SpinEdit3.Value:=Ini.ReadInteger('TIME','SPIN_3',1);
SpinEdit4.Value:=Ini.ReadInteger('TIME','SPIN_4',1);
SpinEdit5.Value:=Ini.ReadInteger('TIME','SPIN_5',1);
SpinEdit6.Value:=Ini.ReadInteger('TIME','SPIN_6',15);
  if ( Edit1.Text= ('') ) or ( Edit2.Text= ('') ) or ( Edit3.Text= ('') ) then begin
  Panel2.Visible:=true;
  Panel3.Visible:=false;
  ShowMessage('Загрузите путь к Launcher.exe');
    if openDialog1.Execute then Edit1.Text:=ExtractFilePath(OpenDialog1.FileName)+ 'Launcher.exe' ;
    Panel2.Visible:=false;
    Panel3.Visible:=false;
  end else begin
Edit2.Enabled:=False;
Edit3.Enabled:=False;
Panel2.Visible:=false;
Panel3.Caption:='***************';
Panel3.Visible:=true;
end;
end;

/// Старт
procedure TForm1.BitBtn3Click(Sender: TObject);
var A: string;  Ini: Tinifile;
begin
Panel3.Caption:='***************';
Panel3.Visible:=true;
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Setting.ini');
A:=Ini.ReadString('PATH','PATH','');
ShellExecute(0, nil, PWideChar(A), nil, nil, SW_SHOWNORMAL);
Timer1.Interval:=SpinEdit1.Value*1000;
Timer2.Interval:=SpinEdit2.Value*1000;
Timer3.Interval:=SpinEdit3.Value*1000;
Timer4.Interval:=SpinEdit4.Value*1000;
Timer5.Interval:=SpinEdit5.Value*1000;
Timer6.Interval:=SpinEdit6.Value*1000;
Timer1.Enabled:=True;
Label17.Caption:='Запущен';
if Edit1.Text= ('') then
begin
  ShowMessage('! Не указан путь к Launcher.exe !');
  end else
  exit;

end;

/// ТАЙМЕРЫ!!!!!!
///запуск ланчера    40сек
procedure TForm1.Timer1Timer(Sender: TObject);
Var
L: THandle;
Begin
Timer1.Enabled:=False;
Timer2.Enabled:=True;
L:=FindWindow(Nil,'Perfect World Updater');
Edit4.Text:=IntToStr(L);
if IsIconic(L) then
ShowWindow(L,SW_RESTORE);
EnableWindow(L,True);
SetForegroundWindow(L);
Timer1.Enabled:=False;
PostKeyEx32(vk_Return, [], False);
Label17.Caption:='Запускаем Launcher.exe';
end;
///  запуск клиента  до появления и ОК   30сек
procedure TForm1.Timer2Timer(Sender: TObject);
Var
K: THandle;
Begin
Timer2.Enabled:=False;
Timer3.Enabled:=True;
K:=FindWindow(Nil,'Element Client');
Edit5.Text:=IntToStr(K);
if IsIconic(K) then
ShowWindow(K,SW_RESTORE);
EnableWindow(K,True);
SetForegroundWindow(K);
PostKeyEx32(vk_Return, [], False);
Label17.Caption:='Запускается Elentnt Client';
end;
/// логин 1сек
procedure TForm1.Timer3Timer(Sender: TObject);
Var
R: THandle; Ini: Tinifile;
Begin
Timer3.Enabled:=False;
Timer4.Enabled:=True;
Edit5.Text:=IntToStr(R);
if IsIconic(R) then
ShowWindow(R,SW_RESTORE);
EnableWindow(R,True);
SetForegroundWindow(R);
Edit2.SelectAll;
Edit2.CutToClipboard;
keybd_event(VK_CONTROL, 0, 0, 0);               // зажимаем Ctrl
keybd_event(Byte('V'), 0, 0, 0);                // зажимаем V
keybd_event(Byte('V'), 0, KEYEVENTF_KEYUP, 0);  // отпускаем V
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); // отпускаем Ctrl
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Setting.ini'); // заполняем вырезанный эдит
Edit2.Text:=Ini.ReadString('USER','LOGIN','');
Label17.Caption:='Вводим login';
end;
/// таб 1 сек
procedure TForm1.Timer4Timer(Sender: TObject);
Var
D: THandle;
Begin
Timer4.Enabled:=False;
Timer5.Enabled:=True;
Edit5.Text:=IntToStr(D);
if IsIconic(D) then
ShowWindow(D,SW_RESTORE);
EnableWindow(D,True);
SetForegroundWindow(D);
keybd_event(VK_TAB, 0, 0 ,0);                   //  жмем ТАВ
keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP ,0);     // отпускаем ТАВ

Label17.Caption:='переключаемся для ввода pass';
end;
//// пароль + энтер 1сек
procedure TForm1.Timer5Timer(Sender: TObject);
Var
O: THandle;  Ini: Tinifile;
Begin
Timer5.Enabled:=False;
Timer6.Enabled:=True;
Edit5.Text:=IntToStr(O);
if IsIconic(O) then
ShowWindow(O,SW_RESTORE);
EnableWindow(O,True);
SetForegroundWindow(O);
Edit3.SelectAll;
Edit3.CutToClipboard;
keybd_event(VK_CONTROL, 0, 0, 0);              // зажимаем Ctrl
keybd_event(Byte('V'), 0, 0, 0);               // зажимаем V
keybd_event(Byte('V'), 0, KEYEVENTF_KEYUP, 0); // отпускаем V
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); // отпускаем Ctrl
PostKeyEx32(vk_Return, [], False);
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Setting.ini'); // заполняем вырезанный эдит
Edit3.Text:=Ini.ReadString('USER','PASS','');
Label17.Caption:='вводим pass и жмем ок';
end;


procedure TForm1.Timer6Timer(Sender: TObject);
Var
M: THandle;
Begin
if IsIconic(M) then
ShowWindow(M,SW_RESTORE);
EnableWindow(M,True);
SetForegroundWindow(M);
Timer6.Enabled:=False;
PostKeyEx32(vk_Return, [], False);
end;
//// HELP
 procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Deactivate;
Form2.Show;
end;

end.

Никапли злого умысла

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

Цитата: Сообщение от jkpro Зачем через ланчер? клиент можно запустить и без лаунчера, больше времени тратишь

можно и без лаунчера но логами к сожалению это палится и от админа можно получить по жопке

[Dinmaite]

Честно говоря не совсем понимаю зачем повторяется строка с отключением первого таймера, также не понимаю зачем постоянно выводить окно на передний план (я понимаю что для того что бы ивентом клавы ввести значение, но все же клиент ПВ принимает стандартный winmsg).
Запуск без лаунчера логами не палится.
K:=FindWindow(Nil,'Element Client');
Если бы я поставил автоматическую смену названия окна, хендл не нашло бы, лучше искать по названию класса.
В третьем и четвертом таймере почему-то не увидел поиска окна, думаю это вырезано автором
В принципе не понимаю зачем локальные переменный THandle если можно найти хендл один раз.

В общем код поверхностно просмотрел, ничего опасного в нем не увидел.