Добрый день\вечер форумчане.
Сложилась такая проблема, не давно был написан мною бот на AutoIT (ссори, если нельзя рекламировать, другое ПО).
Функции были такие:
Поиск красного пикселя с погрешностью (Т.к прицел полупрозрачный)
Как только в области появляется пиксель, скрипт макросит ЛКМ
Как только пиксель с области исчезает, скрипт соответственно перестает макросить.
Не давно поставили защиту, и после одного\двух убийств, скрипт перестает работать.
Я слышал, что на вашем ПО можно сделать этот-же скрипт с обходом защиты фроста.
Если вы мне поможете, я буду бесконечно благодарен вам!
1. Zakitto - 04 Марта, 2014 - 07:08:21 - перейти к сообщению
2. HACMOPK - 04 Марта, 2014 - 07:52:56 - перейти к сообщению
скрипт в студию.
3. Zakitto - 04 Марта, 2014 - 09:16:29 - перейти к сообщению
HACMOPK пишет:
скрипт в студию.
Для чего, я думаю опытный скриптер и так все понял?Или тебе нужен исходник для своих целей?
4. Kibor - 05 Марта, 2014 - 02:30:57 - перейти к сообщению
Zakitto пишет:
Для чего, я думаю опытный скриптер и так все понял?Или тебе нужен исходник для своих целей?
Я очень в этом сомневаюсь так как в Кибор для решения этой проблемы достаточно вызвать одну лишь только функцию.. Быстрее всего нужен был код что бы переложить его в точности.
Нажмите меню помощь в программе. там список есть всех функций. найдете без проблем надо которая...
5. Zakitto - 05 Марта, 2014 - 04:27:58 - перейти к сообщению
Что-же, пока если честно не знакомился с языком данного ПО.
Вот код программы на AutoIT
(Буду очень благодарен, если вы поможете мне в написании кода в ЛС):
Активация при зажатии ПКМ
(Добавление)
Активация одной кнопкой + не доработанный Аим:
Вот код программы на AutoIT
(Буду очень благодарен, если вы поможете мне в написании кода в ЛС):
Активация при зажатии ПКМ
Цитата:
#include<WinAPI.au3>
;________________________________________________
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
;________________________________________________
;________________________________________________
;________________________________________________
Global $Paused, $counter = 0
HotKeySet("{F3}", "TogglePause"
HotKeySet("{F2}", "Terminate"
Shoot()
;________________________________________________
;________________________________________________
;________________________________________________
Func Shoot()
While 1
If _WinAPI_GetAsyncKeyState(0x02) = True Then
Local $coord = PixelSearch(786,436,814,464,0x0000,1)
If Not @error Then
MouseClick("Left"
Sleep(20)
EndIf
EndIf
WEnd
EndFunc
;________________________________________________
;________________________________________________
;________________________________________________
While 1
$counter +=1
WEnd
;________________________________________________
;________________________________________________
;________________________________________________
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
;ToolTip('Script is "Paused"',0,0, $counter, 1)
WEnd
ToolTip(""
EndFunc
;________________________________________________
;________________________________________________
;________________________________________________
Func Terminate()
Exit 0
EndFunc
;________________________________________________
;________________________________________________
;________________________________________________
;________________________________________________
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
;________________________________________________
;________________________________________________
;________________________________________________
Global $Paused, $counter = 0
HotKeySet("{F3}", "TogglePause"
HotKeySet("{F2}", "Terminate"
Shoot()
;________________________________________________
;________________________________________________
;________________________________________________
Func Shoot()
While 1
If _WinAPI_GetAsyncKeyState(0x02) = True Then
Local $coord = PixelSearch(786,436,814,464,0x0000,1)
If Not @error Then
MouseClick("Left"
Sleep(20)
EndIf
EndIf
WEnd
EndFunc
;________________________________________________
;________________________________________________
;________________________________________________
While 1
$counter +=1
WEnd
;________________________________________________
;________________________________________________
;________________________________________________
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
;ToolTip('Script is "Paused"',0,0, $counter, 1)
WEnd
ToolTip(""
EndFunc
;________________________________________________
;________________________________________________
;________________________________________________
Func Terminate()
Exit 0
EndFunc
;________________________________________________
;________________________________________________
;________________________________________________
(Добавление)
Активация одной кнопкой + не доработанный Аим:
Цитата:
Global $Autoshoot = 0
; hot keys
Hotkeyset('{F1}', 'startAutoshoot' ; запуск автокликера
Hotkeyset('{F2}', "offAutoshoot" ; остановка автокликера
; ----
$CenterX = @DesktopWidth / 2 ; Определяем центр экрана.
$CenterY = @DesktopHeight / 2 ; Определяем центр экрана.
$CenterRound = 200 ; От цетра паралейно будут расположенные палочки.
$CenterRW = 10 ; Ширина палочек.
$CenterColor = 0xBB161D ; Цвет который должны сканир$CenterRH = 200 ; Высота палочек.
$CenterShade = 0x27 ; Погрешность цвета.
$CenterMouse = 90 ; Отброс мышки для захвата.
Global $AimPalk = 0, $TempPX, $TempPY, $TempPW;
Hotkeyset('{F8}', 'startAimPalk' ; запуск аима (не работает нормально)
Hotkeyset('{F9}', "offtAimPalk" ; остановка аима
While 1
If $Autoshoot = 1 then ;
PixelSearch(797,1008,801,1012,0x3B3E3B,1, 1) ; координаты квадратика который определяет область срабатывания выстрела(каждый настраивает под своё разрешение)
If Not @error then
MouseClick('left'
EndIf
EndIf
if $AimPalk = 1 Then
$TempPX = $CenterX + $CenterRound;
$TempPY = $CenterX - $CenterRound - $CenterRW;
$TempPW = $CenterY - ($CenterRH / 2);
PixelSearch( $TempPX, $TempPW, $TempPX+$CenterRW, $TempPW+$CenterRH, $CenterColor, $CenterMouse, 1);
if not @error Then
MouseMove(MouseGetPos(0)+$CenterMouse,MouseGetPos(1))
EndIf
PixelSearch( $TempPY, $TempPW, $TempPY+$CenterRW, $TempPW+$CenterRH, $CenterColor, $CenterMouse, 1);
if not @error Then
MouseMove(MouseGetPos(0)-$CenterMouse,MouseGetPos(1))
EndIf
EndIf
WEnd
Func offtAimPalk()
$AimPalk = 0
EndFunc
Func startAimPalk()
$AimPalk = 1
EndFunc
; function
Func startAutoshoot(); vkl
$Autoshoot = 1
EndFunc ; end
Func offAutoshoot() ; vukl
$Autoshoot = 0
EndFunc ; end
; hot keys
Hotkeyset('{F1}', 'startAutoshoot' ; запуск автокликера
Hotkeyset('{F2}', "offAutoshoot" ; остановка автокликера
; ----
$CenterX = @DesktopWidth / 2 ; Определяем центр экрана.
$CenterY = @DesktopHeight / 2 ; Определяем центр экрана.
$CenterRound = 200 ; От цетра паралейно будут расположенные палочки.
$CenterRW = 10 ; Ширина палочек.
$CenterColor = 0xBB161D ; Цвет который должны сканир$CenterRH = 200 ; Высота палочек.
$CenterShade = 0x27 ; Погрешность цвета.
$CenterMouse = 90 ; Отброс мышки для захвата.
Global $AimPalk = 0, $TempPX, $TempPY, $TempPW;
Hotkeyset('{F8}', 'startAimPalk' ; запуск аима (не работает нормально)
Hotkeyset('{F9}', "offtAimPalk" ; остановка аима
While 1
If $Autoshoot = 1 then ;
PixelSearch(797,1008,801,1012,0x3B3E3B,1, 1) ; координаты квадратика который определяет область срабатывания выстрела(каждый настраивает под своё разрешение)
If Not @error then
MouseClick('left'
EndIf
EndIf
if $AimPalk = 1 Then
$TempPX = $CenterX + $CenterRound;
$TempPY = $CenterX - $CenterRound - $CenterRW;
$TempPW = $CenterY - ($CenterRH / 2);
PixelSearch( $TempPX, $TempPW, $TempPX+$CenterRW, $TempPW+$CenterRH, $CenterColor, $CenterMouse, 1);
if not @error Then
MouseMove(MouseGetPos(0)+$CenterMouse,MouseGetPos(1))
EndIf
PixelSearch( $TempPY, $TempPW, $TempPY+$CenterRW, $TempPW+$CenterRH, $CenterColor, $CenterMouse, 1);
if not @error Then
MouseMove(MouseGetPos(0)-$CenterMouse,MouseGetPos(1))
EndIf
EndIf
WEnd
Func offtAimPalk()
$AimPalk = 0
EndFunc
Func startAimPalk()
$AimPalk = 1
EndFunc
; function
Func startAutoshoot(); vkl
$Autoshoot = 1
EndFunc ; end
Func offAutoshoot() ; vukl
$Autoshoot = 0
EndFunc ; end
6. Kibor - 05 Марта, 2014 - 05:31:30 - перейти к сообщению
......
Может что то не понимаю, но исходя их тз.
Этот код выполняет задачу..
Тут ждет 1 пиксель... но этой функцией можно реализовать ожидание кучки пикселей на указанный объем. если прицел состоит из не одного только пикселя.. подробнее в хелпе как я уже писал.
Может что то не понимаю, но исходя их тз.
Zakitto пишет:
Поиск красного пикселя с погрешностью (Т.к прицел полупрозрачный)
Как только в области появляется пиксель, скрипт макросит ЛКМ
Как только пиксель с области исчезает, скрипт соответственно перестает макросить.
Как только в области появляется пиксель, скрипт макросит ЛКМ
Как только пиксель с области исчезает, скрипт соответственно перестает макросить.
Этот код выполняет задачу..
CODE:
int x, y;
int xs, ys, xf, yf;//Область поиска
int r=20;//цвет разбежность
int color[1];
color[0]=255;//Тут цвета
int kol[1];
kol[0]=1;
int px=5, py=5, ox=5, oy=5;
a: if (findheapcolor(1, #color[0], #kol[0], 1, 1, #x, #y, px, py, ox, oy, xs, ys, xf, yf, r, r, r, r, r, r, -1)>0)
{
mouse(LEFT);
sleep(50);
}
sleep(50);
goto a;
int xs, ys, xf, yf;//Область поиска
int r=20;//цвет разбежность
int color[1];
color[0]=255;//Тут цвета
int kol[1];
kol[0]=1;
int px=5, py=5, ox=5, oy=5;
a: if (findheapcolor(1, #color[0], #kol[0], 1, 1, #x, #y, px, py, ox, oy, xs, ys, xf, yf, r, r, r, r, r, r, -1)>0)
{
mouse(LEFT);
sleep(50);
}
sleep(50);
goto a;
Тут ждет 1 пиксель... но этой функцией можно реализовать ожидание кучки пикселей на указанный объем. если прицел состоит из не одного только пикселя.. подробнее в хелпе как я уже писал.
7. Zakitto - 05 Марта, 2014 - 05:51:44 - перейти к сообщению
Цвет указывать в формате 0x00000 (И как указать погрешность?Пикслея)
Область указывать по таким-же координатам, как и в АвтоИте?
Обойдет-ли этот скрипт Фрост,если у меня мышка Bloody?
Область указывать по таким-же координатам, как и в АвтоИте?
Обойдет-ли этот скрипт Фрост,если у меня мышка Bloody?
8. SemEMP - 06 Марта, 2014 - 12:12:19 - перейти к сообщению
Zakitto пишет:
Цвет указывать в формате 0x00000 (И как указать погрешность?Пикслея)
Область указывать по таким-же координатам, как и в АвтоИте?
Обойдет-ли этот скрипт Фрост,если у меня мышка Bloody?
Область указывать по таким-же координатам, как и в АвтоИте?
Обойдет-ли этот скрипт Фрост,если у меня мышка Bloody?
По функции я так понял это бот для игры warface .
Скорее будет работать только на ПВЕ, а на ПВП будет работать(если конечно вообще будет) через раз и то если включить выделение врагов.
Скажу тебе сразу - нету в игре warface гейм гуарда...там другой механизм
Код на автоите будет часто ложно срабатывать, можешь попробовать изучить Кибор - этот язык поруче будет и ищет на экране он значительно быстрее твоего аналога "findheapcolor"
Даже если в Киборе искать кусок цели, а не только точку.
9. Zakitto - 06 Марта, 2014 - 22:29:37 - перейти к сообщению
SemEMP пишет:
Zakitto пишет:
Цвет указывать в формате 0x00000 (И как указать погрешность?Пикслея)
Область указывать по таким-же координатам, как и в АвтоИте?
Обойдет-ли этот скрипт Фрост,если у меня мышка Bloody?
Область указывать по таким-же координатам, как и в АвтоИте?
Обойдет-ли этот скрипт Фрост,если у меня мышка Bloody?
По функции я так понял это бот для игры warface .
Скорее будет работать только на ПВЕ, а на ПВП будет работать(если конечно вообще будет) через раз и то если включить выделение врагов.
Скажу тебе сразу - нету в игре warface гейм гуарда...там другой механизм
Код на автоите будет часто ложно срабатывать, можешь попробовать изучить Кибор - этот язык поруче будет и ищет на экране он значительно быстрее твоего аналога "findheapcolor"
Даже если в Киборе искать кусок цели, а не только точку.
При чем тут WarFace
APB:Reloaded
10. Kibor - 07 Марта, 2014 - 07:02:28 - перейти к сообщению
По поводу или будет работать обход защиты я дал ссылку с лс.
По поводу реализации самого кода, я дал код, но теперь надо найти в помощи эту функцию и внимательно изучить параметры. Все будет ясно что - как.
По поводу реализации самого кода, я дал код, но теперь надо найти в помощи эту функцию и внимательно изучить параметры. Все будет ясно что - как.