#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
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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
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
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
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
Unity 3D HealthBar 02/21/2012 - Off Topic - 0 Replies Hey Leute,
als 1.
Ich weiß nicht genau wo das rein kommt deswegen poste ich es hier:
ich habe ein c# Script gemacht womit ist eine Lebensanzeige bekommen sollte, diese wird aber in Unity 3D 3.5 NICHT angezeigt, woran liegt das?
Script:
using UnityEngine;
using System.Collections;
[Release] Healthbar ESP 05/25/2010 - GW Exploits, Hacks, Bots, Tools & Macros - 37 Replies Hello !
As my last Release was for Programmers only, this is a Healthbar ESP - made for PvP !
What are the single executable Files for?
The Healthbar ESP Startup.exe is the standard-launcher, which is everytime executed,
if you want to launch the Healthbar ESP.
The TryToRepair.exe is only for the users, which have occuring errors with the 'd3dx9_42.dll'.
autoIT simple Target&attack bot help 01/29/2010 - AutoIt - 7 Replies ok got something here and im stucked please.. could anyone have a tip or suggestion in this code:
#include <GUIConstantsEx.au3>
GUICreate("Forsaken's Bot", 335, 100)
GUISetState(@SW_SHOW)
$startbutton = GUICtrlCreateButton("Start", 190, 8, 60)
HotKeySet("{ESC}", "Terminate")
aber das ist nicht so wichtig
