Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация

PW_Loginer

-

Боты, скрипты и прочий софт для Perfect World

- Весь софт по Perfect World и все, что связано с ботоводством и скриптописанием в этом разделе. Вопросы запрещены!

Ответ
 
Опции темы
Старый 11.05.2010, 11:02   #1
 Разведчик
Аватар для IFRIT667
 
IFRIT667 на правильном пути
Регистрация: 22.11.2009
Сообщений: 8
Популярность: 26
Сказал(а) спасибо: 0
Поблагодарили 8 раз(а) в 2 сообщениях
 
По умолчанию PW_Loginer

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

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

[Ссылки могут видеть только зарегистрированные пользователи. ]
PS: вирусов нет ибо писал сам
PSS: и [Ссылки могут видеть только зарегистрированные пользователи. ] до кучи
Вложения
Тип файла: rar PwLoginer.rar (390.8 Кб, 112 просмотров)
________________
Мои творения ^_^ во всея интернете :
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
  Ответить с цитированием
3 пользователя(ей) сказали cпасибо:
aleks11 (17.05.2010), Anlinne (11.05.2010), NoDonater (11.05.2010)
Старый 11.05.2010, 11:24   #2
 Пехотинец
Аватар для (Dimon)
 
(Dimon) на правильном пути
Регистрация: 10.05.2010
Сообщений: 58
Популярность: 20
Сказал(а) спасибо: 20
Поблагодарили 16 раз(а) в 10 сообщениях
Отправить сообщение для (Dimon) с помощью ICQ
 
По умолчанию Re: PW_Loginer

Довольно удобно, я всегда копировал пассы с блокнота, а теперь этого делать ненадо
  Ответить с цитированием
Старый 11.05.2010, 16:11   #3
 Сержант
Аватар для НАТУСЯ
 
НАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компании
Регистрация: 28.03.2010
Сообщений: 112
Популярность: 1015
Сказал(а) спасибо: 94
Поблагодарили 189 раз(а) в 91 сообщениях
Отправить сообщение для НАТУСЯ с помощью ICQ Отправить сообщение для НАТУСЯ с помощью Skype™
 
По умолчанию Re: PW_Loginer

Вопрос для чего нужна это программа?
________________
Астрааа^^
  Ответить с цитированием
Старый 11.05.2010, 16:21   #4
 Разведчик
Аватар для IFRIT667
 
IFRIT667 на правильном пути
Регистрация: 22.11.2009
Сообщений: 8
Популярность: 26
Сказал(а) спасибо: 0
Поблагодарили 8 раз(а) в 2 сообщениях
 
По умолчанию Re: PW_Loginer

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

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

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

PS: прогу писал для себя ленивого если кому не нравится тапками не кидаться
________________
Мои творения ^_^ во всея интернете :
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
  Ответить с цитированием
Старый 11.05.2010, 16:48   #5
 Разведчик
Аватар для NoDonater
 
NoDonater никому не известный тип
Регистрация: 15.10.2009
Сообщений: 10
Популярность: 3
Сказал(а) спасибо: 59
Поблагодарили 4 раз(а) в 3 сообщениях
Отправить сообщение для NoDonater с помощью ICQ Отправить сообщение для NoDonater с помощью Skype™
 
По умолчанию Re: PW_Loginer

А что с сервером? Сервер он не выбирает? Просто заходит на тот, который стоял поумолчанию?
  Ответить с цитированием
Старый 11.05.2010, 16:57   #6
 Разведчик
Аватар для siderr
 
siderr неизвестен в этих краяхsiderr неизвестен в этих краях
Регистрация: 06.11.2009
Сообщений: 45
Популярность: -126
Сказал(а) спасибо: 23
Поблагодарили 4 раз(а) в 4 сообщениях
 
По умолчанию Re: PW_Loginer

ктонибуть тестил? случяем логин и пас не отправляетса создателю?
________________
May the Force be with You
если ты ето увидел компу пипец спасет тя токо тык на кнопк спасибо
  Ответить с цитированием
Старый 11.05.2010, 18:07   #7
 Сержант
Аватар для НАТУСЯ
 
НАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компании
Регистрация: 28.03.2010
Сообщений: 112
Популярность: 1015
Сказал(а) спасибо: 94
Поблагодарили 189 раз(а) в 91 сообщениях
Отправить сообщение для НАТУСЯ с помощью ICQ Отправить сообщение для НАТУСЯ с помощью Skype™
 
По умолчанию Re: PW_Loginer

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

Меня тоже этот вопрос тревожыт
________________
Астрааа^^
  Ответить с цитированием
Старый 11.05.2010, 19:01   #8
 Разведчик
Аватар для IFRIT667
 
IFRIT667 на правильном пути
Регистрация: 22.11.2009
Сообщений: 8
Популярность: 26
Сказал(а) спасибо: 0
Поблагодарили 8 раз(а) в 2 сообщениях
 
По умолчанию Re: PW_Loginer

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

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

сервер не выбирает у мя один перс мне норм =)
ищите матерей кодера если надо разные сервы даже исходник кину на такое дело хотя закодил эту прогу в электричке по дороге домой на ноуте под пивом
________________
Мои творения ^_^ во всея интернете :
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]

Последний раз редактировалось IFRIT667; 11.05.2010 в 19:03. Причина: Добавлено сообщение
  Ответить с цитированием
Старый 11.05.2010, 19:26   #9
Заблокирован
 Разведчик
Аватар для lol555
 
lol555 никому не известный тип
Регистрация: 22.12.2009
Сообщений: 12
Популярность: 12
Сказал(а) спасибо: 5
Поблагодарили 17 раз(а) в 14 сообщениях
Отправить сообщение для lol555 с помощью ICQ
 
По умолчанию Re: PW_Loginer

Исходник покажи,может это очередной почтовый клиент который тебе все шлет и как вирус не отоброжается
  Ответить с цитированием
Старый 11.05.2010, 19:34   #10
 Сержант
Аватар для НАТУСЯ
 
НАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компанииНАТУСЯ душа компании
Регистрация: 28.03.2010
Сообщений: 112
Популярность: 1015
Сказал(а) спасибо: 94
Поблагодарили 189 раз(а) в 91 сообщениях
Отправить сообщение для НАТУСЯ с помощью ICQ Отправить сообщение для НАТУСЯ с помощью Skype™
 
По умолчанию Re: PW_Loginer

Лучше выложы сюда исходник или что там. и пусть проверят его кто в этом понимаеет
________________
Астрааа^^
  Ответить с цитированием
Старый 11.05.2010, 19:36   #11
Читер-спонсор
 Рыцарь-лейтенант
Аватар для Торри
 
Торри знает себе ценуТорри знает себе ценуТорри знает себе ценуТорри знает себе ценуТорри знает себе ценуТорри знает себе ценуТорри знает себе ценуТорри знает себе ценуТорри знает себе ценуТорри знает себе ценуТорри знает себе цену
Регистрация: 23.04.2010
Сообщений: 431
Популярность: 4686
Сказал(а) спасибо: 279
Поблагодарили 176 раз(а) в 95 сообщениях
Отправить сообщение для Торри с помощью ICQ Отправить сообщение для Торри с помощью Telegram Отправить сообщение для Торри с помощью MSN Отправить сообщение для Торри с помощью Yahoo Отправить сообщение для Торри с помощью Skype™
 
По умолчанию Re: PW_Loginer

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

жи ши
________________
  Ответить с цитированием
Старый 11.05.2010, 19:46   #12
 Пехотинец
Аватар для (Dimon)
 
(Dimon) на правильном пути
Регистрация: 10.05.2010
Сообщений: 58
Популярность: 20
Сказал(а) спасибо: 20
Поблагодарили 16 раз(а) в 10 сообщениях
Отправить сообщение для (Dimon) с помощью ICQ
 
По умолчанию Re: PW_Loginer

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

жи ши

Это не совсем одинаковые проги, та которая выложена в теме позволяет просто заходить на акк, а та на которую ты дал ссылку для переполненых серверов(на них проблематично зайти)или для серверов типо релакса, там если оставил перса в 109 фиг потом зайдеш.
  Ответить с цитированием
Старый 11.05.2010, 19:51   #13
Заблокирован
 Пехотинец
Аватар для jkpro
 
jkpro на правильном путиjkpro на правильном пути
Регистрация: 22.05.2009
Сообщений: 80
Популярность: 104
Сказал(а) спасибо: 28
Поблагодарили 46 раз(а) в 31 сообщениях
Отправить сообщение для jkpro с помощью ICQ
 
По умолчанию Re: PW_Loginer

Зачем через ланчер? клиент можно запустить и без лаунчера, больше времени тратишь
  Ответить с цитированием
Старый 11.05.2010, 19:54   #14
 Разведчик
Аватар для IFRIT667
 
IFRIT667 на правильном пути
Регистрация: 22.11.2009
Сообщений: 8
Популярность: 26
Сказал(а) спасибо: 0
Поблагодарили 8 раз(а) в 2 сообщениях
 
По умолчанию Re: PW_Loginer

Цитата:
Сообщение от 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Посмотреть сообщение
Зачем через ланчер? клиент можно запустить и без лаунчера, больше времени тратишь

можно и без лаунчера но логами к сожалению это палится и от админа можно получить по жопке
________________
Мои творения ^_^ во всея интернете :
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]

Последний раз редактировалось IFRIT667; 11.05.2010 в 19:57. Причина: Добавлено сообщение
  Ответить с цитированием
Старый 11.05.2010, 20:19   #15
Reaper
 Фельдмаршал
Аватар для Dinmaite
 
Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(Dinmaite сломал счётчик популярности :(
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
Отправить сообщение для Dinmaite с помощью ICQ
 
По умолчанию Re: PW_Loginer

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

В общем код поверхностно просмотрел, ничего опасного в нем не увидел.
  Ответить с цитированием
Пользователь сказал cпасибо:
НАТУСЯ (12.05.2010)
Ответ

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 00:43.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net