Rick Martin

bom, agora os erros provavelmente serão relacionadas a valores de variaveis, procure utilizar a depuração do visual studio (ou o express mesmo)

segue um link que explica como fazer tal depuração
Link1
Link2

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

olá gente.
começei a programar ontem e essa madrugada resolvi faser o meu primeiro programa em VB 2008
não é nada de muito util. apenas quando você esta na 5 º série =O
eu nao conseguia resolver pitagoras e de raiva fiz 1 programinha que resolve ú.ú
sei que está simples , e com pouca "programação" , mais gostaria da opinião de vcs
arquivo está anexado.
eu nao sei faser scan :S
alguem me ensina ou faz para min , por gentileza.
obrigado =d

comentem

e me desculpem se eu postei na area errada D:

pitagoras.rar