[Pytanie] [selphi]tibia bot

[kilo_kartofli]

pewnego dzisiejszego dnia patrzyłem sobie fora i znalazłem kod bota do tibi

unit funkcje;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ComCtrls;

 

type

TForm1 = class(TForm)

Button1: TButton;

BtnClose: TSpeedButton;

Button2: TButton;

EditText: TEdit;

Button3: TButton;

Button4: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure BtnCloseClick(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

uses dasd;

 

{$R *.dfm}

 

function StrToPAC(dane:string):PAnsiChar;

var

buf: array[0..1000] of char;

i: integer;

begin

for i:=0 to length(dane) do

begin

buf:=dane[i+1];

end;

result := buf;

end;

 

function FBName(tytul:string):HWND;

var

searchingWindow: HWND;

nazwa: PAnsiChar;

begin

nazwa := StrToPAC(tytul);

searchingWindow := FindWindow(nil,nazwa);

result := searchingWindow;

end;

 

function FBCName(tytul:string):HWND;

var

searchingWindow: HWND;

nazwa: PAnsiChar;

begin

nazwa := StrToPAC(tytul);

searchingWindow := FindWindow(nazwa,nil);

result := searchingWindow;

end;

 

function SUProces(okno, klasaokna: string):Cardinal;

var

ProcessID: Cardinal;

hProcess: Cardinal;

findedWindow: HWND;

begin

findedWindow := FBName(okno);

if findedWindow = 0

then

begin

findedWindow := FBCName(klasaokna);

end;

if findedWindow <> 0

then

begin

GetWindowThreadProcessId(findedWindow, @ProcessID);

if ProcessID = 0

then

begin

end

else

begin

hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID);

if hProcess = 0

then

begin

end

else

begin

result := hProcess;

end;

end;

end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var

hProcess: Cardinal;

N: Cardinal;

Tekst: array[0..32] of Char;

Czas: Char;

begin

FillChar(Tekst,33,0);

Czas := Chr(50);

Tekst := 'Hello world!';

hProcess := SUProces('Tibia','tibiaclient');

WriteProcessMemory(hProcess,Ptr($6c3c40), @Tekst, 256 ,N);

WriteProcessMemory(hProcess,Ptr($6c3c3c), @Czas, 1 ,N);

end;

 

procedure TForm1.BtnCloseClick(Sender: TObject);

begin

Close;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var

hProcess: Cardinal;

N: Cardinal;

Tekst: array[0..32] of Char;

Czas: Char;

dane: string;

i: integer;

begin

Czas := Chr(50);

FillChar(Tekst,33,0);

dane := string(EditText.Text);

if dane <> '' then begin

for i:=0 to length(dane) do

begin

Tekst:=dane[i+1];

end;

hProcess := SUProces('Tibia','tibiaclient');

WriteProcessMemory(hProcess,Ptr($6c3c40), @Tekst, 255 ,N);

WriteProcessMemory(hProcess,Ptr($6c3c3c), @Czas, 1 ,N);

end

else

Form2.ShowModal;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

//SendTibiaText('Hello world!',50);

end;

 

procedure TForm1.Button4Click(Sender: TObject);

var

hProcess: Cardinal;

N: Cardinal;

a2, b2: array[0..32] of Char;

s: char;

i, a, b, c ,d : Integer;

buf: string;

begin

hProcess := SUProces('Tibia','tibiaclient');

ReadProcessMemory(hProcess, Ptr($004a1238), @a, 32, N);

buf := IntToStr(a);

Label1.Caption := buf;

end;

 

end.

daje go tu nie wiem czy działa nie testowałem

 

 

cholera delphi nie selphi sry za błąd

[Acanther]

Taa no ale trzeba pododawac buttony etc. ale nie pododaje sie bo wyskakuje ze juz z taka nazwa jest (a form jest pusty)

Szajs a nie program...

[kilo_kartofli]

to mówi ile wiesz mi się udało

ale tibi na kompie nie mam

[Wrotek]

Nie mow ze szajs bo nie ma GUI! TO KOD jest najwazniejsy a nie forma. A co do sourca, tam prawie nic nie ma ;< zwykle czytanie z pamieci procesu