PW_Loginer - Боты, скрипты и прочий софт для Perfect World - Весь софт по Perfect World и все, что связано с ботоводством и скриптописанием в этом разделе. Вопросы запрещены!
11.05.2010, 11:02
#1
Разведчик
Регистрация: 22.11.2009
Сообщений: 8
Популярность: 26
Сказал(а) спасибо: 0
Поблагодарили 8 раз(а) в 2 сообщениях
PW_Loginer
Программа PW_Loginer - Логинер для ленивых людей как я =)
Функционал программы прост:
1)Открывает Лаунчер
2)Кликает "Запуск"
3)Ждет загрузки клиента
4)Вводит логин и пароль
5)вхоит в игру
Скриншот
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
PS: вирусов нет ибо писал сам
PSS: и [Ссылки могут видеть только зарегистрированные пользователи. ] до кучи
3 пользователя(ей) сказали cпасибо:
11.05.2010, 11:24
#2
Пехотинец
Регистрация: 10.05.2010
Сообщений: 58
Популярность: 20
Сказал(а) спасибо: 20
Поблагодарили 16 раз(а) в 10 сообщениях
Re: PW_Loginer
Довольно удобно, я всегда копировал пассы с блокнота, а теперь этого делать ненадо
11.05.2010, 16:11
#3
Сержант
Регистрация: 28.03.2010
Сообщений: 112
Популярность: 1015
Сказал(а) спасибо: 94
Поблагодарили 189 раз(а) в 91 сообщениях
Re: PW_Loginer
Вопрос для чего нужна это программа?
________________
Астрааа^^
11.05.2010, 16:21
#4
Разведчик
Регистрация: 22.11.2009
Сообщений: 8
Популярность: 26
Сказал(а) спасибо: 0
Поблагодарили 8 раз(а) в 2 сообщениях
Re: PW_Loginer
Цитата:
Вопрос для чего нужна это программа?
для входа в игру =)
принцип прост до безобразия первый раз настраиваете под ваш комп (тоесть время загрузки лаунчера и появления окна элементал клиент) а потом *тут включаем воображение* приходишь ты с универа/работы/школы врубаешь комп запускаешь прогу и идешь ставить чай приходиш а перс уже в игре и тебе
РаДуеТся
PS: прогу писал для себя ленивого если кому не нравится тапками не кидаться
11.05.2010, 16:48
#5
Разведчик
Регистрация: 15.10.2009
Сообщений: 10
Популярность: 3
Сказал(а) спасибо: 59
Поблагодарили 4 раз(а) в 3 сообщениях
Re: PW_Loginer
А что с сервером? Сервер он не выбирает? Просто заходит на тот, который стоял поумолчанию?
11.05.2010, 16:57
#6
Разведчик
Регистрация: 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 сообщениях
Re: PW_Loginer
________________
Астрааа^^
11.05.2010, 19:01
#8
Разведчик
Регистрация: 22.11.2009
Сообщений: 8
Популярность: 26
Сказал(а) спасибо: 0
Поблагодарили 8 раз(а) в 2 сообщениях
Re: PW_Loginer
я не на столько крутой кодер чтобы трояны приписывать =) еси кому интересно могу кинуть исходник
Добавлено через 2 минуты
Цитата:
А что с сервером? Сервер он не выбирает? Просто заходит на тот, который стоял поумолчанию?
сервер не выбирает у мя один перс мне норм =)
ищите матерей кодера если надо разные сервы даже исходник кину на такое дело хотя закодил эту прогу в электричке по дороге домой на ноуте под пивом
Последний раз редактировалось IFRIT667; 11.05.2010 в 19:03 .
Причина: Добавлено сообщение
11.05.2010, 19:26
#9
Разведчик
Регистрация: 22.12.2009
Сообщений: 12
Популярность: 12
Сказал(а) спасибо: 5
Поблагодарили 17 раз(а) в 14 сообщениях
Re: PW_Loginer
Исходник покажи,может это очередной почтовый клиент который тебе все шлет и как вирус не отоброжается
11.05.2010, 19:34
#10
Сержант
Регистрация: 28.03.2010
Сообщений: 112
Популярность: 1015
Сказал(а) спасибо: 94
Поблагодарили 189 раз(а) в 91 сообщениях
Re: PW_Loginer
Лучше выложы сюда исходник или что там. и пусть проверят его кто в этом понимаеет
________________
Астрааа^^
11.05.2010, 19:36
#11
Рыцарь-лейтенант
Регистрация: 23.04.2010
Сообщений: 431
Популярность: 4686
Сказал(а) спасибо: 279
Поблагодарили 176 раз(а) в 95 сообщениях
Re: PW_Loginer
________________
11.05.2010, 19:46
#12
Пехотинец
Регистрация: 10.05.2010
Сообщений: 58
Популярность: 20
Сказал(а) спасибо: 20
Поблагодарили 16 раз(а) в 10 сообщениях
Re: PW_Loginer
11.05.2010, 19:51
#13
Пехотинец
Регистрация: 22.05.2009
Сообщений: 80
Популярность: 104
Сказал(а) спасибо: 28
Поблагодарили 46 раз(а) в 31 сообщениях
Re: PW_Loginer
Зачем через ланчер? клиент можно запустить и без лаунчера, больше времени тратишь
11.05.2010, 19:54
#14
Разведчик
Регистрация: 22.11.2009
Сообщений: 8
Популярность: 26
Сказал(а) спасибо: 0
Поблагодарили 8 раз(а) в 2 сообщениях
Re: PW_Loginer
Цитата:
Исходник покажи,может это очередной почтовый клиент который тебе все шлет и как вирус не отоброжается
на здоровье =)
Код:
{$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 минуты
Цитата:
Зачем через ланчер? клиент можно запустить и без лаунчера, больше времени тратишь
можно и без лаунчера но логами к сожалению это палится и от админа можно получить по жопке
Последний раз редактировалось IFRIT667; 11.05.2010 в 19:57 .
Причина: Добавлено сообщение
11.05.2010, 20:19
#15
Фельдмаршал
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
Re: PW_Loginer
Честно говоря не совсем понимаю зачем повторяется строка с отключением первого таймера, также не понимаю зачем постоянно выводить окно на передний план (я понимаю что для того что бы ивентом клавы ввести значение, но все же клиент ПВ принимает стандартный winmsg).
Запуск без лаунчера логами не палится.
K:=FindWindow(Nil,'Element Client');
Если бы я поставил автоматическую смену названия окна, хендл не нашло бы, лучше искать по названию класса.
В третьем и четвертом таймере почему-то не увидел поиска окна, думаю это вырезано автором
В принципе не понимаю зачем локальные переменный THandle если можно найти хендл один раз.
В общем код поверхностно просмотрел, ничего опасного в нем не увидел.
________________
Ни одно доброе дело не остается безнаказанным.
Программы:
PW: Флудобот , Девизхак , OutFocusBot , OutFocusBot ver 3 (freepvp) , PWMultiHack ver 3 , AutoRespawn .
JD: JDMultiHack , JDFlooder , JDBot .
Статьи: Отключаем UAC , Ищем базовый адрес Perfect World , "Патчер памяти" или "Пишем флайхак" , "Патчер памяти 2" или "Пишем Джампхак" , "Поиск инжектов" или "Наш код в чужом процессе"
Пользователь сказал cпасибо:
Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 00:43 .