[Скрипт] [ВКонтакте: Рыбное Место] Бот abyrvalg

[karcun]

лока какая?
я все удочки потестил.
все работали.
напиши какая лока, я пофиксю.
может, там то же другое положение у поплавков...
в личку скрин кинь

[Hermein]

Внимание!!!

Первое и последнее предупреждение!

Все уже описано и написано, прежде чем задавать вопросы - внимательно читаем весь топик, есть какие-то вопросы/предложения - в личку автору, а флудить здесь по типу почему у меня не работает и тп не надо!

С уважением Hermein

[salala]

Отключили Esc бот перестал закрывать окна(( Что делать?

[Fastlink]

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

[Blak34]

Программа актуальна?
Если да то помогите настроить спининг на 80кг
делал по инструкции 0 эмоций
[Ссылки могут видеть только зарегистрированные пользователи. ]

[ramsha]

Цитата: Сообщение от Fastlink Подскажите у меня бот ловит на спининг, вроде бы все нормально, но когда вытаскивает рыбу и высвечивается название ее-то бот просто перезагружает игру и заново начинает ловить. Как бы исправить это?

Помогите,тоже самое

[Groumberg]

Поменялись координаты окон с пойманной рыбой и т.д. Самое интересное, что окна появляются по разному. Координаты закрывания каждый раз разные.

[Sanych223322]

как узнать почтовый ящик пользователя ( karcun )

Добавлено через 23 часа 48 минут

Цитата: Сообщение от Hermein Внимание!!! Первое и последнее предупреждение! Все уже описано и написано, прежде чем задавать вопросы - внимательно читаем весь топик, есть какие-то вопросы/предложения - в личку автору, а флудить здесь по типу почему у меня не работает и тп не надо! С уважением Hermein

как узнать почтовый ящик пользователя ( karcun )

[romanchell]

У меня постоянно срывается рыба(шкала уходит то вверх, то вниз)

[kirill4848]

А скажите бот так и должен после каждой пойманной рыбы перезагружать игру?

[ФилСерж]

Цитата: Сообщение от kirill4848 А скажите бот так и должен после каждой пойманной рыбы перезагружать игру?

Не должен. Но есть такое

Цитата: Сообщение от sepsiz1 кому нужна прога для того что бы всегда выигрывать в балду на мэйле? вот ссылка для скачивания : [Ссылки могут видеть только зарегистрированные пользователи. ]. кому рассказть о ней подробнее пишите мне на [Ссылки могут видеть только зарегистрированные пользователи. ]

virustotal добавь, и тему создай, что-б рассказать, если решил ...

[вервольф]

Цитата: Сообщение от kirill4848 А скажите бот так и должен после каждой пойманной рыбы перезагружать игру?

этой теме в обед сто лет, бот конечно работает но коряво очень и бан не заставит себя ждать долго, проверенно. так что не советую его использовать

[stupidaborigen]

чет ничего не могу понять( вроде все сделал как в инструкции, но!
1) когда начинает клевать, не подсекает.
2) в случае, если не клюет, не закрывает окно и не забрасывает.

Пробовал разные удочки, спиннинги и удилища.
Код прилагается.

PHP код:

;То, что ниже, нужно настраивать
;Заголовок окна браузера, брать из утилиты AutoIT Window Info
$winClass = "Chrome_WidgetWin_0"
$winTitle = "Рыбное место - ловим рыбу с друзьями! - Google Chrome"

;Координаты верхнего левого пикселя приложения
$posX = 438
$posY = 236

;Набор цветов поплавка
Dim $color[9]
$color[0] = 0xFF8000
$color[1] = 0xD50202
$color[2] = 0xFF9F00
$color[3] = 0xD0661E
$color[4] = 0xFFCC00
$color[5] = 0xBF9900
$color[6] = 0xFF0000
$color[7] = 0xFFDA28
$color[8] = 0x141015

;Звуки
$soundRun        = EnvGet("WINDIR") & "\Media\Windows Notify.wav"
$soundExit        = EnvGet("WINDIR") & "\Media\Windows Hardware Remove.wav"
$soundPauseOn    = EnvGet("WINDIR") & "\Media\Speech On.wav"
$soundPauseOff    = EnvGet("WINDIR") & "\Media\Speech Off.wav"

;Дальше настраивать и трогать не надо
$buttonX    = $posX + 463
$buttonY    = $posY + 300
$buttonC    = "563A12"
$x0         = $posX + 218
$y0         = $posY + 258
$x1         = $posX + 320
$y1         = $posY + 370
$str        = $posX + 104 + 140
$end        = $posX + 491 - 140
$lvl        = $posY + 505
$exit        = 0
$refresh    = 0
$pause        = 0
$begin        = TimerInit()

SoundPlay($soundRun, 0)
AutoItSetOption("WinTitleMatchMode", 2)
HotKeySet("{F10}", "Quit")
HotKeySet("{Pause}", "TogglePause")
 Func Quit()
    SoundPlay($soundExit, 0)
    MsgBox(0, "Bye!!!", "See you later )))", 1)
    Exit
EndFunc ;Quit
Func TogglePause()
    If $pause = 0 Then
        $pause = 1
        SoundPlay($soundPauseOn, 0)
        MsgBox(0, "Pause", "Paused", 1)
    Else
        $pause = 0
        SoundPlay($soundPauseOff, 0)
        MsgBox(0, "Pause", "Continue", 1)
    EndIf
EndFunc ;TogglePause
WHILE $exit <> 1
    While $pause = 1
        Sleep(100)
    WEnd
    WinSetState("classname=" & $winClass, $winTitle, @SW_SHOWNORMAL)
    WinActivate($winTitle)
    MouseClick("left", $posX - 1, $posY)
    SLEEP(200)
    Send("{Home}")
    SLEEP(200)
    MouseClick("left", $posX + 1, $posY + 1)
    Send("{Esc}")
    SLEEP(200) 
    Send("{Esc}")
    SLEEP(200)
    Send("{Esc}")
    SLEEP(200)
    
    If TimerDiff($begin) > 1000 * 60 * 60 Then
        MouseClick("left", $posX + 490, $posY + 570)
        SLEEP(1000)
        MouseClick("left", $posX + 100, $posY + 135)
        SLEEP(1000)
        MouseClick("left", $posX + 510, $posY + 170)
        SLEEP(200)
        Send("{Esc}")
        SLEEP(200)
        $begin = TimerInit()
    EndIf
    
    Send("{Space}")
    SLEEP(3000)
    IF Hex(PixelGetColor($buttonX, $buttonY), 6) <> $buttonC THEN
        SLEEP($refresh * 20000)
        $refresh += 1
        MouseClick("left", $posX - 1, $posY)
        Send("{F5}")
        While Hex(PixelGetColor($buttonX, $buttonY), 6) <> $buttonC
            Sleep(100)
        WEnd
        ContinueLoop
    EndIf
    $refresh = 0

    $bite = False;
    While Not $bite
        $tmp = False
        For $c In $color
            $coord = PixelSearch($x0, $y0, $x1, $y1, $c)
            If Not @error Then
                $tmp = True
            EndIf
        Next
        If Not $tmp Then
            $bite = True
        EndIf
        Sleep(25)
    WEnd
    
    
    $drag = Hex(PixelGetColor($str, $lvl), 6)
    $drop = Hex(PixelGetColor($end, $lvl), 6)
    
    AutoItSetOption("SendKeyDelay", 1)
    AutoItSetOption("SendKeyDownDelay", 100)
    AutoItSetOption("SendCapslockMode", 1)
    
    $flag = 1
    WHILE Hex(PixelGetColor($buttonX, $buttonY), 6) = $buttonC
        IF Hex(PixelGetColor($str, $lvl), 6) = $drag THEN
                $flag = 1
        EndIf
        IF Hex(PixelGetColor($end, $lvl), 6) <> $drop THEN
                $flag = 0
        EndIf
        IF $flag = 1 THEN
                Send("{Space}")
        ELSE
                SLEEP(25)
        EndIf
    WEND
    SLEEP(3000)
WEND 


[вервольф]

Цитата: Сообщение от karcun пофиксено, всё заработало. Добавлено через 29 минут еще раз пофиксено, в локации Баррейринья поплавки немного по-другому расположены

в других локах все норм?в клубах вроде работает

[karcun]

Ах они письки!!!
Эскейп отключили )))

Ладно...
Добавил автоматический поиск кнопки закрытия оповещалок.

Цитата: Выключите анимацию!!!

Внимание, бот больше не перезагружает страницу вообще!!!
То есть, вместо того, чтобы рефреншнуть страницу, он елозит по ней мышом в поисках кнопычек.
Если связь с сервером пропала, то все, он потерялся.

Для тех, кто задает вопросы тут и в личку мне:
Народ, я все вопросы прочел и не нашел нужным кому-либо ответить, ибо все вопросы ни о чем.
Я Вас прошу быть внимательными при редактировании скрипта.

Цитата: Что касается глюка с перезагрузкой, то костыль вставлен, юзайте наздоровье ))) Прошу отписать как бот теперь распродается: Думается мне, теперь все окна на эскейп не реагируют...

Перед данным патчем я только лишь выполнил шаги инструкции №1 и №2 и вразу все залетало.
Бот рабочий, все в нем настрено.
Если Ваш вопрос не затрагивает работу с пунктами инструкции, значит вы не так все делаете.
Еще раз: будьте внимательны!

Добавлено через 5 минут
чета я не допер:
а где спасибки? ))))

Добавлено через 1 час 46 минут
разрабам игры:
Я тут посидел, попенькал слегка...
Знаю как избавиться от ботов вообще )))
и даже сделать так, что бы пользователи ни чего не заметили, а боты не только нарвались на костыль, но и еще многократно подтвердили, что они боты и отправили игрока в бан автоматом еще на первых уровнях )))
Причем, человек никогда не сможет этого повторить, даже зная как )))

Как меня найти Вы, вероятно, знаете, так что велкам )))