WorldCheats Forum

Форум
Форум посвященный главным образом MMORPG играм. Никаких ХАЙДОВ!

 
ФорумПорталЧаВоПоискПользователиГруппыРегистрацияВход

Поделиться | 
 

 Автологин

Предыдущая тема Следующая тема Перейти вниз 
АвторСообщение
Nik
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 2
Возраст : 33
Награда :  
Дата регистрации : 2009-08-17

СообщениеТема: Автологин   Пн Авг 17, 2009 3:29 am

Цитата :
Лично меня заколебало каждый раз вручную вводить пароль для Евы и я решил сбацать программульку, которая сделала-бы это за меня.
Хочу сказать сразу несколько вещей:
1. Не надо в этой теме писать, что Вы - умнее меня и решили этот вопрос раньше, красивее, удобнее и т.п. Я рад за Вас. Правда-правда! Но в этом случае Вам в этой теме делать просто нечего Если только поглумиться
2. Готового EXEшника я прикладывать не буду! Не хочу отбрыкиваться от параноиков и доказывать, что программа не ворует пароли/устанавливает вирусы/форматирует винт и т.д.

Итак. Если кто-то еще хочет продолжать, то Вам нужно установить программу Auto It 3 , открыть нижеприложенный скрипт и выбрать Tools - Buid. На выходе Вы получите готовый исполняемый файл.

Использование: EveLauncher.exe <имя_чара_без_пробелов>
Ограничение - для каждого аккаунта у Вас должен быть отдельноустановленный клиент. Если-же Вы запускаете разные аккаунты из одной папки Евы, то имя аккаунта у Вас каждый раз будет разное и пароль не будет совпадать (ну, если у Вас для всех акков пароль совпадает - тогда будет работать нормально).
При первом запуске программа "грязно выругается", что нет файла настроек и начнет задавать вопросы:
1. Пароль
2. Полный путь к файлу eve.exe. Программа проверяет - существует-ли указанный путь, поэтому в случае опечатки не даст ввести откровенную чушь
3. Период ожидания. После запуска Евы сперва некоторое время висит splash заставка, Ева грузится. Посылать в это время пароль бессмысленно, он не будет принят. В зависимости от мощности компьютера загрузка занимает разное время. Поэкспериментируйте со временем. Я рекомендую ставить секунд 10-15. В это поле программа не даст ввести что-либо, кроме чисел
4. Использовать или нет дополнительные ключи /off /LUA:OFF? Если Вы не знаете, что это такое - говорите НЕ использовать.

Все, настройка завершена. Все данные сохранились в файлике <имя_чара>.ini, который можно открыть Блокнотом и подправить, в случае чего. Там все просто и понятно. К сожалению, сделать полноценную "защиту от дурака" - довольно сложно. Поэтому, если Вы вручную в поле времени ожидания введете слово вместо числа - программа вылетит с ошибкой. Скрипт я написал за 20 минут. Писал под себя. реализовывать bullet-proof защиту не хочу, т.к. сам дурью маяться не намерен

Best practics:
Лучше всего сделать ярлык на лаунчер и подправить его, дописав имя чара в поле запуска программы.

После запуска программа заодно изменит заголовок окна Евы со стандартного "EVE" на "EVE - имя_чара". При игре в оконном режиме с несколькими одновременно запущенными клиентами будет удобнее ориентироваться.

Ну а теперь, собственно, сам скрипт:
Код
Код:

#include

Local $oldtitle = "EVE"; старый заголовок Евы

; Программа запущена с параметром или нет?
If $CmdLine[0]=0 Then
    MsgBox(16, "Error", "Запустите программу с указанием имени чара!")
    Exit
  EndIf

; имя аккаунта = первому переданному параметру. Поэтому имя акка надо указывать БЕЗ пробелов
$char = $CmdLine[1]
$ppp = "xxx"

If FileExists($char&'.ini')=0 Then; файла настроек нет, начинаем их создавать
    MsgBox(16, "Error", "Файл настроек для чара не найден! Нажмите ОК и программа произведет настройку")
    $p = InputBox("Запрос", "Введите пароль для чара")
    IniWrite($char&'.ini', "Settings", "Password",$p)
    $pp = InputBox("Запрос", "Введите полный путь до файла eve.exe (Например: d:\games\eve\eve.exe)")
    While FileExists($pp)=0
        MsgBox(16, "Error", "Введенный путь неверен! Введите еще раз")
        $pp = InputBox("Запрос", "Введите полный путь до файла eve.exe (Например: d:\games\eve\eve.exe)")
    WEnd
    IniWrite($char&'.ini', "Settings", "FilePath",$pp)
    $ppp = InputBox("Запрос", "Введите время ожидания  в секундах до запуска клиента Евы. Программа будет выжидать этот период, прежде, чем попробует послать пароль")
    While StringIsDigit($ppp)=0
        MsgBox(16, "Error", "Нужно вводить ТОЛЬКО цифры!")
        $ppp = InputBox("Запрос", "Введите время ожидания  в секундах до запуска клиента Евы. Программа будет выжидать этот период, прежде, чем попробует послать пароль")
    WEnd
    IniWrite($char&'.ini', "Settings", "TimeWait",$ppp)
    $pppp = SelectLua()
    IniWrite($char&'.ini', "Settings", "Lua",$pppp)
    MsgBox(48, "Info", "Файл настроек для чара создан! Запустите программу еще раз")
    Exit
EndIf

;======================
$title="EVE - " & $char ; новый заголовок Евы
;======================

; начинаем читать файл настроек
$pass = IniRead($char&'.ini',"Settings","Password","###")
If $pass="###" Then
    MsgBox(16, "Error", "Не могу открыть INI файл или прочитать значение пароля!")
    Exit
EndIf

$path = IniRead($char&'.ini',"Settings","FilePath","###")
If $path="###" Then
    MsgBox(16, "Error", "Не могу открыть INI файл или прочитать путь до файла Евы!")
    Exit
EndIf

$time = IniRead($char&'.ini',"Settings","TimeWait","999999")
If $time=999999 Then
    MsgBox(16, "Error", "Не могу открыть INI файл или прочитать время ожидания! Будет использовано время ожидания по умолчанию - 10 секунд")
    $time=10
EndIf

$lua = IniRead($char&'.ini',"Settings","Lua","999999")
If $lua=999999 Then
    MsgBox(16, "Error", "Не могу открыть INI файл или прочитать - использовать LUA или нет? Параметр LUA будет использован по-умолчанию")
    $lua=1
EndIf

Select
    Case $lua = 1
        $EVE = $path & " /end /LUA:OFF"
    Case $lua = 0
        $EVE = $path
EndSelect

Run($EVE); запускаем Еву
sleep($time); ждем положенное время
WinSetTitle($oldtitle,"",$title); меняем заголовок
WinWaitActive($title); активируем окно
Send($pass&"{ENTER}"); посылаем пароль и программно жмем Энтер
;============================================
;============================================

Func SelectLua()
    Local $radio1, $radio2, $msg, $Button_1, $res
    GUICreate("My GUI radio", 230, 170); will create a dialog box that when displayed is centered

    GUICtrlCreateLabel("Выберите режим запуска клиента", 10, 25)
    $radio1 = GUICtrlCreateRadio("С ключем LUA", 10, 50)
    $radio2 = GUICtrlCreateRadio("Без ключа LUA", 10, 75)
    $Button_1 = GUICtrlCreateButton("OK", 10, 115, 90)
    GUICtrlSetState($radio1, $GUI_CHECKED)
    GUICtrlSetState($Button_1, $GUI_DEFBUTTON)
    $res=1

    GUISetState()
   
    While 1
        $msg = GUIGetMsg()
        Select
        Case $msg = $GUI_EVENT_CLOSE
                Return $res
                ExitLoop
            Case $msg = $Button_1
                ExitLoop
                          Case $msg = $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED
                $res=1;с LUA
            Case $msg = $radio2 And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED
                $res=0;без LUA
        EndSelect
    WEnd
    Return $res
EndFunc

Стырено, отсуда
http://forum.eve-ru.com/index.php?showtopic=22949&hl=AutoIt
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

Мужчина Количество сообщений : 259
Возраст : 18
Награда :  
Дата регистрации : 2009-04-29

СообщениеТема: Re: Автологин   Пн Авг 17, 2009 10:27 am

А я и не думал что на ру форуме позволяют выкладывать такие штуки о_О
Вернуться к началу Перейти вниз
Посмотреть профиль
Archy26
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 73
Возраст : 35
Награда :  
Дата регистрации : 2009-06-01

СообщениеТема: Re: Автологин   Пн Авг 17, 2009 11:57 pm

после логина в клиенте евы ставим галочку show window indentification. И последняя часть скрипта не нужна. Кроме того если менять имя программы, то после пропрыга через гейт или посадки на станцию, имя окна сменится на "EVE".
Вернуться к началу Перейти вниз
Посмотреть профиль
Nik
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 2
Возраст : 33
Награда :  
Дата регистрации : 2009-08-17

СообщениеТема: Re: Автологин   Вт Авг 18, 2009 3:02 am

Archy26 пишет:
после логина в клиенте евы ставим галочку show window indentification. И последняя часть скрипта не нужна. Кроме того если менять имя программы, то после пропрыга через гейт или посадки на станцию, имя окна сменится на "EVE".

Это я знаю. Я и не юзал ещё этот скриптик, мне бы в мининг реконектор прикрутить... Wink В общем то написать и прикрутить ваще не проблемма. Лень только ужас как Smile
Вернуться к началу Перейти вниз
Посмотреть профиль
Archy26
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 73
Возраст : 35
Награда :  
Дата регистрации : 2009-06-01

СообщениеТема: Re: Автологин   Вс Авг 23, 2009 2:32 pm

Перекрасил для страждущих. Хотя я сам пользуюсь более простым скриптом, но свой выкладывать не стану. Автологин - дело интимное Smile

#include
Local $oldtitle = "EVE"; старый заголовок Евы
; Программа запущена с параметром или нет?

If $CmdLine[0]=0 Then
MsgBox(16, "Error", "Запустите программу с указанием имени чара!")
Exit
EndIf

; имя аккаунта = первому переданному параметру. Поэтому имя акка надо указывать БЕЗ пробелов
$char = $CmdLine[1]
$ppp = "xxx"
If FileExists($char&'.ini')=0 Then; файла настроек нет, начинаем их создавать
MsgBox(16, "Error", "Файл настроек для чара не найден! Нажмите ОК и программа произведет настройку")
$p = InputBox("Запрос", "Введите пароль для чара")
IniWrite($char&'.ini', "Settings", "Password",$p)
$pp = InputBox("Запрос", "Введите полный путь до файла eve.exe (Например: d:\\games\\eve\\eve.exe)")
While FileExists($pp)=0
MsgBox(16, "Error", "Введенный путь неверен! Введите еще раз")
$pp = InputBox("Запрос", "Введите полный путь до файла eve.exe (Например: d:\\games\\eve\\eve.exe)")
WEnd
IniWrite($char&'.ini', "Settings", "FilePath",$pp)
$ppp = InputBox("Запрос", "Введите время ожидания в секундах до запуска клиента Евы. Программа будет выжидать этот период, прежде, чем попробует послать пароль")
While StringIsDigit($ppp)=0
MsgBox(16, "Error", "Нужно вводить ТОЛЬКО цифры!")
$ppp = InputBox("Запрос", "Введите время ожидания в секундах до запуска клиента Евы. Программа будет выжидать этот период, прежде, чем попробует послать пароль")
WEnd
IniWrite($char&'.ini', "Settings", "TimeWait",$ppp)
$pppp = SelectLua()
IniWrite($char&'.ini', "Settings", "Lua",$pppp)
MsgBox(48, "Info", "Файл настроек для чара создан! Запустите программу еще раз")
Exit
EndIf

;======================
$title="EVE - " & $char ; новый заголовок Евы
;======================
; начинаем читать файл настроек

$pass = IniRead($char&'.ini',"Settings","Password","###")
If $pass="###" Then
MsgBox(16, "Error", "Не могу открыть INI файл или прочитать значение пароля!")
Exit
EndIf

$path = IniRead($char&'.ini',"Settings","FilePath","###")
If $path="###" Then
MsgBox(16, "Error", "Не могу открыть INI файл или прочитать путь до файла Евы!")
Exit
EndIf

$time = IniRead($char&'.ini',"Settings","TimeWait","999999")
If $time=999999 Then
MsgBox(16, "Error", "Не могу открыть INI файл или прочитать время ожидания! Будет использовано время ожидания по умолчанию - 10 секунд")
$time=10
EndIf
$lua = IniRead($char&'.ini',"Settings","Lua","999999")
If $lua=999999 Then
MsgBox(16, "Error", "Не могу открыть INI файл или прочитать - использовать LUA или нет? Параметр LUA будет использован по-умолчанию")
$lua=1
EndIf
Select
Case
$lua = 1
$EVE = $path & " /end /LUA:OFF"
Case $lua = 0
$EVE = $path
EndSelect
Run($EVE); запускаем Еву
sleep($time); ждем положенное время
WinSetTitle($oldtitle,"",$title); меняем заголовок
WinWaitActive($title); активируем окно
Send($pass&"{ENTER}"); посылаем пароль и программно жмем Энтер
;============================================
;============================================

Func SelectLua()
Local $radio1, $radio2, $msg, $Button_1, $res
GUICreate("My GUI radio", 230, 170); will create a dialog box that when displayed is centered
GUICtrlCreateLabel("Выберите режим запуска клиента", 10, 25)
$radio1 = GUICtrlCreateRadio("С ключем LUA", 10, 50)
$radio2 = GUICtrlCreateRadio("Без ключа LUA", 10, 75)
$Button_1 = GUICtrlCreateButton("OK", 10, 115, 90)
GUICtrlSetState($radio1, $GUI_CHECKED)
GUICtrlSetState($Button_1, $GUI_DEFBUTTON)
$res=1
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case
$msg = $GUI_EVENT_CLOSE
Return $res
ExitLoop
Case
$msg = $Button_1
ExitLoop
Case
$msg = $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED
$res
=1;с LUA
Case $msg = $radio2 And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED
$res
=0;без LUA
EndSelect
WEnd
Return
$res
EndFunc
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

Мужчина Количество сообщений : 259
Возраст : 18
Награда :  
Дата регистрации : 2009-04-29

СообщениеТема: Re: Автологин   Вс Авг 23, 2009 4:22 pm

Ах вот если бы тэги code /code поддерживали у нас цвет и всегда корректно отображались это было бы очень шикарно. Ибо я в начале пробовал в этих тегах все выкладывать, но 100 строчный модуль выложился в виде 5 строк :'(
Вернуться к началу Перейти вниз
Посмотреть профиль
Lexx98
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 36
Возраст : 36
Награда :  
Дата регистрации : 2009-08-04

СообщениеТема: Re: Автологин   Вс Авг 23, 2009 5:06 pm

Как вариант, если копировать из блокнота, то всё получается одним стандартным цветом, что имхо лучше, чем вот такая вот радуга, которую на чёрном фоне форума фиг прочитаешь.
Вернуться к началу Перейти вниз
Посмотреть профиль
Lyuk
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 41
Возраст : 37
Награда :  
Дата регистрации : 2009-04-30

СообщениеТема: Re: Автологин   Вс Авг 23, 2009 6:51 pm

Имхо радуга лучше , просто фон форума к ней не подходит Evil or Very Mad , если бы ещё отступы сохранялись было бы вообще шикарно.
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

Мужчина Количество сообщений : 259
Возраст : 18
Награда :  
Дата регистрации : 2009-04-29

СообщениеТема: Re: Автологин   Вс Авг 23, 2009 10:19 pm

Так же как и в этой "радуге" цвет красится в самом SciTe Smile
Вернуться к началу Перейти вниз
Посмотреть профиль
Archy26
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 73
Возраст : 35
Награда :  
Дата регистрации : 2009-06-01

СообщениеТема: Re: Автологин   Пн Авг 24, 2009 3:48 am

Белф, пойдём к хозяину форума в ветку, будем просить снова поддержки тега [code]. Мы ему рессурс раскручиваем своей активностью, я думаю, он должен нас понять, и согласится с нами. Smile
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

Мужчина Количество сообщений : 259
Возраст : 18
Награда :  
Дата регистрации : 2009-04-29

СообщениеТема: Re: Автологин   Пн Авг 24, 2009 7:30 am

Надо только знать как это реализовывать. Чтобы подсвечивалось.
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

Мужчина Количество сообщений : 259
Возраст : 18
Награда :  
Дата регистрации : 2009-04-29

СообщениеТема: Re: Автологин   Вт Авг 25, 2009 7:56 pm

Нам дали вразумительный ответ на осзоне. Он лежит тут: _http://qbnz.com/highlighter/, а вот с этим уже можно идти и клянчить новую плюшку Smile
Вернуться к началу Перейти вниз
Посмотреть профиль
Спонсируемый контент




СообщениеТема: Re: Автологин   

Вернуться к началу Перейти вниз
 
Автологин
Предыдущая тема Следующая тема Вернуться к началу 
Страница 1 из 1

Права доступа к этому форуму:Вы не можете отвечать на сообщения
WorldCheats Forum :: Лаборатория Читера :: EVE Online-
Перейти: