Главная » Статьи » Soft » Программы

AutoHotKey
  • Дабы ни у кого не возникало проблем с тем что чего-то там нет или просто хочется изменить клавиши кликалки, выложу описание: что, куда, зачем и почему. 
  • Для начала нам понадобится всеми любимый Microsoft .NET Framework 3.5 ну и собственно AutoHotkey v.104504 (версия не самая новая, но в последующих были проблемы с преобразованием .ahk скриптов в .exe файл).
  •  После того, как все установили, можем начинать писать первый скрипт. Для этого создаем обычный текстовый файл и просто переименовываем расширение в .ahk . Все функции описаны в хелпе. Для помощи в определении координат пользуемся AutoIt3 Window Spy в папке с программой. Скрипты можно запускать и в таком виде ololo.ahk, но если хотите с кем то поделиться своим творением, а у него не установлена AutoHotkey, используйте Convert .ahk to .exe в папке программы. 
  •  Как оказалось, самое трудное в написании скрипта - придумать ему достойное применение, и в некоторых случаях есть много мозготраха с реализацией, а потом еще немного с правильным выбором задержек на использование скилов) 
 Ну и собственно примеры:

Всеми любимый кликер 

Спам скилов на F1,F4,F8. Наводим курсор мыши на цель, зажимаем клавишу и спамим скилами. При необходимости просто меняем клавишу/клавиши спама, сохранем, запускаем и поехали xD 
Code

$F1::   
Loop   
{   
if not GetKeyState("F1", "P")   
break   
Send {F1}   
Send {Click}   
sleep 10 


$F4::   
Loop   
{   
if not GetKeyState("F4", "P")   
break   
Send {F4}   
Send {Click}   
sleep 10 


$F8::   
Loop   
{   
if not GetKeyState("F8", "P")   
break   
Send {F8}   
Send {Click}   
sleep 10 
}   


Автожор 

Автожор, жрет пока значение цветов полосок хп в заданных точках станет неравно значению пустых полосок. Отжирает сначала полное хп, потом доедает сп) примерно на (95%/50%). Работает только в псевдополноэкранном режиме, стартует по F11, белые поты должны стоять на F8, синие на F9 (клавиши так же можно переназначить) 
Code

$F11::   
Loop   
{   
PixelGetColor, color, 165, 56 
if color= 0xD6CECE 
loop 

send {F8} 
PixelGetColor, color, 165, 56 
if color<> 0xD6CECE 
break 
if color= 0xD6CECE 
continue 


PixelGetColor, color, 97, 71 
if color= 0xD6CECE 
send {F9} 
sleep 50 




Ну и еще полезное применение - в переодевании шмота (особенно аксесов) 

Вот скрипт, который я писал на пала: по нажатию Alt+1 одевался дексовый эквип, Alt+2 хп эквип, Alt+3 эквип от азур + тут же был кликер на спам ниткой в ручном и автоматическом режиме по 3 первым чарам в патилисте (оказалось дико неудобно бегать в этом режиме) + кликер на прес. Скрипт рабочий, но с задержками на нитку так и не определился) Еще есть такой косяк - в русской раскладке скрипт не работает)))) 
Code

$!1::   

PixelGetColor, color, 515, 715 
if color<> 0xF7F7F7 


Send z 
sleep 100 
PixelGetColor, color, 437, 324 
if color<> 0xFFFFFF 

Send p 

sleep 100 
Click 447,451 
sleep 50 
Click 447,451 
sleep 100 
send p 
sleep 100 
send z 
sleep 100 
send x 
sleep 100 
send a 
sleep 100 
send s 
sleep 100 
send d 
sleep 100 
send f 
sleep 100 
send m 


else   

send 1 

exit 


$!2::   

PixelGetColor, color, 515, 715 
if color<> 0xF7F7F7 


Send c 
sleep 100 
PixelGetColor, color, 437, 324 
if color<> 0xFFFFFF 

Send p 

sleep 100 
Click 447,451 
sleep 50 
Click 447,451 
sleep 100 
send p 
sleep 100 
send c 
sleep 100 
send v 
sleep 100 
send g 
sleep 100 
send h 
sleep 100 
send j 
sleep 100 
send k 
sleep 100 
send m 

else 

send 2 

exit 


$!3::   

PixelGetColor, color, 515, 715 
if color<> 0xF7F7F7 


Send c 
sleep 100 
PixelGetColor, color, 437, 324 
if color<> 0xFFFFFF 

Send p 

sleep 100 
Click 447,451 
sleep 50 
Click 447,451 
sleep 100 
send p 
sleep 100 
send c 
sleep 100 
send b 
sleep 100 
send a 
sleep 100 
send s 
sleep 100 
send d 
sleep 100 
send f 
sleep 100 
send n 


else 

send 3 


exit 


$F1::   
Loop   
{   
if not GetKeyState("F1", "P")   
break   
Send {F1} 
Send {Click}   
sleep 200 


$F4:: 
Loop   
{   
if not GetKeyState("F4", "P")   
break 
MouseMove 30,265 
Send w 
sleep 50 
Click 30, 265 
sleep 500 
if not GetKeyState("F4", "P")   
break 
MouseMove 30,285 
Send w 
sleep 50   
Click 30, 285 
sleep 500 
if not GetKeyState("F4", "P")   
break 
MouseMove 30,305 
Send w 
sleep 50   
Click 30, 305 
sleep 500 
}   




Категория: Программы | Добавил: Johnny (10.01.2012) | Автор: Sentinelko
Просмотров: 1590 | Комментарии: 1 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Categories

1. Soft

2. Ragnarok

 
Forum
Topic: Перепись 2017
Posted by: Johnny2053
Posted at: 28.02.2024
Topic: AERO
Posted by: Johnny
Posted at: 17.10.2017
Topic: Вот и Я Рассказывайте что задумали:)
Posted by: ХyDobА
Posted at: 23.05.2016
 
Articles
 
Friends
WERBUNG //team-error.clan.su
http://astre.co
http://astre.co