[Poradnik] Jak napisać własne macro do Tibii

Rzulf · 27-09-2010 00:21

Znalazlem ciekawy ots pod tibia 8.42 i chcialbym pod niego napisac bota i mam nadzieje, ze robiac to uda mi sie nauczyc czegos nowego. Adresy mam z tibiaapi, ale skad wzisc packet.dll pod 8.42? Czy moze packet.dll jest taki sam dla wszystkich wersji tibi? Kiedy uzywalem mojego pierwszego bota, posiadajacego tylko prosty spell caster w cliencie pojawial mi sie jakis pionowy pasek, jak temu zaradzic?

Yaboomaster · 27-09-2010 18:02

Rzulf napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

Znalazlem ciekawy ots pod tibia 8.42 i chcialbym pod niego napisac bota i mam nadzieje, ze robiac to uda mi sie nauczyc czegos nowego. Adresy mam z tibiaapi, ale skad wzisc packet.dll pod 8.42? Czy moze packet.dll jest taki sam dla wszystkich wersji tibi? Kiedy uzywalem mojego pierwszego bota, posiadajacego tylko prosty spell caster w cliencie pojawial mi sie jakis pionowy pasek, jak temu zaradzic?

packet.dll jest open sourcem, wystarczy tylko podmienić adresy i skompilować ;)

Rzulf · 27-09-2010 20:42

A co zrobic z migajacym pionowym paskiem? Nie wiem tez jak podpiac sie pod przerobionego clienta. Probowalem czegos takiego:

Kod :

 GetWindowThreadProcessId(FindWindow('DBVictory - War (v1.50).exe',Nil), @ProcId);

bo tak jest w menadzerze zadan, ale ogarnolem, ze wczesniej bylo poprostu Tibia Client bez zadnego rozszezenia.

LGTK · 27-09-2010 20:50

Rzulf napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

A co zrobic z migajacym pionowym paskiem? Nie wiem tez jak podpiac sie pod przerobionego clienta. Probowalem czegos takiego:

Kod :

 GetWindowThreadProcessId(FindWindow('DBVictory - War (v1.50).exe',Nil), @ProcId);

bo tak jest w menadzerze zadan, ale ogarnolem, ze wczesniej bylo poprostu Tibia Client bez zadnego rozszezenia.

Klubster na tpforums napisał coś takiego

RE: Elfbot on own made ot client
hex editor and change CMainFrame to TIbiaclient

Temat masz tu
http://www.tpforums.org/forum/thread-7288-page-1.html
I źle użyłeś findwindow
Używa się go tak function FindWindow(lpClassName, lpWindowName: PChar): HWND;
lpClassName - nazwa klasy okna nie tego jak figuruje u ciebie w procesach (bo wątpie że tak klasa się nazywa)
lpWindowName - może być na nil to nazwa okna

Rzulf · 27-09-2010 21:13

A napisal bys jak to konkretnie dla tego clienta zrobic? Ja sie troche pogubilem juz, moze dlatego, ze jestem zmeczony po 9 lekcjach :( to przegiecie tyla nam dowalic w poniedzialek. Z ta poprawiona funkcja dalo by rade to zrobic bez edycji hexkow?

LGTK · 27-09-2010 22:40

Rzulf napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

A napisal bys jak to konkretnie dla tego clienta zrobic? Ja sie troche pogubilem juz, moze dlatego, ze jestem zmeczony po 9 lekcjach :( to przegiecie tyla nam dowalic w poniedzialek. Z ta poprawiona funkcja dalo by rade to zrobic bez edycji hexkow?

Pobierz Xvi32 bedzie prosto jak co daj link do clienta zobaczę co i jak

Rzulf · 27-09-2010 23:04

Kod :

http://www.speedyshare.com/files/24313868/DBVictory_-_WAR_v1.50_.zip

Jakby speedyshare nie dzialal

Kod :

http://www10.zippyshare.com/v/70950192/file.html

Sciagnolem xvi32, ale chyba nie jest tak prosto :(

LGTK · 28-09-2010 12:48

On działa na zasadzie PokemonOnline chyba zresztą w to się nie bawiłem
Uchwyt możesz pobrać też w taki sposób
dajesz h:= FindWindow(nil,'DBV WAR'); a potem zmieniaj nazwę okna na np
Bot - Player Name
Do tego służy SetWindowText(h,pchar(text));
h: to uchwyt okna który pobrałeś wcześniej możesz go dać do globalnej zmiennej i pobierać na starcie aplikacji wtedy nie będziesz musiał znajdować go przy każdej próbie doczytania adddresu z pamięci czy wysłania pakietu
text: to nowa nazwa okna
Powinno działać.

Rzulf · 28-09-2010 13:35

Dodajac to jako zmienna globalna mam to wsadzic pod

Kod :

implementation

{$R *.dfm}
h:= FindWindow(nil,'DBV WAR');

i ma to tak wygladac?
A np do timera dodac to:

Kod :

SetWindowText(h,pchar("Bot - "Player_Name ));

Nie moge teraz tego przetestowac, bo jestem na informatyce, na ktorej cisniemy worda...
Tak powinienem to zrobic?

LGTK · 28-09-2010 14:09

jak masz

Kod :

var
  Form1: TForm1;
     tu daj
h: hwnd;

{$R *.dfm}

Potem daj na form create h:= FindWindow(nil,'DBV WAR');
I do timera to co chcesz dać do timera

Rzulf · 28-09-2010 18:40

Zrobilem tak jak pisales, ale cos nie wyszlo.

Ar'buz · 28-09-2010 22:28

#up:
Nie, żebym się wtrącał w tę rozmowę, ale... umiesz wogóle pisać w Delphi?
Bo jeśli nie wiesz co zrobiłeś źle na tym screenie, to oznacza, że nie masz podstawowej.. kardynalnej wiedzy o tym języku.

LGTK · 28-09-2010 22:28

Rzulf napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

Zrobilem tak jak pisales, ale cos nie wyszlo.

Das opadły mi rency jak to das zobaczyłem...
Przeczytaj jeszcze raz to co napisałem w poprzednim pości i przemyśl jak nadal nie będziesz wiedział ocb (dobre blety) to poleć tutaj... Pamiętaj że jak będziesz pisał bardziej skomplikowane rzeczy będziesz musiał myśleć sam w sumie dobrze by było żebyś teraz też sam pomyślał...
@up genialnie powiedziane

Kambel · 28-09-2010 22:39

Napisz ten kod w jakiejś procedurze.

PRZYKŁAD:

Kod :

procedure Find;
var
  H : HWND;
begin
  H := FindWindow(nil, 'DBV WAR');
end;

...wywołujesz przez nazwe funkcji, np:

Kod :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Find;
end;

Yaboomaster · 29-09-2010 08:32

Awangarda w delphi, wywołanie procedury w sekcji deklaracji zmiennych.

Poza tym jak zwykle słuchacie przygłupa i jak zwykle nikt na tym dobrze nie wyjdzie. Dużo wydajniejszą metodą jest chociażby zrobienie sobie listy działających procesów i znalezienie tego, który jest na potrzebny.

Temat: [Poradnik] Jak napisać własne macro do Tibii

Narzędzia tematu

Oceń ten temat

Informacje o temacie

Użytkownicy przeglądający temat

Podobne tematy

Jak napisać powieść w 30 minut

[Inne] Jak napisać bota?

Jak napisać temat, aby otrzymać jak najszybciej pomoc?

[Poradnik] <Jak napisac scrypt do Blackd>

Zakładki

Zakładki

Zasady postowania