WorldCheats Forum

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

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

Поделиться | 
 

 StopShip

Предыдущая тема Следующая тема Перейти вниз 
АвторСообщение
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: StopShip   Пт Май 01, 2009 11:01 am

Цитата :
StopShip v1.2 Change Log:
v1.2 05.05.2009 [Link]:
-
Скрипт полностью переработан и переписан для работы с новой архитектурой через Case MainLoop
- Повышена юзабельность модуля.
- SSCheck возвращаяет информацию о состоянии корабля (есть движение\нет движения).

v0.1 - 15.02.2009 [Link]:
- Альфа релиз модуля
Цитата :
Главная тема [Link]
Содержание [Link]


Последний раз редактировалось: Belfigor (Сб Май 09, 2009 10:39 am), всего редактировалось 7 раз(а)
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: StopShip   Пт Май 01, 2009 12:02 pm

StopShip v0.1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
;; Модуль StopShip Модуль остановки корабля
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
;; Применение:
;; Само тело функции разместить в любой удобной части скрипта.
;; Использовать ссылку на функцию из любой части скрипта, чтобы инициировать процесс остановки корабля.
;; Зависимость: НЕТ
;; Описание:
;; Модуль остановки корабля - это независмый модуль не требующий для своей работы каких либо других модулей.
;; Принцип работы:
;; Инициализация процесса остановки корабля путем нажатия на кнопку остановки корабля на нижней панеле интерфейса.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;

Func StopShip()
MouseClick("left", $WinPos[0]+468, $WinPos[1]+728, 1, 20)
EndFunc ;==>StopShip
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: StopShip   Сб Май 09, 2009 9:04 am

StopShip v1.2
Dim $WinPos = WinGetPos("EVE")
Dim $SSSAX1 = $WinPos[0]+480, $SSSAY1 = $WinPos[1]+735, $SSSAX2 = $SSSAX1+3, $SSSAY2 = $SSSAY1+3, $SSSAC = 0x939393, $SSSAS = 3 ;StopShipSearchArea X/Y, 1/2, Color, Shade
Local $i

Func _StopShip()
$i = SSCheck()
If $i = 282 Then
MouseClick("left", $WinPos[0]+468, $WinPos[1]+728, 1, 20)
Do
$i = SSCheck()
Until $i = 281
EndIf
Return
$i
EndFunc ;==>StopShip

Func SSCheck()
PixelSearch ($SSSAX1, $SSSAY1, $SSSAX2, $SSSAY2, $SSSAC, $SSSAS)
If @error Then
Return 282 ;Корабль находится в движении
Else
Return 281 ;Корабль стоит
EndIf
EndFunc
;==>SSCheck

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; SSCheck Test
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;~ While 1
;~ If SSCheck() = 282 Then
;~ TT("Не Стоит")
;~ Else
;~ TT("Стоит")
;~ EndIf
;~ WEnd
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Вернуться к началу Перейти вниз
Посмотреть профиль
NCXI FKO
Пользователь
Пользователь
avatar

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

СообщениеТема: Re: StopShip   Сб Май 09, 2009 11:11 am

Func StopShip()
Send("{CTRLDOWN}+{SPACE}")
CS(500)
Send("{CTRLUP}")
EndFunc


Я вот применил остановку шипа с помощью нажатия кнопок клавиатуры! считаю что лучше задейсвовать все возможные средсва управления! Может будет сложней отличить такого бота от человека Smile Хотя фиг знает!
Вернуться к началу Перейти вниз
Посмотреть профиль
Archy26
Пользователь
Пользователь
avatar

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

СообщениеТема: Re: StopShip   Пн Июн 01, 2009 7:57 pm

NCXI FKO пишет:
Func StopShip()
Send("{CTRLDOWN}+{SPACE}")
CS(500)
Send("{CTRLUP}")
EndFunc


Я вот применил остановку шипа с помощью нажатия кнопок клавиатуры! считаю что лучше задейсвовать все возможные средсва управления! Может будет сложней отличить такого бота от человека Smile Хотя фиг знает!

Всё правильно! Нужно вообще как можно меньше мышью пользоваться. Её очень просто выпасти измерить и прочее. А при использовании клавиатуры как сср вообще отследит действует скрипт или человек, кроме как по-таймингу? а вот тайминг нажатий в ихвестных пределах можно и рандомизировать.



Или я чего-то упустил или как, но вставленая в тело скрипта, данная функция не хочет работать. окно евы активируется в соответствии со своей функцие, потом ждёт активации, а вот далее - эта функция не хочет работать. На клавиши почему-то не надимает. Сильно не бить, синтаксис только постигаю. Что я не так делаю?
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: StopShip   Вт Июн 02, 2009 9:53 am

Ссылку на функцию вставил в нужное тебе место? Проверь вобще в принципе засылаются ли нажатия в клиент.
Вернуться к началу Перейти вниз
Посмотреть профиль
Archy26
Пользователь
Пользователь
avatar

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

СообщениеТема: Re: StopShip   Ср Июн 03, 2009 11:07 am

Belfigor пишет:
Ссылку на функцию вставил в нужное тебе место? Проверь вобще в принципе засылаются ли нажатия в клиент.
Угу, я честно говоря, не знаю, как проверить. Но факт в том, что не нажимаются никакие клавиши и мышь не хочет работать. подозреваю, что не засылаются. Very Happy
Только вот, как проверить? И что делать, если не засылается? как исправить?
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: StopShip   Ср Июн 03, 2009 4:05 pm

Ты бы лучше сюда код свой скопировал который пытаешься применить, было бы намного проще чем пытаться перебирать все возможные ошибки которые ты мог совершить Smile
Вернуться к началу Перейти вниз
Посмотреть профиль
Archy26
Пользователь
Пользователь
avatar

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

СообщениеТема: Re: StopShip   Пн Июн 08, 2009 3:31 pm

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

В общем-то оно оказывается нажимало-таки, но клавиша шифт оставалась зажатой. И выдавал скрипт отшибку на строчку CS(500). В итоге проблема решилась следующим образом (про контрол-даун,ап, я в мануале прочитал, не бить меня Smile ):

StopShip()
Func StopShip()
Send("{CTRLDOWN}+{CTRLUP}")
Send("{CTRLDOWN}")
Sleep(67)
Send("{SPACE}")
Send("{CTRLUP}")
EndFunc
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: StopShip   Вт Июн 09, 2009 6:42 am

смысл использовать ctrl down? используйте
Send("^{SPACE}") - это заменит ваши бессмысленные манипуляции с ctrlup и ctrldown и отправит в окно тот же самый Ctrl+Space
Вернуться к началу Перейти вниз
Посмотреть профиль
Archy26
Пользователь
Пользователь
avatar

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

СообщениеТема: Re: StopShip   Ср Июн 10, 2009 3:59 am

Это всё потому что я нуп в этом деле пока. Смотрю примеры в туторе в надежде что уж они-то будут работать как надо. Логику не всегда поинмаю.
Но стараюсь максимально быстро разобраться с этим.

За совет спасибо Send("^{SPACE}") прекрасно работает в качестве контрл+спэйс.
Вернуться к началу Перейти вниз
Посмотреть профиль
xelj
Пользователь
Пользователь


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

СообщениеТема: Re: StopShip   Вс Июн 21, 2009 12:33 am

А есть информация, логируются как-нибудь нажатия клавиш? Грубо говоря, ^{SPACE}выполняется мгновенно, в то время как в Send("{CTRLDOWN}+{SPACE}")
CS(500)
Send("{CTRLUP}")можно регулировать время надатия и отпускания клавиши, хотя вместо 500 лучше некоторый рандом вставить.
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: StopShip   Вс Июн 21, 2009 4:12 am

Конкретно сам не слышал, но в принципе если логируются движения мышки то почему бы не логировать и нажатия клавы. Хотя несмотря на то что они логируются есть ли разрабам до этого дело? Smile

По дефолту промежуток между нажатиями клавишь задан на 5 мс, команда
Opt("SendKeyDelay", Random(5, 10, 1)) позволит рандомизировать промежутки между нажатиями и рандомы составят каждый раз случайное число от 5 до 10 мс. Сам если честнон е пробовал, но в теории должно работать именно так. Хотя етот рандом может задаться однажды в виде случайного числа и таким и остаться на всё время выполнения скрипта. Надо тестить Smile
Вернуться к началу Перейти вниз
Посмотреть профиль
Спонсируемый контент




СообщениеТема: Re: StopShip   

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

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