Ponawiam prośbę o packiet dll pod tibie 8.22 ...
Wersja do druku
Ponawiam prośbę o packiet dll pod tibie 8.22 ...
Jako, że mam chwilę
Packet.dll pod 8.22
Rapidshare rehost
Witam
Ma ktoś już adresy pod Tibie 8.30? No i oczywiście nowy packet.dll?
Cytuj:
shakirek napisał
Ponawiam prośbe (Oczywiście pod Tibie 8.31)
Packet.dll dla Tibii 8.31.
http://rapidshare.com/files/150883051/packet.dll
8.31 OD TINUSIA :)
Moze ktoś pisze w C++'sie to niech pisze domnie na PW to sie zgadamy.Kod:Exp = 0x62ACE4;
GoTo_X = Exp + 80;
GoTo_Y = Exp + 76;
GoTo_Z = Exp + 72;
Id = Exp + 12;
HP = Exp + 8;
HP_Max = Exp + 4;
Level = Exp - 4;
MagicLevel = Exp - 8;
Level_Percent = Exp - 12;
MagicLevel_Percent = Exp - 16;
Mana = Exp - 20;
Mana_Max = Exp - 24;
Soul = Exp - 28;
Stamina = Exp - 32;
Cap = Exp - 36;
Fishing = Exp - 52;
Shielding = Exp - 56;
Distance = Exp - 60;
Axe = Exp - 64;
Sword = Exp - 68;
Club = Exp - 72;
Fist = Exp - 76;
Fishing_Percent = Exp - 80;
Shielding_Percent = Exp - 84;
Distance_Percent = Exp - 88;
Axe_Percent = Exp - 92;
Sword_Percent = Exp - 96;
Club_Percent = Exp - 100;
Fist_Percent = Exp - 104;
Flags = Exp - 108;
Max_Slots = 11;
Slot_Head = 0x633228; // 8.31
Slot_Neck = Slot_Head + 12;
Slot_Backpack = Slot_Head + 24;
Slot_Armor = Slot_Head + 36;
Slot_Right = Slot_Head + 48;
Slot_Left = Slot_Head + 60;
Slot_Legs = Slot_Head + 72;
Feet = Slot_Head + 84;
Slot_Ring = Slot_Head + 96;
Slot_Ammo = Slot_Head + 108;
chce zrobic tego bota ale ten program delphin 7personal sciagnolem go che zainstalowac ale nie mam kodu cdkey pomocy!!Jak byscie mogli to wyslijcie mi na gg 171074 gotowy delphin 7 personal PS jak byscie zrobicli bota do tibi 8.31 lub nowszego (zeby za pomoca tego bota mozna bylo dodawac lvl,skille,itemy i kase,i jak by bylo mozliwe zeby nie wykrywal go cipsoft(nie dali bana)) to wyslijcie lub podajcie link do dowload :)
Hah, daj linijke jak zrobić niewykrywalnego bota :]
czy ktos z Was ma moze FreeProxy zakualizowane pod tibie 8.11? bo w necie chyba ze 2h szukalem i nic nie ma ;/
aha, od razu mowie ze mi nie robi zadnej roznicy jak ten freeproxy bedzie np na 7 dni itp. wazne zeby byl :)
PS:
z gory thx
czy moze mi ktos w koncu odpowiedziec?
Czy moze mi ktos powiedziec co sie stalo z gospodarzem tego tematu??? Czego zostalo usuniete jego konto????
Witam!
Dawno się nie udzielałem na forum...
Jeżeli odgrzebuję - to przepraszam, ale nie chciałem spamować forum...
Tak więc. Znam się już troszkę na Delphim, nie jednego bota się robiło...
No ale przy próbie komplikacji czegoś takiego:
Wyskakuje mi błąd przy linijce:Kod:unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
const
Exp = 0x62ACE4;
GoTo_X = Exp + 80;
GoTo_Y = Exp + 76;
GoTo_Z = Exp + 72;
Id = Exp + 12;
HP = Exp + 8;
HP_Max = Exp + 4;
Level = Exp - 4;
MagicLevel = Exp - 8;
Level_Percent = Exp - 12;
MagicLevel_Percent = Exp - 16;
Mana = Exp - 20;
Mana_Max = Exp - 24;
Soul = Exp - 28;
Stamina = Exp - 32;
Cap = Exp - 36;
Fishing = Exp - 52;
Shielding = Exp - 56;
Distance = Exp - 60;
Axe = Exp - 64;
Sword = Exp - 68;
Club = Exp - 72;
Fist = Exp - 76;
Fishing_Percent = Exp - 80;
Shielding_Percent = Exp - 84;
Distance_Percent = Exp - 88;
Axe_Percent = Exp - 92;
Sword_Percent = Exp - 96;
Club_Percent = Exp - 100;
Fist_Percent = Exp - 104;
Flags = Exp - 108;
Max_Slots = 11;
Slot_Head = 0x633228; // 8.31
Slot_Neck = Slot_Head + 12;
Slot_Backpack = Slot_Head + 24;
Slot_Armor = Slot_Head + 36;
Slot_Right = Slot_Head + 48;
Slot_Left = Slot_Head + 60;
Slot_Legs = Slot_Head + 72;
Feet = Slot_Head + 84;
Slot_Ring = Slot_Head + 96;
Slot_Ammo = Slot_Head + 108;
implementation
{$R *.dfm}
end.
oraz :Kod:Exp = 0x62ACE4; // [Error] Unit1.pas(21): ':' expected but identifier 'x62ACE4' found
Macie może jakieś rady?Kod:Slot_Head = 0x633228; // 8.31 // [Error] Unit1.pas(58): ';' expected but identifier 'x633228' found
Dodam że próbowałem sam wyszukać adres EXP i tego Slotu głowy, ale nie mogłem znaleźć... Czekam na odpowiedź... Fajnie by było jak by jeszcze ktoś napisał na gg że odpowiedział bo czasami mogę zapomnieć adresik, albo mieć formata, albo inne przyczyny...Kod:GG:8680037
Sprawa jest prosta. Korzystasz z oznaczeń, które wykorzystuje język C++.
Jak to wygląda?
C++:
Exp = 0x62ACE4;
Delphi:
Exp = 62ACE4;
PS. Nic nie szkodzi, że wątek został odświerzony. Wszystkie opisane w nim formuły są nadal aktualne i jeśli tylko ktoś miałby chcęć napisać na ich podstawie bota - zrobi to bez problemu ;)
No to się cieszę że nie dostanę warna...
Zauważyłem że wystarczy zamiana "x" na "0" i jest ok... Przed chwilą kombinowałem i udało mi się w końcu...
Z racji że nikt nie lubi mieć bałaganu w kodzie - postanowiłem udostępnić tutaj - nigdzie indziej nie dawałem - komponent do Czytania/Wpisywania wartości Integerowskich i Stringów do procesu znając jego uchywyt (handle)...
Adres:
Opis procedur i funkcji:Kod:hxxp://blade95.yoyo.pl/pliki/TMemOption.rar
zamist "xx" wpiszcie "tt"
Co tu dużo o tych procedurach/funkcjach mówić... Dam jeszcze przykładzik użycia:Kod:1. Czytanie wartości
a) String
function MemoryReadString(Handle:hWND;Adres:Cardinal):String;
b) Integer
function MemoryReadInteger(Handle:hWND;Adres:Cardinal):Integer;
2. Wpisywanie wartości
a) String
procedure MemoryWriteString(Handle:hWND;Adres:Cardinal;Bufer:String);
b)Integer
procedure MemoryWriteInteger(Handle:hWND;Adres:Cardinal;Bufer:Integer);
Myślę że tutaj też nie ma zbytnio co objaśniać...Kod:procedure TForm1.Button1Click(Sender: TObject);
var
Hand:hWND; //tutaj przechowywany będzie uchwyt do procesu
TMP:Variant; //tutaj będą przechowywane dane tymczasowe
const
Addr=$0000000; //tutaj dowolny adres komórki z której chcemy "wyciągnąć" jakieś dane
Addr2=$0000000; //tutaj dowolny adres komórki której chcemy przypisać jakąś wartość
begin
Hand := FindWindow('TibiaClient',nil);
ShowMessage(MemOption1.MemoryReadString(Hand,Addr));
ShowMessage(IntToStr(MemOption1.MemoryReadInteger(Hand,Addr)));
TMP := InputBox('Tekst do wpisania','MemOption1','lol');
MemOption1.MemoryWriteString(Hand,Addr2,TMP);
TMP := InputBox('Liczba do wpisania','MemOption1','1010');
MemOption1.MemoryWriteInteger(Hand,Addr2,TMP);
end;
Mam nadzieję że komponent co niektórym ułatwi życie i oszczędzi klawisze... ;-)
Zabrania się rozprzestrzeniania komponentu na inne witryny bez zgody autora.
Witam.
Mam małe pytanie. Jak powinna wyglądać procedura odpowiedzialna za zjadanie pożywienia z bp?