Função Say para o Tibia (Sem TibiaAPI)

[DragonBoss 28]

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

[Puncker 201]

Ótimo tutorial, vai ajudar muita gente.

REP+

[Rick Martin 3]

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

eu gostei

Rep +

[Augusto 660]

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+

[DragonBoss 28]

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

[Jeferson Santana 1]

mas e se eu kiser mudar o tibia por pokemon, é só trocar os nomes das janleas?

[Kimoszin 1160]

Sim, você tem que trocar

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

[Jeferson Santana 1]

eu fiz isto, mas na janela do "PO" n acontece nada, n envia a mensagem, pq?

ficou assim:

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

Editado Março 25, 2012 por Jeferson Santana (veja o histórico de edições)

[Kimoszin 1160]

Cara, vou te dar conselhos.

Não adianta você pegar coisas open source e tentar adaptar, são codigos para estudo.

Então aconselho você estudar programação e sua logica.

Tente entender oque faz,

E sobre o findwindow, o primeiro parametro é o nome da class, o segundo o nome da janela.

Tente pegar pelo nome da class, as vezes os clients proprios mudam esse nome.

Me manda o site desse pokemon, vou ver consigo fazer alguma coisa aqui pro forum.

[Jeferson Santana 1]

http://www.pokexgames.com/

[Augusto 660]

Essa é a do Pokexgames

e essa é do Tibia, só pra comparar...

Repare no item "ClassName"

[Jeferson Santana 1]

desculpem minha iguinorância, mas onde coloco esse class?

[leko 0]

Cara, excelente tópico, me ajudou muito em um projeto em que estou trabalhando.

fica o pedido de um tutorial de como movimentar o char por map click sem o uso do Tibia API,

abraço