Jak napisać własne macro do Tibii

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.

Cytuj:

---

Yaboomaster napisał

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

Cytuj:

---

Rzulf napisał

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

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.

Cytuj:

---

Rzulf napisał

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ę.

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.

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.

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.

Cytuj:

---

Rzulf napisał

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

Linka nie musiales dawac, a poza tym i tak nie dziala. Sam troche poszukalem i znalazlem. Sprawdzilem i wychodzi cos takiego:
http://img204.imageshack.us/img204/9564/wsp.png
Probowalem juz DBV War, ale jak porownalem to ze zwykla tibia to wyszlo mi, ze proces to GuVaFeAdefI. Niestety nadal nie dziala :(

Cytuj:

---

Rzulf napisał

Linka nie musiales dawac, a poza tym i tak nie dziala. Sam troche poszukalem i znalazlem. Sprawdzilem i wychodzi cos takiego:
http://img204.imageshack.us/img204/9564/wsp.png
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?

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

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.

Cytuj:

---

Shothic napisał

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;

---

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 ;/