AutoIT Healthbar,Mob attack ?

Page 2 of 2

12/31/2012 21:09 blackout617#16

Quote:

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

Code:

#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
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

12/31/2012 21:56 omer36#17

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

12/31/2012 23:18 blackout617#18

Quote:

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 :D aber das ist nicht so wichtig

01/01/2013 00:22 omer36#19

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

sollte gehen

Page 2 of 2