[2 Duvidas] TibiaBot

[V!$h&® 0]

1°- Tenho um listbox, e 4 buttons (Up,Down,Left,Right), queria saber como verificar se existe a linha de baixo, e quando chegar na ultima linha ele voltar para a primeira,

 

2°- Fishing, Mina ideia: quando aperta a tecla END na janela do tibia, ele adiciona a coordenada do mouse num listbox, ai ele usa a hotkey e da um click com o mouse

 

 

 

 

Alguem pode ajudar?

[DragonBoss 9]

Já fiz isso... não darei o programa pronto, mas posso te dar uma força, o sistema da listbox pode ser assim:

 

( no exemplo usei um timer que caminha pelos items do listbox e quando chega ao final, ele volta ao inicio):

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Este outro exemplo, faz com que ao apertar end, seja adicionado as coordenadas na lista:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Utilize ele num timer tbm pra captação.

 

e por fim:

 

Utilize essas duas funçoes pra levar o mouse a uma determinada coordenada e depois usar a hotkey + click.

 

SetCursorPos(); // leva o mouse a uma posiçao

keybd_event(); // simula o pressionamento da tecla

mouse_event(); // clicka...

 

estude os parametros dessas 3 funçoes e você ira conseguir fazer o seu programa.

Tenho um que faz a mesma coisa... e uso só essas funçoes '-'

Trabalhe com a lógica e boa sorte !

 

flw, abraços

[V!$h&® 0]

Edit: Nao tinha botado num timer,

 

Dragon, eu tentei assim, mais nao consegui compilar

procedure TForm2.Timer2Timer(Sender: TObject);

begin

SetCursorPos(ListBox1.Items[0]); // leva o mouse a uma posiçao

keybd_event(); // simula o pressionamento da tecla

mouse_event(); // clicka...

end;

[DragonBoss 9]

Assim não irá funcionar realmente, você terá que trabalhar com o tratamento da string pra dividir ela em duas coordenadas, e as funçoes precisam de parametros, por exemplo:

 

keybd_event(VK_F8,0,0,0); // aperta F8, no meu caso, a vara de pescar

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); // clica

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,0, 0, 0, 0); // solta o click

 

O tratamento de strings deixarei por sua conta, é algo que só necessita de logica, tive que pensar bastante até conseguir fazer um sistema de fishing desse jeito sem muitos bugs. =X

 

flw, abraços

[V!$h&® 0]

É cara, vou continuar tentando aqui, mais acho que vai ser dificil

Tem alguma apostila sobre delphi que possa me passar ?

 

abraços