Skocz do zawartości

Pewne pytanko :D


fervi (Skovv)

Rekomendowane odpowiedzi

Siemka! :)

 

Więc jak to powiedzieć. Jestem noobem w pascalu, ale znalazłem na necie (tibia.org.pl) poradnik do robienia "botów" :D, ale wpisując to nie działa taki problemik :/

Daje kod, poprawcie i powiedzcie co jest źle (jak chcecie)

Fęrvi Prąsi :D*

Używam Lazarus-a

 

Zamiast tego w jakieś linijce

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

 

Na to:

 

procedure TForm1.Button1Click(Sender: TObject);
var
Tibia: Cardinal;
begin
Tibia := FindWindow('TibiaClient',nil);
SetWindowText(Tibia,PChar('Tibia <<Mój Bot>>'));
end;

 

Z góry dziękuję!!

 

*Tekst napisany specjalnie zresztą widać po nicku, zamiast fervi to fęrvi

Odnośnik do komentarza
Udostępnij na innych stronach

Zrobiłem to co podałeś (zamieniłem Cordinal czy coś takiego na HWND) i mam takie problemy

 

http://img103.imageshack.us/my.php?image=pomoczt5.png

 

@INFO

Lekko przyciąłem ;d

 

Tutaj jakiś dostęp do pamięci

 

(...)

var

Form1: TForm1;

 

const

BATTLELIST_START = $005F7994;

BATTLELIST_END = $005FD460;

PLAYER_X = $00602B08;

PLAYER_Y = $00602B04;

PLAYER_Z = $00602B00;

PLAYER_LEVEL = $005F7920;

PLAYER_EXP = $00605A04; // zmieniony - Tibia 7.9

STATUS_TEXT = $0074F1D0;

STATUS_TIMER = $0074F1CC;

SPEED_USE = $0074DBD0;

 

implementation

(...)

Odnośnik do komentarza
Udostępnij na innych stronach

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
  • Ostatnio przeglądający   0 użytkowników

    • Brak zarejestrowanych użytkowników przeglądających tę stronę.
×
×
  • Dodaj nową pozycję...