AutoIT Healthbar,Mob attack ?

[blackout617]

Originally Posted by omer36

was sollen wir da noch sagen?

wenn die msgbox für deine maxhp 0 zeigt muss sie wohl falsch sein.

dir ist schon kla, dass nach jedem neustart des spiels sich auch die addressen ändern ja?

oder (wie ichs schon anfangs sagte) zeig uns alles und wir schauen ob du nocht doch ein fehler hast.

du brauchst keien angst zu haben, dass dir jemand dein code klaut.......

oke aber die erklerung sind türkish weil ich es so benutze
hier der kode.

 Spoiler

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <NomadMemory.au3> ;because you need this for _memread functions
;blackout -  Memory Reader -
;~~~~~~~~~~~~~~~~~~Important for Nomad~~~~~~~~~~~~~~~~~~~~~~~~~~
#RequireAdmin ;Asks for admin rights
SetPrivilege("SeDebugPrivilege", 1) ; Sets privilege
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;**************ADRESS LİST LOL*********************


Global Const $Mem_Address = 0x0ADDBEB4 ; <--Assumed is correct ~ if not Fix it!~ HP ADRESSS
Global Const $Mem_Address2 = 0x0A45A4F0 ; <--Assumed is correct ~ if not Fix it!~ GOLD ADRESS
Global Const $Mem_Address3 = 0x0ADDBEB0 ; <-- Max HP Adress
Global Const $Mem_Address4 = 0x1CF0F0B0 ; <--- 1.Slot Das endert sich immer bei spiel neu start s.


;0AB871E5 ; ID
;0x0B5DF600 Coming Soon Map Adresses2
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Handle :ATTENTION!!!:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $Mem_Open = _MemoryOpen(ProcessExists("Die.exe"))
;                                           ~cuz i dont know what it is~
if @error Then ; @error for handle
    MsgBox (48, "Error", "The returned @error : " & @error)
    Exit
;                             1 = Invalid $iv_Pid.
;                             2 = Failed to open Kernel32.dll.
;                             3 = Failed to open the specified process.
EndIf
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GUI~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

GUICreate(" Project Blackout617",200, 200,-1,-1,-1,$WS_EX_TOPMOST) ;200 ve 200 büyüklük genişlikdir onları topmost ekledigimiz için eklmek zornda kaldk..
;$Button_1 = GUICtrlCreateButton ("Check Memory Address",  10, 30, 150)
$Label_1 = GUICtrlCreateLabel("HP:",20, 60)
$Label_2 = GUICtrlCreateLabel("Gold:" ,20, 80)
$Label_3 = GUICtrlCreateLabel("Here Will Show Your HP-Blackout",40, 60)
$Label_4 = GUICtrlCreateLabel("Here Will Show Your Gold-Blackout" ,45, 80)
$maxhp = GUICtrlCreateLabel("?????????",65,60) ; mAX HP İçin
$map = GUICtrlCreateLabel("1.Slot Adet:",20,100)
$map2 = GUICtrlCreateLabel("Here Will Show Your User Name-Blackout",50,100)
  $progressbar1 = GUICtrlCreateProgress(10, 10, 200, 20)
    GUICtrlSetColor(-1, 32250); not working with Windows XP Style
 ;$progressbar2 = GUICtrlCreateProgress(10, 30, 200, 20, $PBS_SMOOTH)
;GUICtrlCreateProgress(10,10,80,10,1,1)
;GuictrlcreateProgress
GUISetState ()
$HP=Readmem()
$MaxHP=Readmem3()
Readmem()
Readmem2()
Readmem3()
 Func atk()
;BURDA BOTUN KENDISI BASLIYOR YANI BETA VERSIYON SENDKEYS KODLARI FELAN FILAN
$hWnd = "GAME" ;Bu pencere adı
sleep(125) ; sleep yapalm biraz baslamadna önce
ControlSend($hWnd,"","","{SPACE}") ; Enter yapıp yazı yazma yerini acar sonra alttaki aktif yazsını yazar altındada göndermek için enter yapar.
Sleep(160) ;yine sleep komutu  bekletelim enteri basması sürerse diye
;Sleep0)
ControlSend($hWnd,"","","{SPACE}") ;Control send dir bu kod pencere asagıda olsa bile pencere yollar keyleri
Sleep(140) ; yine yazıyı yazdıktan sonra bekletilsin
ControlSend($hWnd,"","", "é" ) ;Evet yazıyı yukarda yazdı simdi enterliyip yolluyor.
;Burada bitiyor :D
sleep(400)
EndFunc


GUICtrlSetData($progressbar1,100)
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Func HpCheck() ; hp yi ceklemedir yani % kac dan sonra ne yapsn fonksiyona ekledm daha basit olsn diye
If $Label_3/$maxhp*100 < 50 then msg() ; 100<100 then sonra yani then den önceki 100 yüzde kac olnca ne yapsn msg de ne yapacagıdır fonksiyonu
EndFunc


   Func msg()
	  MsgBox(0,"Wow","HP %50")
	  EndFunc
 ;  $

MsgBox(0,"Test",$Label_2)

While 1
    ;$msg = GUIGetMsg()  ;BURALAR DE AKTIFE YAPILDI AKTIF YAPILIRSA BUTTON ILE GINCELLERSNZ
    ;Select
      ;  Case $msg = $GUI_EVENT_CLOSE
        ;    ExitLoop
		; Case $msg = $Button_1
		sleep(100)
		
            ReadMem()
			sleep(45)
			ReadMem2()
			sleep(12)
			;atk()
			sleep(5)
			ReadMem3()
			sleep(45)
			sleep(12)
			ReadMem4()
			sleep(45)
			HpCheck()
			GUICtrlSetData($progressbar1, $HP/$MaxHP*100) ; burada kod yaptgmz progressbarı hp bar olarak kullancagımız için onn içini doldurur valuesinin ayarlar.
			sleep(120)
			
  ;  EndSelect
WEnd



;~~~~~~Made funcitons because its easier for people to see whats going on~~~~~~~~~~
Func Readmem2()
   $Mem_Read2 = _MemoryRead($Mem_Address2, $Mem_Open)
   GUICtrlSetData($Label_4,$Mem_Read2);
   EndFunc
Func ReadMem()
    $Mem_Read = _MemoryRead($Mem_Address, $Mem_Open) ;reads value at memory address
    GUICtrlSetData($Label_3,$Mem_Read) ; sets label to value of read memory
EndFunc
Func ReadMem3()
    $Mem_Read = _MemoryRead($Mem_Address3, $Mem_Open) ;reads value at memory address
    GUICtrlSetData($maxhp,$Mem_Read) ; sets label to value of read memory
 EndFunc
 Func ReadMem4()
    $Mem_Read = _MemoryRead($Mem_Address4, $Mem_Open) ;reads value at memory address
    GUICtrlSetData($map2,$Mem_Read) ; sets label to value of read memory
EndFunc
;                               ------------

Func CloseMem()
    _MemoryClose($Mem_Open) ;close it afterwards
EndFunc
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[omer36]

hier auf die schnelle..

sollte eig. gehen, wenn die addressen dann richtig sind.
das von dir war mir zu durcheinander, aber kannst du ja dann übernehmen (wenns klappt)

 Spoiler

PHP Code:

#RequireAdmin
#include <NomadMemory.au3>
#include <ProgressConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 226, 130, 192, 124)
$Progress1 = GUICtrlCreateProgress(16, 80, 198, 17)
GUICtrlSetColor(-1, 0x00FF00) ;grün
;~ GUICtrlSetColor($Progress1, 0xFFFF00) Gelb
;~ GUICtrlSetColor($Progress1, 0xFF0000) Rot
$InputMaxhp = GUICtrlCreateInput("", 64, 8, 89, 21)
$Label1 = GUICtrlCreateLabel("MaxHP", 16, 8, 39, 17)
$Label2 = GUICtrlCreateLabel("HP", 16, 40, 19, 17)
$InputHp = GUICtrlCreateInput("", 64, 40, 89, 21)
$LabelHP = GUICtrlCreateLabel("%", 80, 104, 100, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $AddressHP = 0x0ADDBEB4
Global $AddressMaxHP = 0x0ADDBEB0

Global $AddressGold = 0x0A45A4F0
Global $AddressSlot1 = 0x1CF0F0B0

Global $Open = _MemoryOpen(ProcessExists("Die.exe"))

if @error Then ; @error for handle
    MsgBox (48, "Error", "The returned @error : " & @error)
    Exit
;                             1 = Invalid $iv_Pid.
;                             2 = Failed to open Kernel32.dll.
;                             3 = Failed to open the specified process.
EndIf


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case -3
            Exit

    EndSwitch

    $ReadHP = _MemoryRead($AddressHP, $Open)
    $ReadMaxHP = _MemoryRead($AddressMaxHP, $Open)
    $ReadGold = _MemoryRead($AddressGold, $Open)
    $ReadSlot = _MemoryRead($AddressSlot1, $Open)

    If $ReadHP <> GUICtrlRead($InputHp) Then
        GUICtrlSetData($InputHp, $ReadHP)
        GUICtrlSetData($Progress1, $ReadHP*100/$ReadMaxHP)
        If GUICtrlRead($Progress1) > 50 Then GUICtrlSetColor($Progress1, 0x00FF00)
        If GUICtrlRead($Progress1) > 25 And GUICtrlRead($Progress1) < 50 Then GUICtrlSetColor($Progress1, 0xFFFF00)
        If GUICtrlRead($Progress1) < 25 Then GUICtrlSetColor($Progress1, 0xFF0000)
        GUICtrlSetData($LabelHP, ($ReadHP*100/$ReadMaxHP) & " % HP")
    EndIf

    If $ReadMaxHP <> GUICtrlRead($InputMaxhp) Then GUICtrlSetData($InputMaxhp, $ReadMaxHP)

;~     If 'blabla' Then atk()

WEnd

;~  Func atk()
;~ ;BURDA BOTUN KENDISI BASLIYOR YANI BETA VERSIYON SENDKEYS KODLARI FELAN FILAN
;~ $hWnd = "GAME" ;Bu pencere adi
;~ sleep(125) ; sleep yapalm biraz baslamadna önce
;~ ControlSend($hWnd,"","","{SPACE}") ; Enter yapip yazi yazma yerini acar sonra alttaki aktif yazsini yazar altindada göndermek için enter yapar.
;~ Sleep(160) ;yine sleep komutu  bekletelim enteri basmasi sürerse diye
;~ ;Sleep0)
;~ ControlSend($hWnd,"","","{SPACE}") ;Control send dir bu kod pencere asagida olsa bile pencere yollar keyleri
;~ Sleep(140) ; yine yaziyi yazdiktan sonra bekletilsin
;~ ControlSend($hWnd,"","", "é" ) ;Evet yaziyi yukarda yazdi simdi enterliyip yolluyor.
;~ ;Burada bitiyor :D
;~ sleep(400)
;~ EndFunc 


[blackout617]

Originally Posted by omer36

hier auf die schnelle..

sollte eig. gehen, wenn die addressen dann richtig sind.
das von dir war mir zu durcheinander, aber kannst du ja dann übernehmen (wenns klappt)

 Spoiler

PHP Code:

#RequireAdmin
#include <NomadMemory.au3>
#include <ProgressConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 226, 130, 192, 124)
$Progress1 = GUICtrlCreateProgress(16, 80, 198, 17)
GUICtrlSetColor(-1, 0x00FF00) ;grün
;~ GUICtrlSetColor($Progress1, 0xFFFF00) Gelb
;~ GUICtrlSetColor($Progress1, 0xFF0000) Rot
$InputMaxhp = GUICtrlCreateInput("", 64, 8, 89, 21)
$Label1 = GUICtrlCreateLabel("MaxHP", 16, 8, 39, 17)
$Label2 = GUICtrlCreateLabel("HP", 16, 40, 19, 17)
$InputHp = GUICtrlCreateInput("", 64, 40, 89, 21)
$LabelHP = GUICtrlCreateLabel("%", 80, 104, 100, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $AddressHP = 0x0ADDBEB4
Global $AddressMaxHP = 0x0ADDBEB0

Global $AddressGold = 0x0A45A4F0
Global $AddressSlot1 = 0x1CF0F0B0

Global $Open = _MemoryOpen(ProcessExists("Die.exe"))

if @error Then ; @error for handle
    MsgBox (48, "Error", "The returned @error : " & @error)
    Exit
;                             1 = Invalid $iv_Pid.
;                             2 = Failed to open Kernel32.dll.
;                             3 = Failed to open the specified process.
EndIf


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case -3
            Exit

    EndSwitch

    $ReadHP = _MemoryRead($AddressHP, $Open)
    $ReadMaxHP = _MemoryRead($AddressMaxHP, $Open)
    $ReadGold = _MemoryRead($AddressGold, $Open)
    $ReadSlot = _MemoryRead($AddressSlot1, $Open)

    If $ReadHP <> GUICtrlRead($InputHp) Then
        GUICtrlSetData($InputHp, $ReadHP)
        GUICtrlSetData($Progress1, $ReadHP*100/$ReadMaxHP)
        If GUICtrlRead($Progress1) > 50 Then GUICtrlSetColor($Progress1, 0x00FF00)
        If GUICtrlRead($Progress1) > 25 And GUICtrlRead($Progress1) < 50 Then GUICtrlSetColor($Progress1, 0xFFFF00)
        If GUICtrlRead($Progress1) < 25 Then GUICtrlSetColor($Progress1, 0xFF0000)
        GUICtrlSetData($LabelHP, ($ReadHP*100/$ReadMaxHP) & " % HP")
    EndIf

    If $ReadMaxHP <> GUICtrlRead($InputMaxhp) Then GUICtrlSetData($InputMaxhp, $ReadMaxHP)

;~     If 'blabla' Then atk()

WEnd

;~  Func atk()
;~ ;BURDA BOTUN KENDISI BASLIYOR YANI BETA VERSIYON SENDKEYS KODLARI FELAN FILAN
;~ $hWnd = "GAME" ;Bu pencere adi
;~ sleep(125) ; sleep yapalm biraz baslamadna önce
;~ ControlSend($hWnd,"","","{SPACE}") ; Enter yapip yazi yazma yerini acar sonra alttaki aktif yazsini yazar altindada göndermek için enter yapar.
;~ Sleep(160) ;yine sleep komutu  bekletelim enteri basmasi sürerse diye
;~ ;Sleep0)
;~ ControlSend($hWnd,"","","{SPACE}") ;Control send dir bu kod pencere asagida olsa bile pencere yollar keyleri
;~ Sleep(140) ; yine yaziyi yazdiktan sonra bekletilsin
;~ ControlSend($hWnd,"","", "é" ) ;Evet yaziyi yukarda yazdi simdi enterliyip yolluyor.
;~ ;Burada bitiyor :D
;~ sleep(400)
;~ EndFunc 


danke es funk super nur unten bei hp %100 when hp etc: %90 ist ist dar 90.00000060 aber das ist nicht so wichtig

[omer36]

round(($ReadHP*100/$ReadMaxHP)) & " % HP"

sollte gehen