Что-же, пока если честно не знакомился с языком данного ПО.
Вот код программы на 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
;________________________________________________
;________________________________________________
;________________________________________________
(Добавление)
Активация одной кнопкой + не доработанный Аим:
Цитата: 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 (Отредактировано автором: 05 Марта, 2014 - 12:29:46) |