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 и более аккаунтов