Что нового

[Perfect World] Массовый автологин в игре (из списка)

Unix

Новичок
Сообщения
8
Репутация
0
Здравствуйте подскажите пожалуйста как дописать,
Есть вот

Код:
If WinWaitActive("Perfect World") Then   ;ждет пока на переднем плане появиться окно пв
sleep (300)     
Send("ваш логин")   ;вводит ваш логин
Send('{TAB}')   ;нажимает Tab 
Send("ваш пароль")   ;вводит ваш пароль
Send('{ENTER}')   ;нажимает Enter
EndIf


тут производится вход только от одного логина и от одного пароля, а мне нужно, список логинов и паролей.
Ну примерно так
Текстовый файл с базой
Login:blum:ass
Login:blum:ass
Login:blum:ass
Вот только как это сделать?
Пишу в теме "для новичком, ибо на уровень знаний самый низкий, начинающий.
 

ArtInt

Знающий
Сообщения
135
Репутация
18
Re: [Автоматизация] Autologin в игре

Немного не понял... Как сделать, чтобы логин и пароль грузились из базы, а затем под ними уже заходилось?
 
Автор
U

Unix

Новичок
Сообщения
8
Репутация
0
Re: [Автоматизация] Autologin в игре

Ну суть такова.
Проверяем на существуемость персонажа.
То есть, проверяем:
Входим = есть перс
Входим = нету перса
Входим = нету перса
Входим = нету перса
Входим = нету перса
Входим = есть перса
В моем примере показано как зайти от одного логина и паса.
А нужно масово - или по очередности.
Еще бы лог вывести)
 

ArtInt

Знающий
Сообщения
135
Репутация
18
Re: [Автоматизация] Autologin в игре

[box title=Как оно должно работать:]Unix, создаём Текстовый файл (базу данных) с логинами и паролями, переписываем их в массив:
$dir - путь к файлу
Код:
$kolvo = FileCountLines($dir)
If $kolvo mod 2 <> 0 then  ;Тестим у всех ли логинов есть пароли
msgbox(64,"Title","Sorry, unable to read file - wrong system! =(")
Exit
EndIf

$File = FileOpen ($dir)
Dim $aLandP [$kolvo][2] ;Первая размерность для количества пар, 2-я [0] - логин [1]- пароль

For $i = 0 to ($kolvo/2)-1
For $i2 = 0 to 1
$aLandP [$i][$i2] = FileReadLine ($File)
Next
Next

FileCLose($File)



Затем Грузим по очереди под каждым логином (надеюсь не надо объяснять, как делать это! Цикл For В помощь!) и по handl'у окна в браузере, узнаём получилось ли.

[/box]

В скрипте прдоставлено чтение из файла, система которого такова:
Код:
Login1
Password1
Login2
Password2
...
LoginN
PasswordN


Ошибочка:

Упс... Я считал что в AutoIt'е есть функция FileCountLines, но ладно, напишем!
Код:
Func FileCountLines($dir)
$File = FileOpen ($dir)

$return = 0
Do
$return = $return+1
FileReadLine ($dir)
Until @error = -1
$return = $return-1

Return $return
Endfunc



Всё :ok: ?
 
Автор
U

Unix

Новичок
Сообщения
8
Репутация
0
Re: [Автоматизация] Autologin в игре

Ого, что то совсем не ясно, много кода.
Буду пробовать разобраться,
1. Вопрос - ваш код дописать в мой, и слить в один?
2. что означает $kolvo ?
3.у меня база из одного текстового файла, и там написано сразу же логин:пароль в таком вот виде
dasilogin:blum:asdsauihw
Где именно прописать путь к файлу базы?
тут? $kolvo = FileCountLines($dir) Вместо ($dir) прямой путь к файлу?
Можно ли пример? Прошу прошения, но я серьезно в этом туго понимаю(
Стыдно писать - и так разживали вробе бы, но все же не ясно.
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,608
Репутация
941
Re: [Автоматизация] Autologin в игре

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"[Автоматизация] Autologin в игре" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Модератор раздела.
 

First

Новичок
Сообщения
1
Репутация
0
Мне кажется, что проще будет найти прогу которая написана специально для брута аков ПВ, где уже есть и подгруз тхт доков и все другие вкуснячки...
 

ArtInt

Знающий
Сообщения
135
Репутация
18
First, не согласен.

Код:
Dim $dir
$dir = ;путь до файла

;====
$kolvo = FileCountLines($dir);пишем кол-во линий файла в переменную
;
$File = FileOpen ($dir);открываем файл
Dim $aLandP [$kolvo][2] ;Первая размерность для количества пар, 2-я - [0] - логин [1]- пароль
;
For $i = 1 to ($kolvo);
$frl = StringTrimLeft (FileReadLine ($file,$i),*кол-во символов даты*)

$dummy = StringSplit ($frl,":")

$aLandP [$i][0] = $dummy[1];
                         ;}пишем в массив получившиеся логин и пароль
$aLandP [$i][1] = $dummy[2];
Next;
;
FileCLose($File);

WARNING
Я в тексте юзал свою функцию (FileCountLines), описал внизу:
Код:
Func FileCountLines($dir)
$File = FileOpen ($dir)

$return = 0
Do
$return = $return+1
FileReadLine ($dir)
Until @error = -1
$return = $return-1

Return $return
Endfunc


Осталось только по очереди, циклом (For...Next) проверить все.
 
Верх