Falaaa galera x.x

Tentando dar uma continuidade à programação para tibia sem uso de tibiaapi, vo postar uma função aqui (meio que 'gambiarra', mas, funciona)...

No outro tutorial eu expliquei um pouco sobre leitura de memoria.. esse aqui não tem muito a ver, mas, complementa aquele pra quem quer fazer bot sem TibiaAPI x.X

Primeira observação: As funções são declaradas abaixo do implementation, e ae podem ser usadas somente completando os argumentos delas... como de costume, minhas funções usam argumentos simples.

Segunda observação: Essa função vai digitar letra por letra da mensagem e depois dar um enter.

Função Say:

function say(mensagem: string):string;

 var

  h: HWND;

  letra: Integer;

  B: Byte;

 begin

  h := FindWindow(nil, 'tibia'); 

  for letra := 1 to Length(mensagem) do

  begin

    B := Byte(mensagem[letra]);

    SendMessage(h, WM_CHAR, B, 0);

  end;

    SendMessage(h, WM_CHAR, 13, 0);

  end;

Analisando a função: H = janela do tibia. Mensagem = mensagem que a função vai digitar no tibia. as variáveis Letra e B trabalharam assim: a letra vai de 1 até a quantia de caracteres da mensagem, e o B se torna o byte da letra a ser enviada... e ele envia com a API SendMessage (é uma API do windows, e NÃO tem nada a ver com TibiaAPI ). No fim temos:

SendMessage(h, WM_CHAR, 13, 0);

Isso será responsável por apertar um Enter após ele terminar de digitar a mensagem ( 13 = VK_return = Enter ). Olhando a primeira linha, vemos como podemos usa-la: function say(mensagem: string):string; Ou seja, é só usar assim:

Say('mensagem aqui');  

ou com um edit:

Say(edit1.text);

Pode usar de diversas formas, desde que ele trabalhe com uma string =]

Segue em Anexo a source de um projeto somente com a função, e um exemplo de usa-la, com um edit e um botão (você digita a mensagem no edit, e clica no botão.. e ele envia pro tibia \o/ )....

Flw galera, abraços...

Sei que tá bem simples, mas, espero que ajude vocês.

_____________________________________________________________

Usando Função Say.rar

Ótimo tutorial, vai ajudar muita gente.

REP+

eu prefiro usar o tibiaapi porque sou iniciante , mais parece legal a ideia de desenvolver funções sem o uso dele

eu gostei

Rep +

O legal de desenvolver sem a api, é a atualização rapida dos mesmo, não dependendo de "fatores externos" para tal fim.

Ótimo tuto Dragon, gostei muito (nun sabia que dava pra faze assim tão "simples" pra quem sabe lógico)

REP+

@Puncker

vlw ae puncker, espero ajudar a galera com meus tutos simples de programação sem tibiaapi =]

@Rick Martin

vlw ae parceiro, espero trazer o pessoal para a programação sem tibiaapi x.X

@ Augusto

vlw ae mano, é como vc citou, o bom é que você mesmo pode atualizar, sem ficar esperando por tibiaapi... meus bots em delphi são simples, mas, no mesmo dia que o tibia atualiza, atualizo os address no bot, e pronto... bot atualizado...

minhas funções são simples ( e não muito funcionais ), mas a ideia mesmo é dar um inicio pra galera programar sem tibiaapi..

vlw por todos comentarios...

logo mais postarei novos tutos... quem tiver alguma sugestão sobre algo que gostaria de ver sem tibiaapi, posta ae e eu vejo se consigo fazer em delphi x.X

flw, abraços...