Седьмой Элемент БОТ

[Noqvestions]

не могу скачать

[arator1]

че другова бота на 7 элемент еще нету?

Добавлено через 2 минуты
здарова можешь сделать новый бот?

[Fanky3]

Все вопросы к lirikmel. За бесплатно думаю не сделает... но оно того стоит...

[eretik48]

как скачать?

[ashaxper]

ну вообщем гг 64 не ловит да???

Добавлено через 2 минуты
очень жаль(

[Fanky3]

Нашел исходник -)) искал и нашел ))
Пользуемся кто в теме, хз работает еще чтото или нет, у кого руки дойдут дерзайте!

PHP код:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=D:\Games\Brink\brink.ico
#AutoIt3Wrapper_outfile=7sRider.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=7Souls Rider
#AutoIt3Wrapper_Res_Description=7SOULS RUF OFF BOT PROGRAMM
#AutoIt3Wrapper_Res_Fileversion=0.3.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Fanky3
#Obfuscator_Parameters=/striponly
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; *** Start added by AutoIt3Wrapper ***
#include <APIConstants.au3>
; *** End added by AutoIt3Wrapper ***
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
#include <WinAPIEx.au3>
#include <WinAPI.au3>
#include <hotkey.au3>
#include <ProgressConstants.au3>
#include <SliderConstants.au3>
#include <_GetPrivilege_SEDEBUG.au3>
#Region ### START Koda GUI section ### Form
$Form1 = GUICreate("7Souls Rider v0.3.0", 377, 389, 770, 84, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
$Group1 = GUICtrlCreateGroup("Персонаж:", 8, 0, 169, 97)
$Label1 = GUICtrlCreateLabel("HP", 17, 16, 150, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Progress1 = GUICtrlCreateProgress(17, 32, 150, 17, $WS_BORDER)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xC0C0C0)
$Label2 = GUICtrlCreateLabel("MP", 17, 54, 150, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Progress2 = GUICtrlCreateProgress(17, 72, 150, 17, $WS_BORDER)
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetBkColor(-1, 0xC0C0C0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Моб:", 8, 96, 169, 57)
$Label3 = GUICtrlCreateLabel("HP", 18, 112, 150, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Progress3 = GUICtrlCreateProgress(17, 129, 150, 17, $WS_BORDER)
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0xC0C0C0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Клавиши:", 8, 152, 169, 217)
$Checkbox1 = GUICtrlCreateCheckbox("1    Каст/секунд", 16, 176, 98, 17)
$Checkbox2 = GUICtrlCreateCheckbox("2    Каст/секунд", 15, 199, 98, 17)
$Checkbox3 = GUICtrlCreateCheckbox("3    Каст/секунд", 15, 223,  98, 17)
$Checkbox4 = GUICtrlCreateCheckbox("4    Каст/секунд", 15, 247,  98, 17)
$Checkbox5 = GUICtrlCreateCheckbox("5    Каст/секунд", 15, 271,  98, 17)
$Checkbox6 = GUICtrlCreateCheckbox("6    Каст/секунд", 15, 295,  98, 17)
$Checkbox7 = GUICtrlCreateCheckbox("7    Каст/секунд", 15, 319,  100, 17)
$Input1 = GUICtrlCreateInput("0.06", 125, 176, 35, 21)
GUICtrlSetLimit(-1, 4)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Input2 = GUICtrlCreateInput("0.06", 125, 199,35, 21)
GUICtrlSetLimit(-1, 4)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Input3 = GUICtrlCreateInput("0.06", 125, 223, 35, 21)
GUICtrlSetLimit(-1, 4)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Input4 = GUICtrlCreateInput("0.06", 125, 247,35, 21)
GUICtrlSetLimit(-1, 4)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Input5 = GUICtrlCreateInput("0.06", 125, 271, 35, 21)
GUICtrlSetLimit(-1, 4)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Input6 = GUICtrlCreateInput("0.06", 125, 295,35, 21)
GUICtrlSetLimit(-1, 4)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Input7 = GUICtrlCreateInput("0.06", 125, 319, 35, 21)
GUICtrlSetLimit(-1, 1)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Checkbox8 = GUICtrlCreateCheckbox("F3   Каст/секунд", 15, 343,  98, 17)
$Input8 = GUICtrlCreateInput("0.06", 125, 343, 35, 21)
GUICtrlSetLimit(-1, 4)
GUICtrlSetBkColor(-1, 0xC0DCC0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Лечение:", 184, 0, 185, 185)
$Label5 = GUICtrlCreateLabel("Использовать 'F8' + 'F9' HP% <", 192, 16, 168, 17)
$Slider1 = GUICtrlCreateSlider(192, 32, 174, 37)
GUICtrlSetData(-1, 50)
$Button4 = GUICtrlCreateButton("C",352, 7, 15, 15)
GUICtrlSetTip($Button4, "Сбросить значения по умолчанию")
$Slider2 = GUICtrlCreateSlider(192, 83, 174, 37)
GUICtrlSetData(-1, 10)
$Label6 = GUICtrlCreateLabel("Использовать 'F10'         MP% <", 192, 67, 168, 17)
$Graphic1 = GUICtrlCreateGraphic(192, 120, 172, 1)
GUICtrlSetBkColor(-1, 0x000000)
$Label7 = GUICtrlCreateLabel("Медитац. '9' при HP% < вне боя", 193, 128, 168, 17)
$Slider3 = GUICtrlCreateSlider(192, 147, 174, 37)
GUICtrlSetData(-1, 70)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Старт", 184, 296, 187, 73, $WS_GROUP)
GUICtrlSetTip($Button1, "СТАРТ = HOME" & @CR & "СТОП = END")
$Group5 = GUICtrlCreateGroup("Другое:", 184, 184, 185, 105)
$Checkbox9 = GUICtrlCreateCheckbox("ВКЛ 'TAB' / ВЫКЛ 'F'", 192, 200, 169, 17)
$Button2 = GUICtrlCreateButton("Максимизировать окно игры", 192, 224, 171, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Восстановить прежний размер", 192, 256, 171, 25, $WS_GROUP)
$Label99 = GUICtrlCreateLabel("(c) Fanky3 all right's reserved.                 Каст='Время создания скилла'", 9, 373, 370, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
TraySetState(2)
Opt("TrayMenuMode",1)
Opt("GUIOnEventMode", 1)
Opt("PixelCoordMode", 2)
Opt("MouseCoordMode", 2)
GUISetState(@SW_SHOW)
GUICtrlSetOnEvent($Button1, "_on")
GUICtrlSetOnEvent($Button2, "_maxi")
GUICtrlSetOnEvent($Button3, "_mini")
GUICtrlSetOnEvent($Button4, "_inv")
GUICtrlSetOnEvent($Slider1, "_1")
GUICtrlSetOnEvent($Slider2, "_2")
GUICtrlSetOnEvent($Slider3, "_3")
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
#EndRegion ### END Koda GUI section ###
_HotKeyAssign($VK_HOME, '_on')
_HotKeyAssign($VK_END, '_off')
Local $on,$sc,$hwnd, $fight, $med, $jp,$resthp,$maxhp,$dead,$hp,$mp,$rest,$mobhp,$1medhp,$c1,$dll,$hplast,$hpperc,$mpperc,$mobhpperc,$mobhitmax
Local $c1x = 652, $c1y = 401,$c1x1 = $c1x + 4, $c1y1 = $c1y + 4, $loot = "`ё" , $f = "fа", $rage = "xч"
Local $medx = 675, $medy = 673,$medx1 = $medx + 20, $medy1 = $medy + 20
Local $exx = 446, $exy = 377,$exx1 = $exx + 4, $exy1 = $exy + 4,$excolor=0x828584,$excoord
Local $ex2x = 510, $ex2y = 404,$ex2x1 = $ex2x + 4, $ex2y1 = $ex2y + 4,$ex2color=0xDDDDDD,$ex2coord
Local $mousepos,$mousecolor
Local $deadx = 142, $deady = 684,$deadx1 = $deadx + 2, $deady1 = $deady + 2
Local $hpn,$hpmax,$mpn,$mpmax, $halfhp,$3rdhp,$10mp,$chanswitch = 0,$lastchanel = 1,$resurect, $mobhit,$Vkey
;pointer block
Local $hp = 0x0ed7928
Local $hpmx = 0x0ed7928
Local $mp = 0x0ed7928
Local $mpmx = 0x0ed7928
Local $bp = 0x0ed9098
Local $bp2 =0x0ed7918
;offsets block
Local $offset = 0x184
Local $offset2 = 0x188
Local $offset3 = 0x1F8
Local $offset4 = 0x1FC
Local $offset5 = 0x200
Local $offset6 = 0x204



;###start read ini###
GuiCtrlSetState($checkbox1,IniRead("7sbot.ini", "keys", "1",""))
GuiCtrlSetState($checkbox2,IniRead("7sbot.ini", "keys", "2",""))
GuiCtrlSetState($checkbox3,IniRead("7sbot.ini", "keys", "3",""))
GuiCtrlSetState($checkbox4,IniRead("7sbot.ini", "keys", "4",""))
GuiCtrlSetState($checkbox5,IniRead("7sbot.ini", "keys", "5",""))
GuiCtrlSetState($checkbox6,IniRead("7sbot.ini", "keys", "6",""))
GuiCtrlSetState($checkbox7,IniRead("7sbot.ini", "keys", "7",""))
GuiCtrlSetState($checkbox8,IniRead("7sbot.ini", "keys", "f3",""))
GuiCtrlSetState($checkbox9,IniRead("7sbot.ini", "config", "tab",""))
GuiCtrlSetData($Slider1,IniRead("7sbot.ini", "heal", "hp",""))
GuiCtrlSetData($Slider2,IniRead("7sbot.ini", "heal", "mp",""))
GuiCtrlSetData($Slider3,IniRead("7sbot.ini", "heal", "med",""))
GuiCtrlSetData($Input1,IniRead("7sbot.ini", "cast", "1",""))
GuiCtrlSetData($Input2,IniRead("7sbot.ini", "cast", "2",""))
GuiCtrlSetData($Input3,IniRead("7sbot.ini", "cast", "3",""))
GuiCtrlSetData($Input4,IniRead("7sbot.ini", "cast", "4",""))
GuiCtrlSetData($Input5,IniRead("7sbot.ini", "cast", "5",""))
GuiCtrlSetData($Input6,IniRead("7sbot.ini", "cast", "6",""))
GuiCtrlSetData($Input7,IniRead("7sbot.ini", "cast", "7",""))
GuiCtrlSetData($Input8,IniRead("7sbot.ini", "cast", "F3",""))

;###end read ini###
$mypid = WinGetProcess("[CLASS:autoit v3 GUI]") ;the window to get PID7S-MB
$ProcessID = WinGetProcess("[CLASS:diamond engine application]") ;the window to get PID
$hWnd = WinGetHandle("[CLASS:diamond engine application]","")
_GetPrivilege_SEDEBUG()
;$hToken = _WinAPI_OpenProcessToken(BitOR($TOKEN_ADJUST_PRIVILEGES, $TOKEN_QUERY))
;_WinAPI_AdjustTokenPrivileges($hToken, $SE_DEBUG_NAME, 1)
$DllInformation = _MemoryOpen($ProcessID)
$pointer= _MemoryRead($bp,$DllInformation,'dword')
$HPpointer= Hex($pointer+$offset)
$pointer2= _MemoryRead($bp2,$DllInformation,'dword')
$HPMpointer= Hex($pointer2+$offset2)
$pointer3 =_MemoryRead($hp,$DllInformation,'dword')
$pointer4 =_MemoryRead($hpmx,$DllInformation,'dword')
$pointer5 =_MemoryRead($mp,$DllInformation,'dword')
$pointer6 =_MemoryRead($mpmx,$DllInformation,'dword')
$curhp =Hex($pointer3+$offset3)
$maxhp =Hex($pointer4+$offset4)
$curmp =Hex($pointer5+$offset5)
$maxmp =Hex($pointer6+$offset6)
$hpn = _MemoryRead("0x"&$curhp, $DllInformation, 'dword')
$hpmax = _MemoryRead("0x"&$maxhp, $DllInformation, 'dword')
$mpn = _MemoryRead("0x"&$curmp, $DllInformation, 'dword')
$mpmax = _MemoryRead("0x"&$maxmp, $DllInformation, 'dword')
_MemoryWrite("0x"&$HPpointer,$DllInformation,"0",'dword')
_MemoryWrite("0x"&$HPMpointer,$DllInformation,"0",'dword')
Sleep(64)
$mobhit = _MEMORYREAD("0x"&$HPpointer, $DllInformation, "dword")
$mobhitmax = _MEMORYREAD("0x"&$HPMpointer, $DllInformation, "dword")
GuiCTRlSetData($Label1, "HP: " & $hpn & " / " & $hpmax)
GuiCTRlSetData($Label2, "MP: " & $mpn & " / " & $mpmax)
GuiCTRlSetData($Label3, "HP: " & $mobhit &" / " & $mobhitmax)
GuiCtrlSetData($Progress1, ($hpn / $hpmax * 100))
GuiCtrlSetData($Progress2, ($mpn / $mpmax * 100))
GuiCtrlSetData($Progress3, ($mobhit / $mobhitmax * 100))
$hpperc = GuiCtrlRead($Progress1)
$mpperc = GuiCtrlRead($Progress2)
$healhp = GuiCtrlRead($Slider1)
$healmp = GuiCtrlRead($Slider2)
$healmed = GuiCtrlRead($Slider3)
While 1
If $on > 0 Then
    WinActivate("[CLASS:diamond engine application]","")
$pointer= _MemoryRead($bp,$DllInformation,'dword')
$HPpointer= Hex($pointer+$offset)
$pointer2= _MemoryRead($bp2,$DllInformation,'dword')
$HPMpointer= Hex($pointer2+$offset2)
$pointer3 =_MemoryRead($hp,$DllInformation,'dword')
$pointer4 =_MemoryRead($hpmx,$DllInformation,'dword')
$pointer5 =_MemoryRead($mp,$DllInformation,'dword')
$pointer6 =_MemoryRead($mpmx,$DllInformation,'dword')
$curhp =Hex($pointer3+$offset3)
$maxhp =Hex($pointer4+$offset4)
$curmp =Hex($pointer5+$offset5)
$maxmp =Hex($pointer6+$offset6)
$hpn = _MemoryRead("0x"&$curhp, $DllInformation, 'dword')
$hpmax = _MemoryRead("0x"&$maxhp, $DllInformation, 'dword')
$mpn = _MemoryRead("0x"&$curmp, $DllInformation, 'dword')
$mpmax = _MemoryRead("0x"&$maxmp, $DllInformation, 'dword')
_MemoryWrite("0x"&$HPpointer,$DllInformation,"0",'dword')
_MemoryWrite("0x"&$HPMpointer,$DllInformation,"0",'dword')
Sleep(64)
$mobhit = _MEMORYREAD("0x"&$HPpointer, $DllInformation, "dword")
$mobhitmax = _MEMORYREAD("0x"&$HPMpointer, $DllInformation, "dword")
GuiCTRlSetData($Label1, "HP: " & $hpn & " / " & $hpmax)
GuiCTRlSetData($Label2, "MP: " & $mpn & " / " & $mpmax)
GuiCTRlSetData($Label3, "HP: " & $mobhit &" / " & $mobhitmax)
GuiCtrlSetData($Progress1, ($hpn / $hpmax * 100))
GuiCtrlSetData($Progress2, ($mpn / $mpmax * 100))
GuiCtrlSetData($Progress3, ($mobhit / $mobhitmax * 100))
$hpperc = GuiCtrlRead($Progress1)
$mpperc = GuiCtrlRead($Progress2)
$healhp = GuiCtrlRead($Slider1)
$healmp = GuiCtrlRead($Slider2)
$healmed = GuiCtrlRead($Slider3)
;$halfhp = ($hpmax / 2)
;$3rdhp = ($hpmax / 1.5)
;$10mp = ($mpmax / 10)
    _target()
EndIf
WEnd
Func _inv()
GuiCtrlSetData($Slider1, 50)
GuiCtrlSetData($Slider2, 10)
GuiCtrlSetData($Slider3, 70)
GuiCtrlSetData($Input1, 0.06)
GuiCtrlSetData($Input2, 0.06)
GuiCtrlSetData($Input3, 0.06)
GuiCtrlSetData($Input4, 0.06)
GuiCtrlSetData($Input5, 0.06)
GuiCtrlSetData($Input6, 0.06)
GuiCtrlSetData($Input7, 0.06)
GuiCtrlSetData($Input8, 0.06)
EndFunc
Func _on()
    GUICtrlSetData($Button1,"Стоп")
    GUICtrlSetOnEvent($Button1, "_off")
    $on = 1
    $fight = 1
    $rest = 0
    $resthp = 0
EndFunc
Func _1()
GUICtrlSetTip($Slider1, (GuiCtrlRead($Slider1) & " %"))
EndFunc
Func _2()
GUICtrlSetTip($Slider2, (GuiCtrlRead($Slider2) & " %"))
EndFunc
Func _3()
GUICtrlSetTip($Slider3, (GuiCtrlRead($Slider3) & " %"))
EndFunc
Func _maxi()
WinSetState("[CLASS:diamond engine application]","",@SW_MAXIMIZE)
EndFunc
Func _mini();;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;231231231231312123123816523751283651236812351623712635
WinSetState("[CLASS:diamond engine application]","",@SW_RESTORE)
WinSetOnTop("[CLASS:diamond engine application]","",1)

EndFunc
Func _off()
    GUICtrlSetData($Button1,"Старт")
    GUICtrlSetOnEvent($Button1, "_on")
    $on = 0
    $fight = 0
    $rest = 0
    $resthp = 0
EndFunc
Func _close()
    $key = GUICtrlRead($Checkbox1)
    IniWrite("7sbot.ini", "keys", "1", $key)
    $key = GUICtrlRead($Checkbox2)
    IniWrite("7sbot.ini", "keys", "2", $key)
    $key = GUICtrlRead($Checkbox3)
    IniWrite("7sbot.ini", "keys", "3", $key)
    $key = GUICtrlRead($Checkbox4)
    IniWrite("7sbot.ini", "keys", "4", $key)
    $key = GUICtrlRead($Checkbox5)
    IniWrite("7sbot.ini", "keys", "5", $key)
    $key = GUICtrlRead($Checkbox6)
    IniWrite("7sbot.ini", "keys", "6", $key)
    $key = GUICtrlRead($Checkbox7)
    IniWrite("7sbot.ini", "keys", "7", $key)
    $key = GUICtrlRead($Checkbox8)
    IniWrite("7sbot.ini", "keys", "f3", $key)
    $key = GUICtrlRead($Checkbox9)
    IniWrite("7sbot.ini", "config", "tab", $key)
    $key = GUICtrlRead($Slider1)
    IniWrite("7sbot.ini", "heal", "hp", $key)
    $key = GUICtrlRead($Slider2)
    IniWrite("7sbot.ini", "heal", "mp", $key)
    $key = GUICtrlRead($Slider3)
    IniWrite("7sbot.ini", "heal", "med", $key)
    $key = GUICtrlRead($Input1)
    IniWrite("7sbot.ini", "cast", "1", $key)
        $key = GUICtrlRead($Input2)
    IniWrite("7sbot.ini", "cast", "2", $key)
        $key = GUICtrlRead($Input3)
    IniWrite("7sbot.ini", "cast", "3", $key)
        $key = GUICtrlRead($Input4)
    IniWrite("7sbot.ini", "cast", "4", $key)
        $key = GUICtrlRead($Input5)
    IniWrite("7sbot.ini", "cast", "5", $key)
        $key = GUICtrlRead($Input6)
    IniWrite("7sbot.ini", "cast", "6", $key)
        $key = GUICtrlRead($Input7)
    IniWrite("7sbot.ini", "cast", "7", $key)
        $key = GUICtrlRead($Input8)
    IniWrite("7sbot.ini", "cast", "F3", $key)
    Exit
EndFunc
Func _target()
    If $on = 1 Then
    While $fight = 1 ; цикл боя
    If $on = 1 Then
        SendKeepActive("[CLASS:diamond engine application]","")
        ;get values from memory
$pointer= _MemoryRead($bp,$DllInformation,'dword')
$HPpointer= Hex($pointer+$offset)
$pointer2= _MemoryRead($bp2,$DllInformation,'dword')
$HPMpointer= Hex($pointer2+$offset2)
$pointer3 =_MemoryRead($hp,$DllInformation,'dword')
$pointer4 =_MemoryRead($hpmx,$DllInformation,'dword')
$pointer5 =_MemoryRead($mp,$DllInformation,'dword')
$pointer6 =_MemoryRead($mpmx,$DllInformation,'dword')
$curhp =Hex($pointer3+$offset3)
$maxhp =Hex($pointer4+$offset4)
$curmp =Hex($pointer5+$offset5)
$maxmp =Hex($pointer6+$offset6)
$hpn = _MemoryRead("0x"&$curhp, $DllInformation, 'dword')
$hpmax = _MemoryRead("0x"&$maxhp, $DllInformation, 'dword')
$mpn = _MemoryRead("0x"&$curmp, $DllInformation, 'dword')
$mpmax = _MemoryRead("0x"&$maxmp, $DllInformation, 'dword')
_MemoryWrite("0x"&$HPpointer,$DllInformation,"0",'dword')
_MemoryWrite("0x"&$HPMpointer,$DllInformation,"0",'dword')
Sleep(64)
$mobhit = _MEMORYREAD("0x"&$HPpointer, $DllInformation, "dword")
$mobhitmax = _MEMORYREAD("0x"&$HPMpointer, $DllInformation, "dword")
GuiCTRlSetData($Label1, "HP: " & $hpn & " / " & $hpmax)
GuiCTRlSetData($Label2, "MP: " & $mpn & " / " & $mpmax)
GuiCTRlSetData($Label3, "HP: " & $mobhit &" / " & $mobhitmax)
GuiCtrlSetData($Progress1, ($hpn / $hpmax * 100))
GuiCtrlSetData($Progress2, ($mpn / $mpmax * 100))
GuiCtrlSetData($Progress3, ($mobhit / $mobhitmax * 100))
$hpperc = GuiCtrlRead($Progress1)
$mpperc = GuiCtrlRead($Progress2)
$healhp = GuiCtrlRead($Slider1)
$healmp = GuiCtrlRead($Slider2)
$healmed = GuiCtrlRead($Slider3)
    If $mobhit = 0 Then
    $fight = 0
    $rest = 1
    EndIf
    If $hpn = 0 Then
    Beep(500, 1000)
    Beep(700, 1000)
    Beep(500, 1000)
    Beep(700, 1000)
    Beep(500, 1000)
    Beep(700, 1000)
    $on = 0
    $fight = 0
    $rest = 0
    If GUICtrlRead($Checkbox9) == $GUI_CHECKED Then
    WinKill("[CLASS:diamond engine application]","")
    endif
endif
    If $mobhit > 0 Then
    SendKeepActive("[CLASS:diamond engine application]")
    If $on = 1 Then
                SendKeepActive("[CLASS:diamond engine application]","")
    Send($loot)
    Sleep(64)
    Send($loot)
    Sleep(64)
    Send($rage)
    Sleep(64)
    If $hpperc < $healhp Then
    Send("{F8}")
    Sleep(64)
    Send("{F9}")
    Sleep(64)
EndIf
    If $mpperc < $healmp Then
    Send("{F10}")
    Sleep(64)
    EndIf
    If GUICtrlRead($Checkbox1) == $GUI_CHECKED Then
    _Send ($hWnd,$Vkey = int(0x31))
    Sleep(GuiCTRLRead($Input1)*1000)
    EndIf
    If GUICtrlRead($Checkbox2) == $GUI_CHECKED Then
    Send ("2")
    Sleep(GuiCTRLRead($Input2)*1000)
    EndIf
    If GUICtrlRead($Checkbox3) == $GUI_CHECKED Then
    Send ("3")
    Sleep(GuiCTRLRead($Input3)*1000)
    EndIf
    If GUICtrlRead($Checkbox4) == $GUI_CHECKED Then
    Send ("4")
    Sleep(GuiCTRLRead($Input4)*1000)
    EndIf
    If GUICtrlRead($Checkbox5) == $GUI_CHECKED Then
    Send ("5")
    Sleep(GuiCTRLRead($Input5)*1000)
    EndIf
    If GUICtrlRead($Checkbox6) == $GUI_CHECKED Then
    Send ("6")
    Sleep(GuiCTRLRead($Input6)*1000)
EndIf
    If GUICtrlRead($Checkbox7) == $GUI_CHECKED Then
    Send ("7")
    Sleep(GuiCTRLRead($Input7)*1000)
    EndIf
    If GUICtrlRead($Checkbox8) == $GUI_CHECKED Then
    Send ("{F3}")
    Sleep(GuiCTRLRead($Input8)*1000)
    EndIf
    Sleep(64)
    Send($loot)
    Sleep(64)
    Send($loot)
    Sleep(64)
    EndIf
    ;$c1 = PixelSearch ($c1x,$c1y,$c1x1,$c1y1, 0x76397A, 25, 1, $hwnd)
    ;If Not @error Then
    ;GuiCTRlSetData($Label1,"Связанный скилл!")
    ;MouseClick("LEFT",610, 425,1)
    ;Sleep(64)
    ;MouseClick("LEFT",660, 455,1)
    ;Sleep(64)
    ;EndIf
endif
EndIf
WEnd
while $rest = 1
    If $on = 1 Then
$pointer= _MemoryRead($bp,$DllInformation,'dword')
$HPpointer= Hex($pointer+$offset)
$pointer2= _MemoryRead($bp2,$DllInformation,'dword')
$HPMpointer= Hex($pointer2+$offset2)
$pointer3 =_MemoryRead($hp,$DllInformation,'dword')
$pointer4 =_MemoryRead($hpmx,$DllInformation,'dword')
$pointer5 =_MemoryRead($mp,$DllInformation,'dword')
$pointer6 =_MemoryRead($mpmx,$DllInformation,'dword')
$curhp =Hex($pointer3+$offset3)
$maxhp =Hex($pointer4+$offset4)
$curmp =Hex($pointer5+$offset5)
$maxmp =Hex($pointer6+$offset6)
$hpn = _MemoryRead("0x"&$curhp, $DllInformation, 'dword')
$hpmax = _MemoryRead("0x"&$maxhp, $DllInformation, 'dword')
$mpn = _MemoryRead("0x"&$curmp, $DllInformation, 'dword')
$mpmax = _MemoryRead("0x"&$maxmp, $DllInformation, 'dword')
_MemoryWrite("0x"&$HPpointer,$DllInformation,"0",'dword')
_MemoryWrite("0x"&$HPMpointer,$DllInformation,"0",'dword')
Sleep(64)
$mobhit = _MEMORYREAD("0x"&$HPpointer, $DllInformation, "dword")
$mobhitmax = _MEMORYREAD("0x"&$HPMpointer, $DllInformation, "dword")
GuiCTRlSetData($Label1, "HP: " & $hpn & " / " & $hpmax)
GuiCTRlSetData($Label2, "MP: " & $mpn & " / " & $mpmax)
GuiCTRlSetData($Label3, "HP: " & $mobhit &" / " & $mobhitmax)
GuiCtrlSetData($Progress1, ($hpn / $hpmax * 100))
GuiCtrlSetData($Progress2, ($mpn / $mpmax * 100))
GuiCtrlSetData($Progress3, ($mobhit / $mobhitmax * 100))
$hpperc = GuiCtrlRead($Progress1)
$mpperc = GuiCtrlRead($Progress2)
$healhp = GuiCtrlRead($Slider1)
$healmp = GuiCtrlRead($Slider2)
$healmed = GuiCtrlRead($Slider3)
            $hwnd = WinGetHandle("[CLASS:diamond engine application]","")
            WinActivate("[CLASS:diamond engine application]","")
    ;$jp = PixelSearch($jpx,$jpy,$jpx1,$jpy1, 0xDD3C92, 2, 1, $hwnd)
    ;if Not @error then
    ;    MouseClick("Left", 268, 32, 1)
    ;    Sleep(200)
    ;    MouseClick("Left", 278, 149, 1)
    ;    Sleep(200)
    ;EndIf
if $hpn = 0 Then
    $on = 0
    $fight = 0
    $rest = 0
    Beep(500, 1000)
    Beep(700, 1000)
    Beep(500, 1000)
    Beep(700, 1000)
    Beep(500, 1000)
    Beep(700, 1000)
    Beep(500, 1000)
    Beep(700, 1000)
    Beep(500, 1000)
    Beep(700, 1000)
    Beep(500, 1000)
    Beep(700, 1000)
    ProcessClose($ProcessID)
    ProcessClose("game.exe")
    ;место для кода воксрешения и прочего
EndIf
endif
    If $mobhit > 0 Then
    $rest = 0
    $resthp = 0
    $fight = 1
    EndIf
    If $mobhit = 0 Then
    If $hpperc < $healmed Or $mpn < $healmp Then
$pointer= _MemoryRead($bp,$DllInformation,'dword')
$HPpointer= Hex($pointer+$offset)
$pointer2= _MemoryRead($bp2,$DllInformation,'dword')
$HPMpointer= Hex($pointer2+$offset2)
$pointer3 =_MemoryRead($hp,$DllInformation,'dword')
$pointer4 =_MemoryRead($hpmx,$DllInformation,'dword')
$pointer5 =_MemoryRead($mp,$DllInformation,'dword')
$pointer6 =_MemoryRead($mpmx,$DllInformation,'dword')
$curhp =Hex($pointer3+$offset3)
$maxhp =Hex($pointer4+$offset4)
$curmp =Hex($pointer5+$offset5)
$maxmp =Hex($pointer6+$offset6)
$hpn = _MemoryRead("0x"&$curhp, $DllInformation, 'dword')
$hpmax = _MemoryRead("0x"&$maxhp, $DllInformation, 'dword')
$mpn = _MemoryRead("0x"&$curmp, $DllInformation, 'dword')
$mpmax = _MemoryRead("0x"&$maxmp, $DllInformation, 'dword')
_MemoryWrite("0x"&$HPpointer,$DllInformation,"0",'dword')
_MemoryWrite("0x"&$HPMpointer,$DllInformation,"0",'dword')
Sleep(64)
$mobhit = _MEMORYREAD("0x"&$HPpointer, $DllInformation, "dword")
$mobhitmax = _MEMORYREAD("0x"&$HPMpointer, $DllInformation, "dword")
GuiCTRlSetData($Label1, "HP: " & $hpn & " / " & $hpmax)
GuiCTRlSetData($Label2, "MP: " & $mpn & " / " & $mpmax)
GuiCTRlSetData($Label3, "HP: " & $mobhit &" / " & $mobhitmax)
GuiCtrlSetData($Progress1, ($hpn / $hpmax * 100))
GuiCtrlSetData($Progress2, ($mpn / $mpmax * 100))
GuiCtrlSetData($Progress3, ($mobhit / $mobhitmax * 100))
$hpperc = GuiCtrlRead($Progress1)
$mpperc = GuiCtrlRead($Progress2)
$healhp = GuiCtrlRead($Slider1)
$healmp = GuiCtrlRead($Slider2)
$healmed = GuiCtrlRead($Slider3)
    Sleep(1000)
    If $mobhit = 0 Then
    $hplast = _MemoryRead($hp, $DllInformation, 'dword')
    Sleep(100)
    Send("9")
    Sleep(100)
    $resthp = 1
    EndIf
EndIf
    If $hpperc > $healhp And $mpperc > $healmp Then
        Sleep(100)
        If GUICtrlRead($Checkbox9) == $GUI_CHECKED Then
        Send("{TAB}")
        Else
        Send($f)
        EndIf
    Send($loot)
    Sleep(64)
    Send($loot)
    Sleep(64)
        $resthp = 0
        $fight = 1
        $rest = 0
    endif
    While $resthp = 1
        if $on = 1 then
$pointer= _MemoryRead($bp,$DllInformation,'dword')
$HPpointer= Hex($pointer+$offset)
$pointer2= _MemoryRead($bp2,$DllInformation,'dword')
$HPMpointer= Hex($pointer2+$offset2)
$pointer3 =_MemoryRead($hp,$DllInformation,'dword')
$pointer4 =_MemoryRead($hpmx,$DllInformation,'dword')
$pointer5 =_MemoryRead($mp,$DllInformation,'dword')
$pointer6 =_MemoryRead($mpmx,$DllInformation,'dword')
$curhp =Hex($pointer3+$offset3)
$maxhp =Hex($pointer4+$offset4)
$curmp =Hex($pointer5+$offset5)
$maxmp =Hex($pointer6+$offset6)
$hpn = _MemoryRead("0x"&$curhp, $DllInformation, 'dword')
$hpmax = _MemoryRead("0x"&$maxhp, $DllInformation, 'dword')
$mpn = _MemoryRead("0x"&$curmp, $DllInformation, 'dword')
$mpmax = _MemoryRead("0x"&$maxmp, $DllInformation, 'dword')
_MemoryWrite("0x"&$HPpointer,$DllInformation,"0",'dword')
_MemoryWrite("0x"&$HPMpointer,$DllInformation,"0",'dword')
Sleep(64)
$mobhit = _MEMORYREAD("0x"&$HPpointer, $DllInformation, "dword")
$mobhitmax = _MEMORYREAD("0x"&$HPMpointer, $DllInformation, "dword")
GuiCTRlSetData($Label1, "HP: " & $hpn & " / " & $hpmax)
GuiCTRlSetData($Label2, "MP: " & $mpn & " / " & $mpmax)
GuiCTRlSetData($Label3, "HP: " & $mobhit &" / " & $mobhitmax)
GuiCtrlSetData($Progress1, ($hpn / $hpmax * 100))
GuiCtrlSetData($Progress2, ($mpn / $mpmax * 100))
GuiCtrlSetData($Progress3, ($mobhit / $mobhitmax * 100))
$hpperc = GuiCtrlRead($Progress1)
$mpperc = GuiCtrlRead($Progress2)
$mobhpperc = GuiCtrlRead($Progress3)
    ;$halfhp = ($hpmax / 2)
    ;$10mp = ($mpmax / 10)
    ;$3rdhp = ($hpmax / 1.5)
        Sleep(100)
        If $hpn < $hpmax Or $mpn < $mpmax Then
            Sleep(1500)
            $hpn = _MemoryRead($hp, $DllInformation, 'dword')
            $hpmax = $hpn - $hplast
        If $hpmax < 100 Then
        Send("9")
    EndIf
$pointer= _MemoryRead($bp,$DllInformation,'dword')
$HPpointer= Hex($pointer+$offset)
$pointer2= _MemoryRead($bp2,$DllInformation,'dword')
$HPMpointer= Hex($pointer2+$offset2)
$pointer3 =_MemoryRead($hp,$DllInformation,'dword')
$pointer4 =_MemoryRead($hpmx,$DllInformation,'dword')
$pointer5 =_MemoryRead($mp,$DllInformation,'dword')
$pointer6 =_MemoryRead($mpmx,$DllInformation,'dword')
$curhp =Hex($pointer3+$offset3)
$maxhp =Hex($pointer4+$offset4)
$curmp =Hex($pointer5+$offset5)
$maxmp =Hex($pointer6+$offset6)
$hpn = _MemoryRead("0x"&$curhp, $DllInformation, 'dword')
$hpmax = _MemoryRead("0x"&$maxhp, $DllInformation, 'dword')
$mpn = _MemoryRead("0x"&$curmp, $DllInformation, 'dword')
$mpmax = _MemoryRead("0x"&$maxmp, $DllInformation, 'dword')
_MemoryWrite("0x"&$HPpointer,$DllInformation,"0",'dword')
_MemoryWrite("0x"&$HPMpointer,$DllInformation,"0",'dword')
Sleep(64)
$mobhit = _MEMORYREAD("0x"&$HPpointer, $DllInformation, "dword")
$mobhitmax = _MEMORYREAD("0x"&$HPMpointer, $DllInformation, "dword")
GuiCTRlSetData($Label1, "HP: " & $hpn & " / " & $hpmax)
GuiCTRlSetData($Label2, "MP: " & $mpn & " / " & $mpmax)
GuiCTRlSetData($Label3, "HP: " & $mobhit &" / " & $mobhitmax)
GuiCtrlSetData($Progress1, ($hpn / $hpmax * 100))
GuiCtrlSetData($Progress2, ($mpn / $mpmax * 100))
GuiCtrlSetData($Progress3, ($mobhit / $mobhitmax * 100))
$hpperc = GuiCtrlRead($Progress1)
$mpperc = GuiCtrlRead($Progress2)
$healhp = GuiCtrlRead($Slider1)
$healmp = GuiCtrlRead($Slider2)
$healmed = GuiCtrlRead($Slider3)
        If $mobhit > 0 Then
        $resthp = 0
        $fight = 1
        $rest = 0
    EndIf
    EndIf
endif
$pointer= _MemoryRead($bp,$DllInformation,'dword')
$HPpointer= Hex($pointer+$offset)
$pointer2= _MemoryRead($bp2,$DllInformation,'dword')
$HPMpointer= Hex($pointer2+$offset2)
$pointer3 =_MemoryRead($hp,$DllInformation,'dword')
$pointer4 =_MemoryRead($hpmx,$DllInformation,'dword')
$pointer5 =_MemoryRead($mp,$DllInformation,'dword')
$pointer6 =_MemoryRead($mpmx,$DllInformation,'dword')
$curhp =Hex($pointer3+$offset3)
$maxhp =Hex($pointer4+$offset4)
$curmp =Hex($pointer5+$offset5)
$maxmp =Hex($pointer6+$offset6)
$hpn = _MemoryRead("0x"&$curhp, $DllInformation, 'dword')
$hpmax = _MemoryRead("0x"&$maxhp, $DllInformation, 'dword')
$mpn = _MemoryRead("0x"&$curmp, $DllInformation, 'dword')
$mpmax = _MemoryRead("0x"&$maxmp, $DllInformation, 'dword')
_MemoryWrite("0x"&$HPpointer,$DllInformation,"0",'dword')
_MemoryWrite("0x"&$HPMpointer,$DllInformation,"0",'dword')
Sleep(64)
$mobhit = _MEMORYREAD("0x"&$HPpointer, $DllInformation, "dword")
$mobhitmax = _MEMORYREAD("0x"&$HPMpointer, $DllInformation, "dword")
GuiCTRlSetData($Label1, "HP: " & $hpn & " / " & $hpmax)
GuiCTRlSetData($Label2, "MP: " & $mpn & " / " & $mpmax)
GuiCTRlSetData($Label3, "HP: " & $mobhit &" / " & $mobhitmax)
GuiCtrlSetData($Progress1, ($hpn / $hpmax * 100))
GuiCtrlSetData($Progress2, ($mpn / $mpmax * 100))
GuiCtrlSetData($Progress3, ($mobhit / $mobhitmax * 100))
$hpperc = GuiCtrlRead($Progress1)
$mpperc = GuiCtrlRead($Progress2)
$healhp = GuiCtrlRead($Slider1)
$healmp = GuiCtrlRead($Slider2)
$healmed = GuiCtrlRead($Slider3)
        If $mobhit > 0 Then
        $resthp = 0
        $fight = 1
        $rest = 0
    EndIf
    If $hpn = $hpmax Then
        If $mpn = $mpmax Then
                    SendKeepActive("[CLASS:diamond engine application]","")
        Sleep(100)
        If GUICtrlRead($Checkbox9) == $GUI_CHECKED Then
        Send("{TAB}")
        Sleep(64)
    Else
        Send($f)
    Endif
    Send($loot)
    Sleep(64)
    Send($loot)
    Sleep(64)
        $resthp = 0
        $fight = 1
        $rest = 0
    EndIf
    EndIf
WEnd
EndIf
Wend
EndIf
EndFunc

Func _Send ($hWnd, $VKey)
$Dll = DllOpen ('Bypass.dll')
DllCall ($Dll, 'bool','myPostMessageA','HWnD', $hWnd, 'uint', "$WM_KEYDOWN", 'wparam', $VKey, 'lparam','0')
EndFunc 


bypass.dll - видимо остался от попытки обойти ГГ через незаблоченную функцию.
в любом случае будет неплохим учебником для новичков в ботостроении.

[temaga]

o_O спс за исходник))

[Shinik19]

как скачать?

[Stratego]

Помогу решить вопрос с ботом в Седьмой элемент. Кликерный. Game Guard не мешает.
Во избежания лишнего внимания все вопросы и информация в личку. Предоставлю демо режим на Вашем компьютере.