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

Rzulf · 29-09-2010 10:21

Podstawowa wiedze chyba mam. Co oznacza to HWND? Czytalem jakies kursy, ale bylo to raczej podstawy. Znacie jakies dobre kursy online? Albo e-booki po polsku?

Sproboje zrobic tak jak pisal Kambel, teraz nie jestem w stanie bo siedze w szkole.

Yaboo, liste dzialajacych procesow mozna znalesc w menadzerze zadan, znalazlem dbvictory cos tam.exe, ale tak nie dziala. Pisalem o tym strone wczesniej.

LGTK · 29-09-2010 11:48

Yaboomaster napisał

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

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.

Chciał FindWindow to napisałem jak...

Masz racje że wylistowanie procesów jest lepszym wyjściem można od razu stworzyć listę z nickami aby było łatwiej wybrać clienta...

HWND: to uchwyt w tym wypadku okna Tibii

Albo OpenPrcess który zwraca ci uchwyt utworzonego procesu

Kambel · 29-09-2010 15:39

Rzulf napisał

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

Podstawowa wiedze chyba mam. Co oznacza to HWND? Czytalem jakies kursy, ale bylo to raczej podstawy. Znacie jakies dobre kursy online? Albo e-booki po polsku?

Sproboje zrobic tak jak pisal Kambel, teraz nie jestem w stanie bo siedze w szkole.

Yaboo, liste dzialajacych procesow mozna znalesc w menadzerze zadan, znalazlem dbvictory cos tam.exe, ale tak nie dziala. Pisalem o tym strone wczesniej.

Słuchaj tu masz spisaną książkę "Kompendium Programisty" Delphi 7 Adama Boducha.
CLICK

Rzulf · 29-09-2010 17:34

Zrobilem tak jak pisaliscie, ale nadal nie dziala. Poprawilem wczesnijsze procesy i nadal nic. Napewno powinno tam byc DBV War?
Tak zmienilem stare procesy, to jest zle czy nie jestes pewien LGTK?

Kod :

GetWindowThreadProcessID(FindWindow('DBV WAR', nil), @proc_ID);

Z reszta zrobilem tak jak pisaliscie. A FindWindow nie chcialem, ale stwierdziles, ze tak jest lepiej.

Kambel · 29-09-2010 18:58

Rzulf napisał

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

Zrobilem tak jak pisaliscie, ale nadal nie dziala. Poprawilem wczesnijsze procesy i nadal nic. Napewno powinno tam byc DBV War?
Tak zmienilem stare procesy, to jest zle czy nie jestes pewien LGTK?

Kod :

GetWindowThreadProcessID(FindWindow('DBV WAR', nil), @proc_ID);

Z reszta zrobilem tak jak pisaliscie. A FindWindow nie chcialem, ale stwierdziles, ze tak jest lepiej.

Powiedz NIE TAK HAOTYCZNIE o co ci dokladnie chodzi to moze Ci pomogę.

Rzulf · 29-09-2010 19:15

Nie wydaje mi sie zebym to haotycznie napisal. Mozliwe, ze poprostu jestes nie w temacie.
To dodalem przed funkcje czytajace:

Kod :

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

To do jakiegos buttona

Kod :

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

Czyli tak jak pisales, ale nadal nic nie dziala. Stwierdzilem, ze powodem tego sa zle ustawienia funkcji czytajacych.
Dlatego zmienilem to:

Kod :

    GetWindowThreadProcessId(FindWindow('TibiaClient',Nil), @ProcId);

Na to:

Kod :

GetWindowThreadProcessId(FindWindow('DBV WAR',Nil), @ProcID);

Niestety nadal nie czyta ilosc hp itp. We wczesnijszym poscie spytalem sie LGTK czy jest pewien, ze ten proces to DBV WAR, ale jeszcze nie uzyskalem odpowiedzi. Jezeli moglbys sprawdzic jaki to proces, strone wczesniej podalem link do clienta.
Polaczenie z programem nie musi byc koniecznie przez FindWindow, ale takie opisal mi LGTK, wiec go uzylem, jezeli znasz jakies lepsze chetnie go urzyje. Mam nadzieje, ze nie jest tak haotycznie jak ostatnio, o ile wogole bylo tak napiasane.

Kambel · 29-09-2010 19:19

Sam sprawdź :)

X - klasa.
Y - tytuł okna.

FindWindow(nil, Y); <- w drugim parametrze dajemy tytuł okna w ''.

FindWindow(X, nil); <- w pierwszym parametrze dodajemy klasę.

tu masz przykład:

Kod :

var
  H : HWND;
begin
  H := findwindow(nil, 'Unit1.pas');
  if H > 0 then
  Showmessage('Okno jest uruchomione');
end;

Jeżeli jest uruchomione okno o nagłówku Unit1.pas to wyswietli sie wiadomosc, popróbuj tak z procesem klienta.

Rzulf · 29-09-2010 19:32

Blyskawiczna odpowiedz :D
Juz tak probowalem. Sprawdzilem proces w menadzerze, dodalem go do procedury findwindow, ale cos bylo nie tak. Jezeli klasa jest rowna null, w delphi nil to tytulem okna moze byc tibia.exe albo tibiaclient?

Gdybym sam umial sprawdzic jak to jest zamiast tibiaclient nie bylo by pewnie paru moich postow.

Kambel · 29-09-2010 21:59

Rzulf napisał

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

Blyskawiczna odpowiedz :D
Juz tak probowalem. Sprawdzilem proces w menadzerze, dodalem go do procedury findwindow, ale cos bylo nie tak. Jezeli klasa jest rowna null, w delphi nil to tytulem okna moze byc tibia.exe albo tibiaclient?

Gdybym sam umial sprawdzic jak to jest zamiast tibiaclient nie bylo by pewnie paru moich postow.

to na 100% Ci pomoże:

Winspector - program za pomocą którego odczytamy klasę okna :)

1 link z google - http://www.softpedia.com/progDownloa...ad-117157.html

Rzulf · 30-09-2010 15:31

Linka nie musiales dawac, a poza tym i tak nie dziala. Sam troche poszukalem i znalazlem. Sprawdzilem i wychodzi cos takiego:

Probowalem juz DBV War, ale jak porownalem to ze zwykla tibia to wyszlo mi, ze proces to GuVaFeAdefI. Niestety nadal nie dziala :(

Kambel · 30-09-2010 15:57

Rzulf napisał

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

Linka nie musiales dawac, a poza tym i tak nie dziala. Sam troche poszukalem i znalazlem. Sprawdzilem i wychodzi cos takiego:

Probowalem juz DBV War, ale jak porownalem to ze zwykla tibia to wyszlo mi, ze proces to GuVaFeAdefI. Niestety nadal nie dziala :(

Sciagne klienta i to sprawdze - zedytuje wtedy posta.

GuVaFeAdefI - to jest poprawna klasa klienta.

Kod :

var
  HW:HWND;
begin
  HW := FindWindow('GuVaFeAdefI', nil);
  SetWindowText(HW, 'SIEMA');
end;

Zmienia nazwę klienta na SIEMA, czyli all good?

Rzulf · 30-09-2010 17:09

Dzieki mistrzu!
Zmiana nazwy dziala napewno, bo udalo mi sie to juz sprawdzic. Innych funkcji narazie nie zobacze bo wszystkie servery padly :(
Wczesniej robilem tak:

Kod :

FindWindow(nil, 'DBV WAR');

Czyli wystarczylo tylko zmienic kolejnosc. Odwiedzaj temat czesto, bo zapewne niedlugo bede potrzebowal pomocy jeszcze w czyms xD

Jeszcze raz dzieki

Shothic · 06-10-2010 14:36

Witam
Mam problem z moim botem od ostatniej zmiany w looterze mój bot po pewnym czasie przestaje działać , przestaje odczytywać wartości z tibi i funkcjonować nie wiem od czego może się tak robić, u mojego kumpla nawet zacina się cały ;/
Próbowałem zmniejszać czas timerów ale nic nie pomogło może to coś z pętlami ale dokładnie nie jestem pewny jeśli ktoś by wiedział od czego może się tak dziać to dzięki za odp.

Kambel · 06-10-2010 15:44

Shothic napisał

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

Witam
Mam problem z moim botem od ostatniej zmiany w looterze mój bot po pewnym czasie przestaje działać , przestaje odczytywać wartości z tibi i funkcjonować nie wiem od czego może się tak robić, u mojego kumpla nawet zacina się cały ;/
Próbowałem zmniejszać czas timerów ale nic nie pomogło może to coś z pętlami ale dokładnie nie jestem pewny jeśli ktoś by wiedział od czego może się tak dziać to dzięki za odp.

A próbowałeś dodać tą linijkę?

Kod :

Application.ProcessMessages;

Shothic · 06-10-2010 19:47

Kambel to nie jest to dodałem tą procedurke w paru miejscach i dalej przestaje działać a u mojego kumpla się cały zacina. Nie chce mi się już kolejny raz tego poprawiać bo już siedzę nad tym już sporo czasu i nadal coś sie psuje ;/

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