greshnik77
Новичок
- Сообщения
- 27
- Репутация
- 0
В программировании не силён, кое как написал скрипт проверки процесса. С условием, если не запущено запустить процесс и после выполнить скрипт, но скрипт грузит процессор в чём может быть проблемма?
Код:
HotKeySet("{F5}", "Terminate")
Func Terminate()
MsgBox(4096, "", "Автозапуск остановлен")
Exit 0
EndFunc
While 1
If Not ProcessExists("AION.bin") Then
Run("C:\Program Files\Aion\bin32\aion.bin bin32\AION.bin -ip:91.214.69.42 -port:2106 -ng -cc:2 -lang:enu ")
# Проверяем запущен аион, если нет запускаем
Sleep (120000)
# ждём 2 минуты пока загрузится аион
WinExists("AION Client")
WinActivate("AION Client")
Send("123")
# Логин
Send("{Tab}")
# отправляем таб
Send("123")
# пароль
Send("{ENTER}")
Sleep (3000)
# ждём 3 секунды
MouseMove( 233,721, 20 )
# перемещаем мышь
Sleep (3000)
# ждём 3 секунды
MouseClick("left")
# выбираем персонажа
Sleep (3000)
# ждём 3 секунды
Send("{ENTER}")
# жмём ентер
Sleep (30000)
#ждем загрузки игры 30 сек
WinExists("bot")
WinActivate("bot")
Send("{ESC}")
# Закрываем ошибку бота
Sleep (3000)
# ждём 3 секунды
WinSetState("Бот", "", @SW_MAXIMIZE)
# разворачиваем окно бота
WinExists("Бот")
#Проверка наличия указанного окна.
WinActivate("Бот")
#Активизировать окно, то есть отобразить его на переднем плане экрана.
WinWaitActive("Бот")
#Прервать выполнение скрипта до момента активизации указанного окна.
Sleep (3000)
# ждём 3 секунды
MouseMove( 27,47, 20 )
# перемещаем мышь
Sleep (3000)
# ждём 3 секунды
MouseClick("left")
# Запускаем бота
Sleep (3000)
# ждём 3 секунды
;MouseMove( 61,49, 20 )
;# перемещаем мышь
;Sleep (3000)
;# ждём 3 секунды
;MouseClick("left")
;# Запускаем режим боя бота
Sleep (3000)
# ждём 3 секунды
WinSetState("Бот", "", @SW_MINIMIZE)
EndIf
WEnd
