[AutoIt]Healing tibia

[Arkeus]

Witam potrzebuje aby ktoś mi pokazał jak mniejwiecej napisać healera z base adresami i juz pod 9.52 bo w cpp wiem.

Dzięki z góry.

[C.J]

NomadMemory i jazda.

Odczytujesz adresy i masz botka gotowego.

[Arkeus]

No nie bo teraz weszly base adresy trzeba dodawac i odczytywać lokalny adres w zależnosci od tego jak sie ustawi na tablicy że tak powiem.

[jackraymund]

http://www.mpcforum.pl/topic/419739-glupi-problem/page__p__3019827__hl___memorygetbaseaddress__fromsearch__1#entry3019827

[Arkeus]

DZIĘKUJE STRASZNIE!!!!!

[Arkeus]

Mam jeszcze pewien problem oto kod:

 

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Ultimate Icon.ico
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Nomad.au3>
#include <Timers.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Healer", 220, 309, 192, 124)
$Button5 = GUICtrlCreateButton("Start Health", 8, 8, 203, 33)
$Input9 = GUICtrlCreateInput(IniRead("settings.ini", "Input", "Input9",""), 48, 136, 121, 21)
$Button6 = GUICtrlCreateButton("Instrukcja", 8, 168, 203, 41)
$Button7 = GUICtrlCreateButton("Exit", 8, 264, 203, 41)
$Button88 = GUICtrlCreateButton("Zapisz", 8, 216, 203, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button5
Global $pid = ProcessExists("Tibia.exe")
$memory = _MemoryOpen($pid)
$k = GUICtrlRead($Input9)
$hp = _MemoryRead((0x81ce10 - 0x400000) +  _MemoryGetBaseAddress($memory,1)
_Timer_SetTimer($Form2, 500, "hp")
EndSwitch
WEnd

Func hp($1, $2, $3, $4)
If $memory <= $k Then
ControlSend("Tibia", "", "", "{F1}")
EndIf
EndFunc

 

 

 

A tutaj błąd konsoli :

>"C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "D:\Autoit\Projekt sfbota wielowatkowosc\Skrypt testowy hp.au3" /UserParams    
+>13:18:59 Starting AutoIt3Wrapper v.2.1.0.8    Environment(Language:0415  Keyboard:00000415  OS:WIN_7/  CPU:X64 OS:X64)
>Running AU3Check (1.54.22.0)  from:C:\Program Files (x86)\AutoIt3
D:\Autoit\Projekt sfbota wielowatkowosc\Skrypt testowy hp.au3(29,78) : ERROR: syntax error
$hp = _MemoryRead((0x81ce10 - 0x400000) +  _MemoryGetBaseAddress($memory,1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

[Sopelek997]

brakuje ci nawiasu

[Arkeus]

Chodzilo o to?

$hp = _MemoryRead((0x81ce10 - 0x400000) +  _MemoryGetBaseAddress($memory,1))

Jak tak zrobie wywala taki blad

D:\Autoit\Projekt sfbota wielowatkowosc\Skrypt testowy hp.au3(29,78) : ERROR: _MemoryRead() called with wrong number of args.
$hp = _MemoryRead((0x81ce10 - 0x400000) +  _MemoryGetBaseAddress($memory,1))
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Autoit\Projekt sfbota wielowatkowosc\Nomad.au3(95,62) : REF: definition of _MemoryRead().
Func _MemoryRead($iv_Address, $ah_Handle, $sv_Type = 'dword')
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Autoit\Projekt sfbota wielowatkowosc\Skrypt testowy hp.au3 - 1 error(s), 0 warning(s)

[jackraymund]

3 flagi ci brakuje

czyli a ma tak się znajdować

 

$memarray = _MemoryOpen($PID) ; otwieramy pamięć

 

$memarray

http://www.mpcforum....y-trainera-%3B/

czyli

 

$PID = ProcessExists("Tibia.exe")

$memarray = _MemoryOpen($PID)

MsgBox(0, '', _MemoryRead((0x81ce10 - 0x400000) + _MemoryGetBaseAddress($memarray, 1), $memarray)

@down

ja nie mam pojęcia

[Arkeus]

Dzięki wielkie dla was.

Macie może pojecie jak odczytać przexorowane adressy? cheatem engajn??

[zapiekany147]

a jak uzyc tego:

 

#include <NomadMemory.au3>

#include <GUIConstantsEx.au3>

 

$Hp=0x7B2084

GUICreate("trainer", 150, 80)

$button = GUICtrlCreateButton("Ustaw", 15, 15, 120, 50)

GUISetState()

While 1

$msg = GUIGetMsg()

Switch $msg

Case $GUI_EVENT_CLOSE

Exit

Case $button

ustaw()

EndSwitch

WEnd

 

Func ustaw()

$proces = ProcessExists("Tibia.exe")

$proces2 = _MemoryOpen($proces)

$Hp2= _MemoryRead($Hp,$proces2)

MsgBox(0,"ADA","lol"&$Hp2)

_MemoryClose($proces)

EndFunc

 

 

 

;XOR = 0x7B2030; HP = 0x947000; MP = 0x7B2084; SoulPoints = 0x7B2070; Cap = 0x97EE94 (If I'm not wrong, cap is XOR'ed)

 

zeby czytalo hp bo mi ni czyta tylko 0 pisze a adresy sa na 2000% dobre wtf?

[M4niak]

Sprawdz w Cheat Engine

[lokuxd]

w Ce sie nie da :P juz zrobili zabezpiecznia czy jakis inne cuda ^.-

a tibiaapi juz nie kontynuluja wiec lipton "ja nie umieł"

 

@2up po kiego grzyna za kazdym razem otwierac i zamykac proces tibi??

procesopen dajesz na gorze pod includami i close na koncu kodu:)

[Arkeus]

Nikt z kim gadałem nie wiedział jak to odczytać i się interesuje tibią może Jack by wiedział ale nie odpowiadal. Przesiądz się na inny język w Au3 nic większego nie napiszesz.

[lokuxd]

to powinno dziłać ale nie wiem jak ci z api wyciagali adresy :P