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

[karcun]

Исправил.
Можно обратно включить анимацию.
Код бота обновлен!!!
Кнопка ищется быстро и без ошибок.

Цитата: Внимание! Если закончились снасти и/или наживки, бот щелкает выбор карты!!!

[karcun]

пофиксил.
код бота обновлен.

[karcun]

ыв

[waw2007]

профиксили, а жаль(

[karcun]

Цитата: Сообщение от waw2007 профиксили, а жаль(

что жаль?

[rewoyu]

в однокласниках мышка безпорядочно бегает и нажимает всё подряд.делал всё по инструкции.(Одноклассники - Opera)

[karcun]

внимательно выполните шаги инструкции 1 и 2

[rewoyu]

Цитата: Сообщение от karcun внимательно выполните шаги инструкции 1 и 2

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

[l1e9h9a999]

что это такое я всё здела так как надо но бот только вверху ездит с одной стороны в другую и всё

Цитата: ;То, что ниже, нужно настраивать ;Заголовок окна браузера, брать из утилиты AutoIT Window Info $winClass = "Рыбное место - ловим рыбу с друзьями! - Opera" $winTitle = "OperaWindowClass" ;Координаты верхнего левого пикселя приложения $posX = 264 $posY = 87 ;Набор цветов поплавка 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" $posSX0 = $posX + 419 $posSY0 = $posY + 35 $posSX1 = $posX + 531 $posSY1 = $posY + 339 $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) WinSetState("classname=" & $winClass, $winTitle, @SW_SHOWNORMAL) WinActivate($winTitle) Else $pause = 0 SoundPlay($soundPauseOff, 0) MsgBox(0, "Pause", "Continue", 1) WinSetState("classname=" & $winClass, $winTitle, @SW_SHOWNORMAL) WinActivate($winTitle) 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) IF Hex(PixelGetColor($buttonX, $buttonY), 6) <> $buttonC THEN For $y = $posSY0 To $posSY1 Step 15 For $x = $posSX1 To $posSX0 Step -10 MouseMove($x, $y, 1) Sleep(10) If MouseGetCursor() = 16 Then MouseClick("left", $x, $y) ContinueLoop 3 EndIf Next Next EndIf If TimerDiff($begin) > 1000 * 60 * 60 Then MouseClick("left", $posX + 578, $posY + 592) SLEEP(1000) MouseClick("left", $posX + 100, $posY + 135) SLEEP(1000) MouseClick("left", $posX + 504, $posY + 170) SLEEP(200) MouseClick("left", $posX + 302, $posY + 328) SLEEP(200) MouseClick("left", $posX + 567, $posY + 90) 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

[volumed]

у меня постоянно срывается рыба, удочка самая первая. Бот слишком быстро тянет.
Есть решение?

[karcun]

Цитата: Сообщение от volumed у меня постоянно срывается рыба, удочка самая первая. Бот слишком быстро тянет. Есть решение?

PHP код:

AutoItSetOption("SendKeyDelay", 1)
AutoItSetOption("SendKeyDownDelay", 100) 


попробуйте вот эти значения изменить.

[karcun]

Код бота изменен!
Переработан алгоритм вытягивания рыбы.
Теперь рыба тянется правильно.
Увеличен максимальный вес вытягиваемой рыбы

[zkifikz]

Дай ссылку на нового Бота

Добавлено через 4 минуты
А на однакласниках этот бот действует ?

[karcun]

http://zhyk.ru/forum/showthread.php?t=264856
Везде работает.

[maxsson111]

ДАЙТЕ БОТ КОТОРЫЙ НАЗЫВАЕТСЯ mouseevent (ну или как-то так)я давно качал на zhyk а теперь не могу найти((((