Lista virtual keys para usar no Delphi

Abaixo uma lista com as virtual keys mais usadas:

VK_LBUTTON - botão esquerdo do mouse

VK_RBUTTON - Botão direito do mouse

VK_CANCEL - Control + Break

VK_MBUTTON - botão do meio

VK_BACK - tecla Backspace

VK_TAB - tecla Tab

VK_CLEAR - tecla Clear

VK_RETURN - tecla Enter

VK_SHIFT - tecla Shift

VK_CONTROL - tecla Ctrl

VK_MENU - tecla Alt

VK_PAUSE - tecla Pause

VK_ESCAPE - tecla Esc.

VK_SPACE - barra de espaço

VK_PRIOR - tecla Page Up

VK_NEXT - tecla Page Down

VK_END - tecla End

VK_HOME - tecla Home

VK_LEFT - esquerda Seta

VK_UP - tecla Seta para cima

VK_RIGHT - Seta para Direita

VK_DOWN - Seta para baixo

VK_SELECT - Selecione chave

VK_PRINT - tecla Print (teclado específico)

VK_EXECUTE - Execute-chave

VK_SNAPSHOT - tecla Print Screen

VK_INSERT - tecla Insert

VK_DELETE - tecla Delete

VK_HELP - Ajuda chave

Operações matemáticas com virgula no Delphi 7

Um visitante do blog teve esta dúvida, e abaixo está a resolução:

Para trabalhar com números com virgula você tem que usar a opção Float ao invez de integer e string.

Abaixo um exemplo de como achar 3,75% de 600:

var

v1, v2, v3, v4 : Double;

begin

v1 := (600);

v2 := (v1*3.75);

v3 := (100);

v4 := (v2 / v3);

Label1.Caption := FloatToStr(v4);

Nota-se: Quando se usa o 'Float' não usamos a função 'Div' para divisões e sim o sinal '/'.

Peça sua source, tutorial!

É isso ai galerinha, se está querendo alguma source, aplicativo, tutorial para delphi 7, só clicar na aba contato e em enviar um e-mail com o que deseja, fico feliz em poder ajudar vocês com as duvidas e com programas desejados!

Até a próxima, aguardo o e-mail de vocês!

Source Tibia Bot Healer

Para aqueles que estão usando o delphi para criar um bot de tibia, está ai um source bem simples que tem as seguintes funções:

Mana Training;

Item Healer; (Por porcentagem)

Spell Healer; (Por porcentagem)

Mana Restore;

Print:

Link Download: http://www.speedyshare.com/fSswt/HealerBot.rar

Achando porcentagem no Delphi 7

Boa tarde galerinha, estou aqui para mais um tutorial, vou ensinar a achar porcentagem no delphi, Mãos a obra!

Introdução:

Mas teóricamente falando, como iremos achar a porcentagem?

Digamos que você tem um valor (Exp: 250), e você quer achar o equivalente a 35% do valor, para achar no papel fariamos assim:

250 * 35 = 8750

8750 / 100 = 87,5;

Ou seja, 35% de 250 é equivalente a 87,5.

Ok já entendi, mas como vou usar isso no delphi?

Simplesmente assim:

var

v1: integer;

v2: integer;

v3: integer;

begin

end;

Esses (v1, v2, v3) serão nossos códigos para realizar as operações matemáticas no delphi, integer significa que eles tem valor numérico. Vamos fazer uma conta no delphi que retorne para uma label, a porcentagem de certo valor. Para isso iremos adicionar 2 Edits, 1 Button, 4 Labels. E deixe seu form parecido com este:

Código:

No button coloque o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);
var
v1: integer;
v2: integer;
v3: integer;
v4: integer;
begin
v1 := StrToInt(Edit1.Text);
v2 := StrToInt(Edit2.Text);
v3 := (v1*v2);
v4 := (v3 Div 100);
Label4.Caption := IntToStr(v4);
end;

Entendendo o código:

StrToInt - Transforma o valor de String(Texto) para Integer(Numérico);

v1*v2 - Mutiplicação dos valores referente a v1 e v2;

v3 Div 100 - Divisão do valor gerado em v3 por 100.

E funcionou?

Claro que sim! Tudo funcionando, agora você já sabe trabalhar com mutiplicação e divisão, além de achar porcentagem pelo delphi 7.

Obrigado pela visita, e volte sempre!

YouBot 9.61 - Quase Pronto

Então galerinha, mesmo com muitos me pressionando, dizendo que eu não conseguiria por ter apenas 15 anos, ser muito jovem para lidar com algo tão complicado, mais uma vez provei que quando se quer é possível realizar! Depois de muitos estudos, e tentativas que falharam, tentativas que deram certo, eu consegui terminar o principal de meu bot, e brevemente ele estará sendo lançado para download, lembrando que o bot será totalmente grátis. Abaixo uma print mostrando o walker.

Fiquem ligados nas noticias e nos meus tutoriais, até mais!