Автовыстрел V3.0

Тема в разделе "Закрытый архив", создана пользователем Semata, 15 ноя 2010.

  1. Semata

    Semata New Member

    Репутация:
    0
    Регистрация:
    14 мар 2010
    Сообщения:
    1.509
    Симпатии:
    0
    <span style="color:#FF1493">в этой версии ненужно ничего настраивать</span> [​IMG]

    <span style="color:#FF4500">суть скрипта: при загорании прицела(красным) автоматически начинать стрелять
    </span>
    <span style="color:#32CD32">1. Делаем руками :</span>

    <span style="color:#8B4513">• качаем Для просмотра внешних ссылок необходимо зарегистрироваться либо авторизоваться
    • создаем файл с расширением ".au3"
    • пишем такое:</span> <div class="uSpoilerClosed" id="uSpoilersj46tx"><div class="uSpoilerButBl"><input type="button" class="uSpoilerButton" onclick="if($('#uSpoilersj46tx')[0]){if ($('.uSpoilerText',$('#uSpoilersj46tx'))[0].style.display==''){$('.uSpoilerText',$('#uSpoilersj46tx'))[0].style.display='';$('.uSpoilerButton',$('#uSpoilersj46tx')).val('Закрыть спойлер');$('#uSpoilersj46tx').attr('class','uSpoilerOpened');}else {$('.uSpoilerText',$('#uSpoilersj46tx'))[0].style.display='';$('.uSpoilerButton',$('#uSpoilersj46tx')).val('Открыть спойлер');$('#uSpoilersj46tx').attr('class','uSpoilerClosed');}}" value="Открыть спойлер"/></div><div class="uSpoilerText" style="display:;">;инклуды
    #include <GDIPlus.au3>
    #include <ScreenCapture.au3>
    #include <GUIConstants.au3>
    #include <WinAPI.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>
    ;гор клавиши
    HotKeySet("{f5}", "startAutoshoot")
    HotKeySet("{f6}", "offAutoshoot")
    HotKeySet("{f7}", "crosscreate")
    HotKeySet("{f8}", "razzmerr")
    ;переменные
    global $pict, $hBit, $hGraph, $side = 65, $zoom = 2, $Autoshoot = 0
    global $gamename=('Point Blank'), $winpos = WinGetPos($gamename)
    Global $cWidth = 23, $cHeight=30
    ;тело программы
    $program = GUICreate("Zoom-ZoomPB", $side*$zoom + 2, $side*$zoom + 2, -1, -1, $WS_POPUP, $WS_EX_TOPMOST) ;создаем "око"
    GUISetState()
    _GDIPlus_Startup()
    WinMove('Zoom-ZoomPB', '', 0 , -1) ;перетаскиваем "око" в левый верхний угол
    While 1
    If $Autoshoot = 1 then ;если зажато ф5 тогда
    if WinActive('Point Blank','') then ;если существует окно игры тогда
    $pixelSearch = pixelsearch ($winpos[0]+$side,$winpos[1]+$side, $winpos[2]-$side, $winpos[3]-$side,0xff0000) ;ищем красный цвет
    If Not @error then ;если находит тогда
    Call('clicks') ;вызываем функцию "жмакания кнопок"
    ;скриним\передаем скрин в "око"
    _GDIPlus_GraphicsDispose($hGraph)
    _GDIPlus_ImageDispose($hBit)
    _WinAPI_DeleteObject($pict)
    $pict = _ScreenCapture_Capture("", $pixelSearch[0], $pixelSearch[1])
    $hBit = _GDIPlus_BitmapCreateFromHBITMAP($pict)
    $hGraph = _GDIPlus_GraphicsCreateFromHWND($program)
    _GDIPlus_GraphicsDrawImageRectRect($hGraph, $hBit, 0, 0, $side, $side, 1, 1, $side*$zoom, $side*$zoom)
    EndIf
    EndIf
    EndIf
    WEnd
    _GDIPlus_Shutdown()

    Func startAutoshoot() ;включение
    $Autoshoot = 1
    EndFunc

    Func offAutoshoot() ;выключение
    $Autoshoot = 0
    EndFunc

    Func clicks() ;функция "жмакания кнопок"
    AutoItSetOption('MouseClickDelay',100) ;задержка нажатия мыши
    MouseClick('right')
    MouseClick('left')
    EndFunc

    Func crosscreate() ;функция рисования точки
    $Cross = _Cross_Create(0, 0)
    EndFunc

    Func razzmerr() ;функция изменения размера окна
    WinMove($gamename,"" ,20,20, @DesktopWidth-40,@DeskTopHeight-40) ;параметры окна игры
    EndFunc
    ;---------------------------------рисовалка прицела--------------------------
    Func _Cross_Create($iXCord, $iYCord, $iColor = 0x0000ff, $iFlag = 0)
    $hGUI = GUICreate('MouseCross', $cWidth, $cHeight, -1, -1, $WS_POPUP, $WS_EX_TOOLWINDOW + $WS_EX_LAYERED + $WS_EX_TRANSPARENT + $WS_EX_TOPMOST)
    Local $iTransCol = 0xABCDEF
    If $iColor = $iTransCol Then $iTransCol = 0xFBCDEF
    ;-------параметры прицела
    GUISetBkColor($iTransCol)
    GUICtrlCreateLabel("", 11, 15, 2, 10)
    GUICtrlSetBkColor(-1, $iColor)
    GUICtrlCreateLabel("", 0, 11, 10, 2)
    GUICtrlSetBkColor(-1, $iColor)
    GUICtrlCreateLabel("", 15, 11, 10, 2)
    GUICtrlSetBkColor(-1, $iColor)
    ;--------------------------
    GUISetState()
    _API_SetLayeredWindowAttributes($hGUI, $iTransCol)
    EndFunc

    Func _API_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $isColorRef = False)
    Local Const $AC_SRC_ALPHA = 1
    Local Const $ULW_ALPHA = 2
    Local Const $LWA_ALPHA = 0x2
    Local Const $LWA_COLORKEY = 0x1
    If Not $isColorRef Then
    $i_transcolor = Hex(String($i_transcolor), 6)
    $i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
    EndIf
    Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $LWA_COLORKEY + $LWA_ALPHA)
    Select
    Case @error
    Return SetError(@error, 0, 0)
    Case $Ret[0] = 0
    Return SetError(4, 0, 0)
    Case Else
    Return 1
    EndSelect
    EndFunc
    ;--------------------end----crosshair-----------------

    <span style="color:#00BFFF">Макрос готов (=</span> </div></div>

    <span style="color:#0000CD">
    2. Есть готовый</span>

    <div class="uSpoilerClosed" id="uSpoilerrQjRfF"><div class="uSpoilerButBl"><input type="button" class="uSpoilerButton" onclick="if($('#uSpoilerrQjRfF')[0]){if ($('.uSpoilerText',$('#uSpoilerrQjRfF'))[0].style.display==''){$('.uSpoilerText',$('#uSpoilerrQjRfF'))[0].style.display='';$('.uSpoilerButton',$('#uSpoilerrQjRfF')).val('Закрыть спойлер');$('#uSpoilerrQjRfF').attr('class','uSpoilerOpened');}else {$('.uSpoilerText',$('#uSpoilerrQjRfF'))[0].style.display='';$('.uSpoilerButton',$('#uSpoilerrQjRfF')).val('Открыть спойлер');$('#uSpoilerrQjRfF').attr('class','uSpoilerClosed');}}" value="Открыть спойлер"/></div><div class="uSpoilerText" style="display:;">http://depositfiles.com/files/1coajwrdi</div></div>

    <u><span style="color:#FF0000">горячие клавиши :
    </span>
    </u>
    ф5 - включить автовыстрел
    ф6 - отключить
    ф7 - рисовать точку
    ф8 - изменить размер окна игры

    <u>P.S. за макросы не банят</u> [​IMG]

    <div align="right">кто скажет хоть слово про жук , бан на 3 дня ИНЕИБЁТ , мне насрать на них </div>
     
  2. Ючиха

    Ючиха New Member

    Репутация:
    0
    Регистрация:
    14 ноя 2010
    Сообщения:
    10
    Симпатии:
    0
    там не дочеты есть
     
  3. Semata

    Semata New Member

    Репутация:
    0
    Регистрация:
    14 мар 2010
    Сообщения:
    1.509
    Симпатии:
    0
    Ючиха, какие?
     
  4. BIGNIK1998

    BIGNIK1998 New Member

    Репутация:
    0
    Регистрация:
    9 авг 2010
    Сообщения:
    673
    Симпатии:
    0
    Ючиха, нет их вроде!
     
  5. БесПаники

    БесПаники New Member

    Репутация:
    0
    Регистрация:
    26 окт 2010
    Сообщения:
    232
    Симпатии:
    0
    Есть, когда прицел краснеет сразу не стреляет, а стреляет где то через 1 - 2 сек.
     
  6. QqwerR

    QqwerR New Member

    Репутация:
    0
    Регистрация:
    5 июл 2010
    Сообщения:
    184
    Симпатии:
    0
    ха прикольно щас попробуем

    Добавлено (16.11.2010, 00:18)
    ---------------------------------------------
    робит класс
     
  7. stifler

    stifler New Member Заблокированные

    Репутация:
    0
    Регистрация:
    15 июн 2010
    Сообщения:
    144
    Симпатии:
    0
    <div class="bbQuoteBlock"><div class="bbQuoteName" style="padding-left:5px;font-size:7pt">Quote (<span class="qName">БесПаники</span>)</div><div class="quoteMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">Есть, когда прицел краснеет сразу не стреляет, а стреляет где то через 1 - 2 сек.</div></div>
    это мне и не нравится в автокилах,не встречал еще быстрого, везде задержки.Быстрей сам нажмешь.
     
  8. Charlie_Chaplin_2212

    Charlie_Chaplin_2212 New Member

    Репутация:
    0
    Регистрация:
    31 окт 2010
    Сообщения:
    1.143
    Симпатии:
    0
    Норм автокилл,это не недочёт а так надо
     
  9. TheUzniK

    TheUzniK New Member

    Репутация:
    0
    Регистрация:
    10 июл 2010
    Сообщения:
    1.642
    Симпатии:
    0
    Круто лови + [​IMG]
     
  10. Antibiotik

    Antibiotik New Member Заблокированные

    Репутация:
    0
    Регистрация:
    22 июл 2010
    Сообщения:
    93
    Симпатии:
    0
    как пользоваться? открыл готовые файлы потом игру жму ф5 и нечего не происходит

    Добавлено (16.11.2010, 07:50)
    ---------------------------------------------
    Как создать файл с расширением ".au3" ? это чё текстовый документ ?
     
  11. Seed

    Seed New Member Заблокированные

    Репутация:
    0
    Регистрация:
    11 ноя 2010
    Сообщения:
    518
    Симпатии:
    0
    Кул спс!!! Лови ++ /sm2/wink.gif
     
  12. Дося

    Дося New Member

    Репутация:
    0
    Регистрация:
    10 окт 2010
    Сообщения:
    256
    Симпатии:
    0
    у меня что не получается(
     
  13. BIGNIK1998

    BIGNIK1998 New Member

    Репутация:
    0
    Регистрация:
    9 авг 2010
    Сообщения:
    673
    Симпатии:
    0
    Всё получается! ++++ тебе SEMATA, !!!
     
  14. VITAXABEST

    VITAXABEST New Member

    Репутация:
    0
    Регистрация:
    19 ноя 2010
    Сообщения:
    20
    Симпатии:
    0
    Мне не понравилось:
    1.Иногда прицел сам открывается или закрывается !!!
    2.Прицел работает только в оконном режиме !!!
     
  15. Dimonsuper

    Dimonsuper New Member Заблокированные

    Репутация:
    0
    Регистрация:
    29 окт 2010
    Сообщения:
    941
    Симпатии:
    0
    а за него банят?
     
  16. ^FOX-KILL^

    ^FOX-KILL^ New Member

    Репутация:
    0
    Регистрация:
    15 ноя 2010
    Сообщения:
    2.853
    Симпатии:
    0
    Dimonsuper, Ну вить написано НЕТ, глаза свои вылупи!

    Вот и я хотел спросить как создать файл .au3, ктонить помогите.
     
  17. aese

    aese New Member Заблокированные

    Репутация:
    0
    Регистрация:
    19 авг 2010
    Сообщения:
    259
    Симпатии:
    0
    Норм,но тут надо настраивать,так что пользуйтесь моим Autokill 2.0

    Добавлено (21.11.2010, 16:07)
    ---------------------------------------------
    Для просмотра внешних ссылок необходимо зарегистрироваться либо авторизоваться
     
  18. PokosYack

    PokosYack New Member Заблокированные

    Репутация:
    0
    Регистрация:
    9 июл 2010
    Сообщения:
    894
    Симпатии:
    0
    <div class="bbQuoteBlock"><div class="bbQuoteName" style="padding-left:5px;font-size:7pt">Quote (<span class="qName">SEMATA</span>)</div><div class="quoteMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">P.S. за макросы не банят wink</div></div>
    Dimonsuper, нуб флудер получи -8
     
  19. Борзота

    Борзота New Member

    Репутация:
    0
    Регистрация:
    20 ноя 2010
    Сообщения:
    8
    Симпатии:
    0
    Не очень, он не сразу реагирует , быстрее сам стрельнешь)
    а на счет ссг69 то норм макар для снапы)
     
  20. DoKtOrRr

    DoKtOrRr New Member

    Репутация:
    0
    Регистрация:
    9 окт 2010
    Сообщения:
    444
    Симпатии:
    0
    жалко ток в окне
    лови...
     

Поделиться этой страницей