Разговаривал с одним дебилом!!!!!!!!!!!

Тема в разделе "Вопросы и обсуждения", создана пользователем Shtirles, 29 ноя 2010.

  1. Shtirles

    Shtirles New Member

    Репутация:
    0
    Регистрация:
    22 фев 2010
    Сообщения:
    546
    Симпатии:
    0
    [27.11.2010 12:46:04] max .....: какие?
    [27.11.2010 12:46:15] max .....: читы есть?
    [27.11.2010 12:46:21] max .....: новые
    [27.11.2010 12:46:34] max .....: у мя акк 3 золотых галки))
    [27.11.2010 14:43:56] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: новый обход
    [27.11.2010 14:44:15] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: спидхак и т.д
    [27.11.2010 17:19:35] max .....: есть макрос?
    [27.11.2010 17:19:47] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: какой?
    [27.11.2010 17:19:51] max .....: автоматический прицел
    [27.11.2010 17:20:00] max .....: на врага
    [27.11.2010 17:20:04] max .....: ?есть?
    [27.11.2010 17:20:07] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: да
    [27.11.2010 17:20:20] max .....: ну даш за акк?
    [27.11.2010 17:20:25] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ок
    [27.11.2010 17:20:30] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ща 5 сек
    [27.11.2010 17:20:45] max .....: ну ладно дам акк 4 полоски белых после этого 1 галка
    [27.11.2010 17:21:04] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: давай 3 галки
    [27.11.2010 17:21:30] max .....: даю акк кажется 2 или 3 галки)ок?)
    [27.11.2010 17:21:41] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ок
    [27.11.2010 17:21:46] max .....: тоесть 3 полоски
    [27.11.2010 17:21:51] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: нет
    [27.11.2010 17:22:04] max .....: лана тогда не надо
    [27.11.2010 17:29:28] max .....: лана макрос кинь а я акк те но там надо мобильный ввести ну что согласен?
    [27.11.2010 17:29:42] max .....: а?
    [27.11.2010 17:29:51] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: а какой акк?
    [27.11.2010 17:29:59] max .....: 2 или 3 галки
    [27.11.2010 17:30:05] max .....: не полоски
    [27.11.2010 17:30:08] max .....: ГАЛКИ
    [27.11.2010 17:30:13] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ок
    [27.11.2010 17:30:20] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: пароль и лог кинь
    [27.11.2010 17:30:29] max .....: сначала ты макрос
    [27.11.2010 17:30:31] max .....: нет
    [27.11.2010 17:30:32] max .....: стой
    [27.11.2010 17:30:49] max .....: я те сначала логин ты мне макрос потом я те пароль ок?
    [27.11.2010 17:30:56] *** °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™ отправил autoshoot3.rar ***
    [27.11.2010 17:30:57] max .....: я дам
    [27.11.2010 17:30:59] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ок
    [27.11.2010 17:31:17] max .....: ты чесный и я даю имя и пароль
    [27.11.2010 17:31:26] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ок
    [27.11.2010 17:31:41] max .....: Electro80 89274548580
    [27.11.2010 17:31:55] max .....: токо надо мобильный ввести ок?
    [27.11.2010 17:32:01] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ок
    [27.11.2010 17:32:14] max .....: ну всё договорились))
    [27.11.2010 17:32:21] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ок
    [27.11.2010 17:32:31] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ща инструкцию кину
    [27.11.2010 17:32:36] max .....: ок
    [27.11.2010 17:33:40] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: этой версии ненужно ничего настраивать smile

    суть скрипта: при загорании прицела(красным) автоматически начинать стрелять

    1. Делаем руками :

    • качаем прогу
    • создаем файл с расширением ".au3"
    • пишем такое:
    ;инклуды
    #include
    #include
    #include
    #include
    #include
    #include
    ;гор клавиши
    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-----------------

    Макрос готов (=

    2. Есть готовый

    Для просмотра внешних ссылок необходимо зарегистрироваться либо авторизоваться

    горячие клавиши :

    ф5 - включить автовыстрел
    ф6 - отключить
    ф7 - рисовать точку
    ф8 - изменить размер окна игры

    P.S. за макросы не банят wink
    [27.11.2010 17:34:01] max .....: и чё делать что бы заработал макрос?
    [27.11.2010 17:34:06] max .....: просто включить?
    [27.11.2010 17:34:11] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: все написано здесь
    [27.11.2010 17:34:22] max .....: где?
    [27.11.2010 17:34:45] max .....: токо запустить и игру потом клавищи и всё???
    [27.11.2010 17:35:06] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: этой версии ненужно ничего настраивать smile

    суть скрипта: при загорании прицела(красным) автоматически начинать стрелять

    1. Делаем руками :

    • качаем прогу
    • создаем файл с расширением ".au3"
    • пишем такое:
    ;инклуды
    #include
    #include
    #include
    #include
    #include
    #include
    ;гор клавиши
    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-----------------

    Макрос готов (=

    2. Есть готовый

    Для просмотра внешних ссылок необходимо зарегистрироваться либо авторизоваться

    горячие клавиши :

    ф5 - включить автовыстрел
    ф6 - отключить
    ф7 - рисовать точку
    ф8 - изменить размер окна игры

    P.S. за макросы не банят wink
    [27.11.2010 17:35:11] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: этой версии ненужно ничего настраивать smile

    суть скрипта: при загорании прицела(красным) автоматически начинать стрелять

    1. Делаем руками :

    • качаем прогу
    • создаем файл с расширением ".au3"
    • пишем такое:
    ;инклуды
    #include
    #include
    #include
    #include
    #include
    #include
    ;гор клавиши
    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-----------------

    Макрос готов (=

    2. Есть готовый

    Для просмотра внешних ссылок необходимо зарегистрироваться либо авторизоваться

    горячие клавиши :

    ф5 - включить автовыстрел
    ф6 - отключить
    ф7 - рисовать точку
    ф8 - изменить размер окна игры

    P.S. за макросы не банят wink
    [27.11.2010 17:35:14] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: этой версии ненужно ничего настраивать smile

    суть скрипта: при загорании прицела(красным) автоматически начинать стрелять

    1. Делаем руками :

    • качаем прогу
    • создаем файл с расширением ".au3"
    • пишем такое:
    ;инклуды
    #include
    #include
    #include
    #include
    #include
    #include
    ;гор клавиши
    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-----------------

    Макрос готов (=

    2. Есть готовый

    Для просмотра внешних ссылок необходимо зарегистрироваться либо авторизоваться

    горячие клавиши :

    ф5 - включить автовыстрел
    ф6 - отключить
    ф7 - рисовать точку
    ф8 - изменить размер окна игры

    P.S. за макросы не банят wink
    [27.11.2010 17:35:22] max .....: понял щя посмортю инс
    [27.11.2010 17:36:14] max .....: и где написать это всё?
    [27.11.2010 17:36:56] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: просто скачай готовый
    [27.11.2010 17:37:04] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: Для просмотра внешних ссылок необходимо зарегистрироваться либо авторизоваться
    [27.11.2010 17:37:15] max .....: потом?
    [27.11.2010 17:37:23] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: читай
    [27.11.2010 17:37:34] max .....: ок спс
    [27.11.2010 17:37:39] max .....: как акк?
    [27.11.2010 17:37:44] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ща позырю
    [27.11.2010 17:38:36] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: почту дайка
    [27.11.2010 17:38:45] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ато не могу потвердить
    [27.11.2010 17:38:56] max .....: ок какая почта там написана?
    [27.11.2010 17:39:02] max .....: скажи пароль дам
    [27.11.2010 17:40:04] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: [email protected]
    [27.11.2010 17:40:05] max .....: аааааааааааааааааааааааааааааааааааа щяс забанят меня в скайпе ааааааааааааааааааааааааааааааа
    [27.11.2010 17:40:14] max .....: аааааааааааааааааааааааааааааааааааааааааааааааааааааа
    [27.11.2010 17:40:19] max .....: аааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа
    [27.11.2010 17:40:19] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: че?
    [27.11.2010 17:40:22] max .....: ааааааааааааааааааааааааа
    [27.11.2010 17:40:29] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: дай пароль
    [27.11.2010 17:40:34] max .....: админ скайпа через 2 минуты ся заьанет
    [27.11.2010 17:40:37] max .....: ок подожди
    [27.11.2010 17:43:26] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: где пароль
    [27.11.2010 17:50:43] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: че кидок чтоли?
    [27.11.2010 17:50:56] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: че ты врешь что забанит?
    [15:21:04] max .....: привет
    [15:21:10] max .....: я админ
    [15:21:22] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ку
    [15:21:22] max .....: простите но я должен удалить всех
    [15:21:34] max .....: доброго дна
    [15:21:37] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ну че ты врешь
    [15:21:45] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: уже ошибка в слове
    [15:21:51] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: админ называется
    [15:21:55] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: где пароль
    [15:22:09] max .....: не поняли хотите что бы я и вас удалил??!!
    [15:22:13] max .....: мля
    [15:22:21] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ой иди в жопу
    [15:22:24] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: кидок
    [15:22:30] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: хренов
    [15:22:47] max .....: что? какой кидок? вы что то ему давали? чит??
    [15:23:00] max .....: что вы ему дали?
    [15:23:05] max .....: что то опасное
    [15:23:06] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: хаха ну ты дебил
    [15:23:13] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ты хочешь меня провести
    [15:23:16] max .....: антивирус замигал
    [15:23:23] max .....: ну что вы дали то ему?!
    [15:23:25] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: не умеешь обманывать
    [15:23:33] max .....: бл*ть не верит
    [15:23:37] max .....: ты думаешь я
    [15:23:43] max .....: стой на умя посмотрю
    [15:23:47] max .....: я Мах?))
    [15:23:52] max .....: хахахаха
    [15:24:11] max .....: во т*пой
    [15:24:17] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: если ты был админом ты бы не разговарил матом
    [15:24:22] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: д*бил
    [15:24:23] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: кидок
    [15:24:27] max .....: админа кем считает
    [15:24:27] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: л*шара
    [15:24:33] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: *идар
    [15:24:40] max .....: сам д*бил щяс тя заблокирую ты понял?
    [15:24:45] max .....: п*лрилка
    [15:24:52] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: давай блокируй д*бил
    [15:25:03] max .....: ладно сам напрасился жди
    [15:25:08] max .....: мах))))хахахаха
    [15:25:18] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ид* в ж*пу
    [15:25:25] max .....: пошёл ты
    [15:25:27] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ой не бань меня
    [15:25:28] max .....: идиот
    [15:25:32] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: админ
    [15:25:45] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: плиз не бань
    [15:25:49] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: урод
    [15:26:24] max .....: я тя не баню но ещё раз читом с кем нибудь поделишься забаню!!! или с чем то вроде этого
    [15:26:34] max .....: уро*
    [15:26:38] °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™: ой пош*л вон отсюда
    [15:26:42] *** °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™ заблокировал max ..... ***
     
  2. Seed

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

    Репутация:
    0
    Регистрация:
    11 ноя 2010
    Сообщения:
    518
    Симпатии:
    0
    Пхпхпхпхппх "с кем нибудь читом поделишься забаню" /sm2/grin.gif Это кто??? С этого сайта?
     
  3. Vgf

    Vgf New Member

    Репутация:
    0
    Регистрация:
    21 авг 2010
    Сообщения:
    28
    Симпатии:
    0
    фигня какаета [​IMG]
     
  4. nubocheater

    nubocheater New Member

    Репутация:
    0
    Регистрация:
    6 ноя 2010
    Сообщения:
    249
    Симпатии:
    0
    [15:21:04] max .....: привет
    [15:21:10] max .....: я админ -- ухахаххаахх ржу нимагу ))))) /sm2/grin.gif :grin: ппц он гандурас,
     
  5. [REAL]Cpecific

    [REAL]Cpecific New Member

    Репутация:
    0
    Регистрация:
    2 окт 2010
    Сообщения:
    725
    Симпатии:
    0
    х) полный нубас=) сам уже спалился: [15:22:47] max .....: что? какой кидок? вы что то ему давали? чит??
    если был бы админ, какого бы Х он бы говорил про читы?
     
  6. nubocheater

    nubocheater New Member

    Репутация:
    0
    Регистрация:
    6 ноя 2010
    Сообщения:
    249
    Симпатии:
    0
    Shtirles, гордись! С тобой разговаривал сам АДМИИИИН! /sm2/grin.gif /sm2/grin.gif /sm2/grin.gif
     
  7. REkair4ek

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

    Репутация:
    0
    Регистрация:
    12 июн 2010
    Сообщения:
    1.370
    Симпатии:
    0
    Shtirles, дай его скайп
     
  8. ExsNaGiBaToR

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

    Репутация:
    0
    Регистрация:
    1 мар 2010
    Сообщения:
    2.744
    Симпатии:
    0
    да он с этого сайта вроде шас дам скайп тож был у меня
    Ник °*”˜˜”*°•¤ۣۜA ¤ۣۜZ ¤ۣۜE•°*”˜˜” º™
    скайп - radrin
     
  9. nubocheater

    nubocheater New Member

    Репутация:
    0
    Регистрация:
    6 ноя 2010
    Сообщения:
    249
    Симпатии:
    0
    Sasha022, ???? radrin это и есть Shtirles,
     
  10. Shtirles

    Shtirles New Member

    Репутация:
    0
    Регистрация:
    22 фев 2010
    Сообщения:
    546
    Симпатии:
    0
    nubocheater, radrin это мой скайп!!!а его скайп
    <span style="color:#FF0000"><div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Code</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">bandit9965</div></div></span> специально выделил красным !!он же АДМИН)))))))))))))) /sm2/grin.gif

    Добавлено (29.11.2010, 18:41)
    ---------------------------------------------
    Seed, кажется нету его здесь)))))
     
  11. nubocheater

    nubocheater New Member

    Репутация:
    0
    Регистрация:
    6 ноя 2010
    Сообщения:
    249
    Симпатии:
    0
    Shtirles, ну вот я и говорю что это твой скайп, прост саня теа перепутал вроде
     
  12. SNОRK

    SNОRK New Member Заблокированные

    Репутация:
    0
    Регистрация:
    20 май 2010
    Сообщения:
    1.312
    Симпатии:
    0
    АХААХАХ!) я Чуть не умер со смеху) Ппц)
     
  13. WebМасТер

    WebМасТер New Member Заблокированные

    Репутация:
    0
    Регистрация:
    6 сен 2010
    Сообщения:
    1.687
    Симпатии:
    0
    Я долго катался! [​IMG]
     
  14. SooN

    SooN New Member

    Репутация:
    0
    Регистрация:
    28 янв 2010
    Сообщения:
    3.742
    Симпатии:
    0
    Ну и идиот конечно этот человек :D
     
  15. Wоlf

    Wоlf New Member

    Репутация:
    0
    Регистрация:
    3 ноя 2010
    Сообщения:
    432
    Симпатии:
    0
    <span style="color:#006400">ахах вот идиот</span> <span style="color:#FF1493">:</span><span style="color:#C71585">D</span><span style="color:#00BFFF">D</span><span style="color:#FF0000">D</span>
    [​IMG] [​IMG] [​IMG]
     
  16. NikiBORc

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

    Репутация:
    0
    Регистрация:
    16 ноя 2010
    Сообщения:
    838
    Симпатии:
    0
    спасибо за скрипт
     
  17. naruto1949

    naruto1949 New Member

    Репутация:
    0
    Регистрация:
    20 фев 2010
    Сообщения:
    113
    Симпатии:
    0
    ЕБАФЛАЙ БЛИН КАКОЙТО
    [​IMG]
     
  18. ОкейБоб

    ОкейБоб New Member

    Репутация:
    0
    Регистрация:
    7 окт 2010
    Сообщения:
    433
    Симпатии:
    0
    чё я не в тыкаю в чём смех ?
     

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