PDA

Просмотр полной версии : [Скрипт] Скрипт на AutoIT(пишем бота)


Melak
01.04.2012, 08:54
Здравствуйте, решил выложить свой скрипт на AutoIT3.
Сам скрипт - это бот для кача(пример) без бафов, без селфов, просто голый бот который будет качаться по некстаргету.
Кому понадобится написать полного бота обращайтесь.
Не откажусь от вознограждения /problem

ICQ - 610 425 359

В отличии от большинства других ботов, мой не перехватывает пакетов, никак не вторгается в процесс игры..Он просто имитирует действия человека .Благодаря этому бот ну никак
НЕ ПАЛИТСЯ.

Файло:

AutoIt3 офф сайт ([Ссылки могут видеть только зарегистрированные и активированные пользователи])

Бот тык ([Ссылки могут видеть только зарегистрированные и активированные пользователи])
VirusTotal ([Ссылки могут видеть только зарегистрированные и активированные пользователи] 7d69321cd58e1a/analysis/)

Если помог не жалей спасибку.)

achehin
01.04.2012, 18:16
В отличии от большинства других ботов, мой не перехватывает пакетов, никак не вторгается в процесс игры..Он просто имитирует действия человека .Благодаря этому бот ну никак
НЕ ПАЛИТСЯ.
палится, как раз по автоматизированным действиям с одним и тем же интервалом исполнения, у человека так не получится
ваш скрипт под какое разрешение и клавиши какие за что отвечают?
ссылку на скрипт поправте пожалуйста

Melak
01.04.2012, 19:31
ваш скрипт под какое разрешение и клавиши какие за что отвечают?
я писал для 1366х768, но это не особо важно, т.к. бот этот просто для ознакомления.)
В теле бота, любой человек может отредактировать разрешение под себя.
А что касается клавиш, все расписано в самом боте.

Спасибо что поправили.)

Добавлено через 2 минуты
3-ий год пользуюсь подобным ботом на РуОФФе, не забанили пока /problem

achehin
01.04.2012, 21:53
интересная программа
ваш код
Sleep (5000)
HotKeySet ( "{ESC}" ,"_Exit")
Global $k

While 1
Cycle1()
Sleep(270)
WEnd

Func _Exit()
Exit
EndFunc
Func Cycle1()
$k=0
Send ("{F3}")
Sleep(1000)
Send ("{F1}")
Sleep(100)
$k=0
Else
Send ("{F4}")
Sleep(700)
Send ("{F4}")
Sleep(500)
$k=1
EndIf
$k=$k+1
WEnd
EndFunc
F3-targetnext, F1-attaka, F4-?

в данный момент на руоффе под какой ос у вас работает данный скрипт?

Melak
01.04.2012, 21:58
Тут определённо нужна Win7 x64..
Тестил на х32 не робит.

F4-?
F4-Подбираем выпавшее барахло с моба

artofff
03.04.2012, 18:38
а можно полный гайд???
и список команд к этой программе

achehin
03.04.2012, 19:02
а можно полный гайд???
и список команд к этой программе
хелп на русском для версии 3.1.0 ([Ссылки могут видеть только зарегистрированные и активированные пользователи])
русскоязычный сайт _[Ссылки могут видеть только зарегистрированные и активированные пользователи]
быстрый старт _[Ссылки могут видеть только зарегистрированные и активированные пользователи]
в принципе все достаточно просто, достаточно почитать и вникнуть в примеры, хелп на русском нашел там же)

GaБиК
04.04.2012, 15:56
код
Sleep (5000)
HotKeySet ( "{ESC}" ,"_Exit")
Global $k

While 1
Cycle1()
Sleep(270)
WEnd

Func _Exit()
Exit
EndFunc
Func Cycle1()
$k=0
Send ("{F3}") ;Следующая цель
Sleep(1000)
Send ("{F2}") ;Споил
Sleep(1000)
Send ("{F1}") ;Атака
Sleep(4050)
While $k<=1
PixelSearch( 620, 30, 640, 50, 7280404, 5)
If Not @error Then
Send ("{F1}") ;Атака
Sleep(100)
$k=0
Else
Send ("{F4}") ;Подбор спойла
Sleep(700)
Send ("{F4}") ;Подбор спойла
Sleep(1500)
$k=1
EndIf
$k=$k+1
WEnd
EndFunc

Возник вопрос , переделал скрипт под гнома и тут возникла проблемка: 1)
While $k<=1
PixelSearch( 620, 30, 640, 50, 7280404, 5)
If Not @error Then
Send ("{F1}") ;Атака
Sleep(100)
$k=0
Else
Send ("{F4}") ;Подбор спойла
Sleep(700)
Send ("{F4}") ;Подбор спойла
Sleep(1500)
$k=1
EndIf
$k=$k+1
WEnd
EndFunc
что за условие в этой части кода ?? И что за "If Not @error Then" ?

2) проблема пошла в итоге использования , возможно из за того что я не пойму условие (см. п.1), но как поставить чтоб сбор спойла был как моб упадет , а не сразу шел после перерыва F1 ?

achehin
04.04.2012, 21:06
While $k<=1 PixelSearch( 620, 30, 640, 50, 7280404, 5) If Not @error Then Send ("{F1}") ;Атака Sleep(100) $k=0 Else
если переменная k меньше или ровна 1 то поиск в области с координатами 620х30 и 640х50 пикселя с заданным цветом,
если пиксель найден то нажатие F1(атака) задержка 100 миллисекунд и присвоение переменной k значение ноль,
если нет то сбор дропа и k=1

вроде так