Немного автоматизации

[Undo 88]

Стало мне как-то один раз лень вручную запускать клиент и прописывать туда логин и пароль. На оф сервере была такая класная тема что можно было через ярлык запускатару передать параметр авторизации. Так-как у нас такого нет, я нагавнакодил на быструю руку скрипт на VBS для автоматизации этих действий.

 

Скачать скрипт: скачать

Все довольна таки просто:

1. Открываем файлик l2_run.vbs (у вас .vbs может не отображаться) правой кнопкой мышки "Изменить"

увидим сценарий

 

 

If WScript.Arguments.length =0 Then
 Set objShell = CreateObject("Shell.Application")
 objShell.ShellExecute "wscript.exe", Chr(34) & _
 WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else
Dim L2run, L2start, Login, Password, currentDirectory
currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
'==========================='
Login = "Login" 'Тут логин'
Password = "Password" 'Тут пароль'
'==========================='
L2start = 12 '====количество секунд для запуска клиента===='
Set L2run = WScript.CreateObject("WScript.Shell")
If L2run.Run (Chr(34) & currentDirectory & "l2.exe" & Chr(34), 1) = 0 then
WScript.Sleep L2start * 1000
L2run.SendKeys Login
WScript.Sleep 50
L2run.SendKeys "{TAB}"
WScript.Sleep 50
L2run.SendKeys Password
WScript.Sleep 50
L2run.SendKeys "{ENTER}"
WScript.Sleep 2500
L2run.SendKeys "{ENTER}"
WScript.Sleep 2500
L2run.SendKeys "{ENTER}"
End if
set L2run = Nothing
End If

 

 

2. В открывшемся файле нас интересует 3 параметра:

 

Login = "Login" 'тут логин' (Ваш логин)

Password = "Password" 'Тут пароль' (Ваш пароль)

 

 

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

 

Заполняем их

 

3. Сохраняем и копируем в папку system клиента, там где лежит l2.exe

 

p.s.

 

Единственный момент, скрипт будет заходить автоматом на сервер из списка, который был последний перед выходом.

[MedOK 8]

Тема фейл афтар любитель плагиата

http://forum.averia.ws/threads/%D0%9F%D0%BE%D0%BC%D0%BE%D1%89%D1%8C-%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D0%B8%D1%81%D1%82%D0%B0.11255/

[Undo 88]

ой, честно не видел ее :)

да и не совсем плагиат я бы сказал, мне бы было как минимум стремно запускать .exe не понятно с чем. А тут все прозрачно, все видно и просто и самое главное не нужно иметь установленный Excel на компьютере.

[artemmian 12]

Dim L2run
Dim sL2start
L2start = 10 rem //количество секунд для запуска клиента
Set L2run = WScript.CreateObject("WScript.Shell")
If L2run.Run ("l2.exe", 1) = 0 then
WScript.Sleep L2start * 1000
L2run.SendKeys "Login" rem //Ваш Login
WScript.Sleep 50
L2run.SendKeys "{TAB}"
WScript.Sleep 50
L2run.SendKeys "PAssword" rem //Ваш пароль
WScript.Sleep 50
L2run.SendKeys "{ENTER}"
WScript.Sleep 2500
L2run.SendKeys "{ENTER}"
WScript.Sleep 2500
L2run.SendKeys "{ENTER}"
End if
set L2run = Nothing

 

Стучалки нету, пароли никуда не отправляются, скрипт даже не различает логин с паролем :)

Скрипт находит процесс l2.exe, т.е игру ла2 и пошагово заполняет поля, тыкает на подтверждения и заходит на чара :)

 

Было бы круто ярлыками такое запускать для 5 и более аккаунтов

[Undo 88]

Не находит, а запускает. И да, пароли естественно никуда налево не отправляются :)

 

подправил, была проблема на win7, в активное окно не передавались данные.

[Undo 88]

 

 

Было бы круто ярлыками такое запускать для 5 и более аккаунтов

 

 

Так и задумано изначально, делаешь на каждый аккаунт копию фалика, с нужными логином и паролем. И выводишь ярлыки на рабочий стол.

[artemmian 12]

Как заполняются пароль и логин даже не успеваю заметить, окно запускается сразу с табличкой "подождите заходим".

Дописал пару кликов на enter, а то останавливался на выборе сервера и не заходил:

 

 WScript.Sleep 50
L2run.SendKeys "{ENTER}"
WScript.Sleep 50
L2run.SendKeys "{ENTER}"
End if
set L2run = Nothing

 

Уточни в 1м посте что вписывать логин и пароль нужно в кавычки, а то незнающие в комментарий внесут и будут ломать голову :)

[Undo 88]

Как заполняются пароль и логин даже не успеваю заметить, окно запускается сразу с табличкой "подождите заходим".

Дописал пару кликов на enter, а то останавливался на выборе сервера и не заходил:

 

 

 

У тебя клиент значит грузится дольше чем 10 сек, поставь таймаут (//количество секунд для запуска клиента) больше, скажем 13 сек и будет все гуд.

[artemmian 12]

У тебя клиент значит грузится дольше чем 10 сек, поставь таймаут (//количество секунд для запуска клиента) больше, скажем 13 сек и будет все гуд.

А смысл, так хоть ждать не нужно, все уже заполнено )

[Undo 88]

Я немного подправил еще скрипт, была проблема с запуском рядом с l2.exe

 

If WScript.Arguments.length =0 Then
 Set objShell = CreateObject("Shell.Application")
 objShell.ShellExecute "wscript.exe", Chr(34) & _
 WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else
Dim L2run
Dim sL2start
Dim currentDirectory
Dim Login
Dim Password
currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
'Данные авторизации'
Login = "Login" 'тут логин'
Password = "Password" 'Тут пароль'
'конец данных авторизации'
L2start = 10 'количество секунд для запуска клиента'
Set L2run = WScript.CreateObject("WScript.Shell")
If L2run.Run (currentDirectory & "l2.exe", 1) = 0 then
WScript.Sleep L2start * 1000
L2run.SendKeys Login
WScript.Sleep 50
L2run.SendKeys "{TAB}"
WScript.Sleep 50
L2run.SendKeys Password
WScript.Sleep 50
L2run.SendKeys "{ENTER}"
WScript.Sleep 2500
L2run.SendKeys "{ENTER}"
WScript.Sleep 2500
L2run.SendKeys "{ENTER}"
End if
set L2run = Nothing
End If

[artemmian 12]

Я немного подправил еще скрипт, была проблема с запуском рядом с l2.exe]

 

пишет, что не удается найти файл. А первый вариант нормально 2е окно грузит

 

А вот в 3-е окно данные не вводит

[Undo 88]

пишет, что не удается найти файл. А первый вариант нормально 2е окно грузит

 

А вот в 3-е окно данные не вводит

 

 

А у тебя случаем не Win XP?)

[artemmian 12]

А у тебя случаем не Win XP?)

Win7

[Undo 88]

Я думаю что еще влияет пробелы и русские символы в путях. Ну если первый вариант работает то пользуйся ним :D

 

p.s.

у меня как раз работает только второй вариант на домашней машине, нет времени дебажить...

[Undo 88]

Конечный вариант в шапке, работает с русскими символами и пробелами в путях к папке system (проверялся на Win 7, думаю будет работать и на Win 8, не уверен что будет работать на WinXP)