Líderes

{Pegando ID de um processo} O ID de um processo no Delphi pode servir para muitas funções, como ler Addresses e escrever Addresses na memória do programa em tempo real, vou ensinar como conseguir o ID do processo. Componentes 1 Label 1 Button Código Dê 2 cliques no Button que você adicionou e adicione isto: var fw,pid:dword; begin fw:=findwindow(nil,'Nome da Janela'); if fw = 0 then begin Label1.Caption:='Processo não encontrado.' end else begin getwindowthreadprocessid(fw,@pid); Label1.Caption:='ID do Processo: '+inttostr(pid); end; Pronto seu programa está pronto, mas vou explicar o que faz cada função. fw é o ID da janela, que é definido pela função findwindow que retorna um ID Logo depois ele checa se o ID que contem em fw é nulo se for nulo quer dizer que a janela não foi encontrada, caso o valor não seja nulo ele executa o comando getwindowthreadprocessid que pega o ID da janela e encontra o ID do processo e define o id dentro do valor "pid" declarado em "var", depois o pid é convertido em string e mostrado na Label. Há outros métodos de conseguir o ID de processos porém métodos mais complicados. Aí você se pergunta... Qual a utilidade disto? Vou explicar com a função: OpenProcess(Process_all_access, false, pid) Essa função abre o processo e permite escrever e ler dados do processo veja que ele usou pid no final pois pid é o ID que ele pegou e ele irá usar o processo deste programa. Usando isso com mais conhecimento você pode criar até um bot...

Bom, após muito estudo, erros, noite a base de coca-cola e salgadinhos... vou disponibilizar um mini projeto de como simular o pressionamento de hotkeys no cliente do tibia, utilizando a linguagem C# (my love ). Não esta 100%, nem aquelas coisas, pois estou passando apenas uma base (o que eu aprendi), quem quiser se aprofundar ta ae a dica (www.google.com.br) <- meu grande MENTOR!. Sem mais delongas... Até+ Hotkeys.rar

LothusBot - Projeto baseado na TibiaAPI Bom, primeiramente gostaria de explicar os motivos por estar disponibilizando o projeto com a comunidade. Ando muito corrido na faculdade e no meu trabalho, estou estudando muito e não estou arranjando tempo para continuar o projeto, nem arrumar os erros que o mesmo possui, logo, não pretendo dar continuidade tão cedo. Aos que estão começando a programar com a API, fica um grande aprendizado, pois o mesmo possuir diversas funções, várias terminadas, algumas precisando serem melhoradas e poucas começadas, precisando terminar (cavebot). Fotos do Bot Bom, é isso, espero que façam bom proveito, estou disponibilizando o projeto com muito carinho

Inserindo Skin no seu projeto Delphi {Iniciando em Delphi} Muitos gostam de programas estilosos, com uma aparência bonita, mas não sabem como alterar isso. Então vou ensinar como colocar "Skins" em um projeto do Delphi. Necessário: VCL Skin Pacote de Skins O que é VCL Skin? VCL Skin é um componente do Delphi, que pode ser integrado ao Delphi, após ele ser integrado ele aparece nas abas do Delphi, e você poderá usar as suas funções. 1 - Instalando o Componente Após ter baixado o VCLSkin extraia ele, agora dentro das pastas extraídas haverá uma chamada Package, nessa pasta como você verá tem muitos arquivos. Destes arquivos abra o WinSkinD7R.dpk. Irá aparecer algo parecido com um projeto de Delphi porém sem o form. Agora clique em "Compile" e logo depois em "Install" depois de instalar aparecerá uma mensagem confirmando que foi instalado, agora feche o Delphi. E nas pastas extraídas do VCLSkin vá na pasta "Source" copie tudo que tem na pasta e cole em: C:\Program Files\Borland\Delphi7\Lib (Pasta do Delphi Windows Vista/Windows 7) C:\Arquivos de Programas\Borland\Delphi7\Lib (Pasta do Delphi Windows XP) Pronto ele está prontinho para funcionar mas agora a parte de inserir "Skin" no projeto. 2 - Inserindo os Skins Após ter completado a etapa de instalar o componente agora você poderá deixar seu programa mais bonito. Abra o Delphi e inicie um novo projeto caso não exista um. Após fazer isso nas abas vá até o final usando a seta ">" e pare quando encontrar a aba "VCLSkin Na aba "VCLSkin" selecione o componente SkinData e coloque-o no seu form. Após fazer isto clique no SkinData já no seu form apenas para selecionar as propriedades dele, altere a propriedade "Active" para "True" Agora clique em "..." na propriedade "SkinStore" do SkinData e vá até a pasta extraída do pacote de skins e escolha o skin de sua preferência. Agora você pode compilar seu projeto e ver como ficou apertando F9. Uma screenshoot do programa com o Skin Discoteca

Criando um navegador basico baseado no IE {Iniciando em Delphi} Inicie um novo projeto no Delphi (quando ele é aberto, ele já faz isso, é iniciado com um projeto vazio). Vamos inserir no formulário dois quadros: um painel, onde ficarão os botões e a barra de endereços, e o quadro de visualização HTML. Para inserir um painel, clique no componente "painel" da paleta de componentes, e clique uma vez dentro da tela da janela do programa (o formulário). Veja: O componente "panel" (painel) O componente inserido no formulário Vamos ajustar algumas propriedades desse componente, para que ele fique no topo, e sem o texto "Panel1" dentro. Clique uma vez nele para selecioná-lo, e no inspetor de objetos (a janela de propriedades do objeto, se você não sabe, leia o texto do link que indiquei mais acima), localize a propriedade "Caption". Remova o texto dela, deixando assim: Para que esse painel fique alinhado na parte superior da tela, localize nessa mesma janela a propriedade "Align", e deixe com o valor "AlTop": Com o painel selecionado, clique na borda inferior dele e arraste para baixo, até ficar num tamanho ideal para você. Agora insira o componente "TWebBrowser". Ele fica na guia "Internet" da paleta de componentes do Delphi, normalmente é o último dessa guia. Não o insira dentro do painel, mas sim fora, ou seja, clique nele uma vez, depois clique na área livre do formulário. Veja como ficará: O componente "TWebBrowser" O componente inserido no formulário Ajuste a propriedade "Align" dele assim como você fez com o painel, mas agora escolha "AlClient". Isso faz com que ele ocupe toda a área restante da tela, mesmo que o usuário maximize ou redimensione a janela. Vamos inserir uma barra de endereços simples (não uma lista, por ser um tutorial para iniciantes nessa área) e os botões "Voltar", "Avançar", "Parar" e "Atualizar". Selecione o componente "Button", "botão", da aba "Standard" dos componentes do Delphi, e insira-o dentro do painel. Agora sim, clique dentro do painel, para que ele fique "dentro" do painel. Se você colocá-lo fora, ele não acompanhará o local fixo no painel, por exemplo, podendo ficar fora do lugar dependendo do tamanho da janela. O componente "Button"(botão) Ele inserido no formulário, dentro do painel Agora você já deve estar pegando mais intimidade com a inserção de componentes. Insira mais três botões, ao lado desse. Você pode copiá-lo e colá-lo! Clique uma vez nele, ele ficará selecionado (o botão). Tecle CTRL+C e depois CTRL+V, e ele será inserido dentro do painel, depois tecle CTRL+V duas vezes para colar mais dois, e arraste cada um para os seus lugares, de modo a deixar o visual organizado. Agora altere os textos dos botões. Selecione um por um, localize a propriedade "Caption" no inspetor de objetos, e digite o texto desejado. Para nosso exemplo, coloque "Voltar" no primeiro botão, "Avançar" no segundo, "Parar" no terceiro e "Atualizar" no quarto. Para inserir uma barra de endereços, clique no componente "Edit", da aba "Standard" da paleta de componentes, e insira-o também dentro do painel, logo abaixo dos botões (redimensione o painel, se necessário, clicando nele e arrastando a linha inferior para baixo). Redimensione o campo de texto ("Edit") até ficar com um tamanho razoável, para digitar um endereço da Internet. Com o "Edit" selecionado, remova o texto dele. Basta limpar o texto da propriedade "Text", pelo inspetor de objetos. O componente "Edit", um campo de texto Aspecto de como está ficando o programa Para não perder, salve o projeto. Clique no botão "Salvar tudo" do Delphi, ou no menu "File > Save all", como é a primeira vez. Primeiro salve o arquivo de projeto, de extensão ".dpr". Coloque o nome principal do seu programa, de preferência sem espaço, será o mesmo nome do executável. Por exemplo, "Navegador". Ao clicar em Salvar na janela "Salvar", aparecerá uma outra, agora para salvar a unidade de código do formulário, um arquivo ".pas". Pode deixar o padrão, "Unit1.pas", se você quiser. O componente WebBrowser usa toda a estrutura do IE, como comentei no começo do arquivo. Para fazê-lo "funcionar", o que seu programa tem que fazer é chamar as funções corretas dele. Algumas são documentadas, outras creio que não... Mas para as mais comuns não há segredo. Dica: para facilitar as referências, vamos renomear o WebBrowser para um nome mais curto. Selecione o quadro branco do IE, e altere a propriedade "Name" dele, pelo inspetor de objetos. Usarei aqui "web", um nome fácil de identificar e curtinho. Selecione a barra de endereços, o "Edit1". Quando a pessoa digitar alguma coisa e teclar [enter], o navegador será chamado. Para isso, deveremos configurar o evento da barra de endereços responsável por reconhecer o [enter], e por chamar o navegador. Selecione a barra de endereços, e vá para a aba "Events" do Object Inspector (na mesma janela onde você altera os títulos, textos, propriedades dos componentes...). A aba "Events" do Inspetor de Objetos Nessa aba podemos personalizar os eventos dos objetos. Os eventos são ações que podem ser realizadas pelo usuário ou pelo programa. Por exemplo, quando o usuário clica num componente visual, o evento onClick é chamado, e o código contido nele será executado. Se o usuário nunca clicar nesse botão, esse código nunca seria executado. Para definir um código, uma ação, quando o usuário teclar [enter] no campo de texto, devemos inserir os comandos no evento "onKeyDown", que pode ser entendido como "aoApertarUmaTecla". Ele é chamado para todas as teclas enquanto o componente de texto estiver com o foco, então deveremos também incluir um verificador, para verificar se a tecla pressionada foi [enter]. Se for, faremos uma chamada ao componente do navegador para abrir o endereço digitado. Se não for, não faremos nada e deixaremos o usuário terminar de digitar Localize o evento "onKeyDown" (não se esqueça de selecionar o "Edit1" antes!), e dê um duplo clique no quadrinho em branco à sua esquerda, onde você percebe que pode digitar algo: janela de código será aberta no ponto correspondente, o Dephi já preparará toda a estrutura para você digitar os comandos. Digite isso, entre o begin e o end: if Key = VK_RETURN then web.Navigate(Edit1.Text); Veja na tela, como ficaria: Vamos entender esse código... Traduzindo-o para o português: se Tecla = Enter então navegador.Abre(site digitado no campo de endereço); A estrutura dependerá da linguagem de programação em uso, não se esqueça que este tutorial é de Delphi, portanto, não bastará "copiar e colar" esse mesmo código no Visual Basic ou C++. Mas as idéias são as mesmas. O if é um comando verificador, e tem esta sintaxe: if (condição verdadeira) then faça alguma coisa; O ponto e vírgula é o caractere terminador de linha em Pascal (a linguagem usada pelo Delphi). As instruções que não estiverem separadas por um ponto-e-vírgula, podem ser digitadas na mesma linha, se você quiser. Pula-se linhas e é costume teclar TAB para dar tabulações e espaços apenas para facilitar a edição do código, visto que quem o editará é uma pessoa – como você! Nesse código, o verificador verifica se a tecla pressionada ("Key") foi a tecla [enter] ("VK_RETURN" é um identificador no Delphi, para a tecla [enter]; cada tecla tem um código próprio). Se foi, ele chama o método "Navigate" do objeto "web", passando como parâmetro o texto que estiver dentro do campo. Esse texto é obtido pela propriedade "Text", e ela é separada por um ponto do nome do objeto (assim como os métodos, eventos, funções... que aliás são, "num primeiro momento", a mesma coisa, evento, função e método). Compile o programa e execute-o, digitando qualquer site na barra de endereços, e tecle [enter]. Se der erro na compilação e o programa não rodar, verifique todos os passos descritos, observando a mensagem de erro na tela do Delphi, que normalmente reporta o que ocorreu ou pelo menos a linha. Dica: para executar o programa de dentro do Delphi, apenas tecle F9, ou clique no botão com o ícone de um "play", na barra de ferramentas. O arquivo gerado terá o mesmo nome do projeto que você salvou, mas a extensão ".exe". Você poderá distribui-lo e inclusive rodá-lo em outros computadores, sem precisar do Delphi Agora vamos definir as ações dos botões. O evento onClick deles é o evento padrão, por ser o mais intuitivo para um botão: fazer alguma coisa quando o usuário clicar nele. Como é o evento padrão, basta dar um duplo clique sobre cada botão, para digitar o evento para ele. Mas nada impede que você o faça selecionando o botão, e dando um duplo clique no evento "onClick", da aba "Events" do Object Inspector. Essa parte será bem fácil, pois cada botão apenas chamará um método do componente do navegador, que no caso, é gerenciado pelo motor do Internet Explorer, ou seja, já está tud programado. Dê um duplo clique sobre o botão "Voltar", e digite: web.GoBack; GoBack é um método definido pelos criadores do IE, que fará ele voltar à página anteriormente acessada. Faça a mesma coisa para o botão "Avançar", digitando: web.GoForward; Para o botão "Parar": web.Stop; E finalmente, o botão "Atualizar": web.Refresh; Salve, compile e rode seu programa. Navegue por algumas páginas, para testar. Para que os botões "Voltar" e "Avançar" realmente funcionem, você deverá navegar clicando em alguma coisa (ou acessando outro endereço), e depois clicar no "Voltar".

Croquete com maionese, AUSUSHAUSHAUS! tenso ;o!

Tópico Editado. Link do Crack do Delphi 7 arrumado.

Pode usar ele sem o serial que não expira, tem alguns componentes dele que expira, mais as skins não tem problema. Caso aparece a imagem pedindo o serial, só dar "Cancel" e pronto.

Qualquer programa feito em c# abre com o SP2, unica coisa que você precisa ter é o NetFramework 4 instalado, pois eu utilizei ele pra fazer o bot.

@Robson Obrigado, até tenho esperança de continua-lo, o tempo que esta dificil, mais quem sabe

[TibiaAPI] Walker Hoje vou ensinar a fazer um Walker bem simples, que apenas vai de um lado para o outro, de uma coordenada para outra. O que iremos precisar? De um botão, um checkbox, um timer e um listbox. Código do botão: lbWalker.Items.Add(p.Location.ToString()); lbWalker.SelectedIndex = 0; Código do timer: string pos = lbWalker.SelectedItem.ToString(); string output = pos.Substring(pos.IndexOf("(") + 1, pos.IndexOf(")") - pos.IndexOf("(") - 1); string[] arrayWalker = output.Split(','); if (p.Location == new Location(Convert.ToInt32(arrayWalker[0]), Convert.ToInt32(arrayWalker[1]), Convert.ToInt32(arrayWalker[2])) | p.Location.Z != Convert.ToInt32(arrayWalker[2])) { if (lbWalker.SelectedIndex >= (lbWalker.Items.Count - 1)) { lbWalker.SelectedIndex = 0; } else { lbWalker.SelectedIndex = lbWalker.SelectedIndex + 1; } } p.GoTo = new Location(Convert.ToInt32(arrayWalker[0]), Convert.ToInt32(arrayWalker[1]), Convert.ToInt32(arrayWalker[2])); Código do chekbox: if (chk_Bot.Checked) { timer_walker.Start(); } else { timer_walker.Stop(); } O código esta bem simples e objetivo. Qualquer duvida só perguntar! PS: Para converter para VB.Net, utilize este site: Link.

Exato, é um sistema muito semelhante ao do Elf, porem só anda mesmo.

Obrigado por avisar. Tópico Editado Link Arrumado

Alterando nome de janelas {Iniciando em Delphi} Está aqui mais um tutorial de Delphi. O programa que será feito a seguir irá alterar o nome da janela que você quizer por exemplo, você está com o Firefox aberto e você digita no programa Firefox(nome da janela), e em outro lugar um novo nome, ao clicar no botao o nome da janela Firefox muda. Vamos Começar 1 - Componentes Adicione ao seu projeto, 2 "Edit" na aba Standard Adcione um "Button" também na aba Standard 2 - Código No Button coloque o seguinte código: var H : THandle; begin H := findWindow(nil, PChar(Edit1.Text)); if H <> 0 then begin SetWindowText(H, PChar(Edit2.Text)); showmessage('Nome alterado com sucesso.') end else begin ShowMessage('Janela não encontrada.'+#13+'Tente Novamente.'); end; Pronto, seu programa está pronto para rodar, agora aperte F9 (Compila e Testa) e verifique se está tudo correto.

Estou trabalhando nesse walker, pois o mesmo pode ser trapado com qq item por ser simples, quando eu terminar, ai sim vou ver isso de subir, descer escadas/buracos e afins.

@Flamer Bem lembrado, meu amigo tem o NeoBot e o mesmo simula tanto o teclado como o mouse do micro, sendo que se ativado, vc até ve o mouse se mechendo, usando os items e tals (segundo ele, não cheguei a ver mesmo), porem vc não pode mecher no PC! @Matheus Valew Matheus, como foi de valia pra mim, vai servir pra alguem tambem! @Topico Atualizei o código, inserindo "explicações" para melhor intendimento! Abraços!

@DragonBoss Valews cara, aprendi a programa em C# na faculdade, acho muito mais facil que as outras (por afinidade lógico). @Rick Martin Valews brow! Compartilhar sempre (quase sempre ) @EdsonJunior Exatamente, imagine a seguinte situação: sua vida esta abaixo do que o configurado no "bot", nisso o mesmo simula o pressionamento da tecla f1 por exemplo para curar! Em relação ao cavebot, vou me aprofundar para ver se é possivel fazer isto, e como dito, ele anula as chances de ser banido ou detectado, pois eu utilizo a API apenas para checagens (não aprendi manipular os address do tibia ainda para isso), não para enviar comandos, (c.console.say).

{Listando Pastas e Subpastas} Irei ensinar como listar pastas e subpastas de um certo diretório. Componentes Um Button Um Listbox Função Será usada a função SubDiretorios que deve ser inserido no local onde você preferir do código do seu programa: procedure SubDiretorios(Diretorio: string; Lista: TStrings); var SearchRec: TSearchRec; begin if FindFirst(Diretorio + '*.*', faDirectory, SearchRec) = 0 then repeat if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then begin Lista.Add(Diretorio + SearchRec.Name + '\'); SubDiretorios(Diretorio + SearchRec.Name + '\', Lista); end; until FindNext(SearchRec) <> 0; FindClose(SearchRec); end; Agora para chamar a função insira este cógido no button: SubDiretorios('Diretorio da pasta',Listbox1.Items); No local Diretorio da Pasta você coloca o diretório que quer ou pode usar funções como: ExtractFilePath(Application.exename) (Pega o diretório do programa), entre outros códigos.

{Desligando o computador em determinada hora} Essa é uma função que o agendador do windows faz, mas vou ensinar como fazer isso em delphi. 1 - Componentes Adicione um Edit e defina sua propriedade visible para false Adicione um MaskEdit e vá na propriedade EditMask e coloque Short Time Adicione um Timers e defina o "interval" como 1 2 - Timer begin Edit1.text := FormatDateTime('HH:MM',time); if MaskEdit1.Text = Edit1.Text Then WinExec('Shutdown -s -f -t 00', SW_SHOWNORMAL); end; Agora seu programa está pronto para uso.

{Fazer janela piscar na barra de tarefas (Igual à MSN)} Não tenho muito o que falar, é igual quando uma pessoa te chama no MSN e o seu msn fica piscando na barra de tarefas. Dê dois cliques no form do seu projeto para ir para os códigos. Após: implementation {$R *.dfm} Adicione isto: procedure flash; var FWInfo: FLASHWINFO; begin with FWInfo do begin cbSize:=SizeOf(FWInfo); //Tamanho do struct em bytes hWnd:=Application.Handle; //Handle da janela dwFlags:=FLASHW_TRAY; //Piscar na barra de tarefas uCount:=5; //Piscar cinco vezes dwTimeOut:=200; //Tempo de duração de cada piscada em milisegundos end; FlashWindowEx(FWInfo); Sleep(300); end; Agora para usar a função flash (coloque em algum botão ou outro componente) chame a função usando este código: flash; Pronto, a função foi adicionada e você pode usa-la no componente que quizer que suporte chamar uma função.

{Salvando e carregando conteúdo de Listbox, Memo etc.. em arquivos de texto} A maioria dos componentes do Delphi que possuem alguma entrada de texto tem uma função que salva e carrega esses textos. A seguir vou citar como usar as funções. Memo Salvando o conteúdo do Memo: Memo1.Lines.SaveToFile('Arquivo.txt'); Sendo a extenção do arquivo não obrigatoriamente .txt pode ser ao seu gosto como .oi, .phm, etc... Carregando o conteúdo contido no arquivo de texto: Memo1.Lines.LoadFromFile('Arquivo.txt'); Se o arquivo não existir ele retornará um erro. ListBox Salvando o conteúdo do listbox: listbox1.Items.SaveToFile('Arquivo.txt'); Carregando o conteúdo contido no arquivo de texto: listbox1.Items.SaveToFile('Arquivo.txt');

{Pegando nome da janela ativa} O que é "a janela ativa"? Janela ativa é a janela em que você está no desktop, como por exemplo se você está usando o navegador Firefox o nome lá em cima "TibiaBots - Mozilla Firefox" é o nome da janela ativa pois você está nela. 1 - Componentes Adicione um "Edit" da aba "Standard" Adicione um "Timer" da aba "System" 2 - Código Dê dois cliques no Timer e adicione o seguinte código: var titulo: string; begin setlength( titulo, 255 ); GetWindowText( GetforegroundWindow, PChar(titulo), 255); Edit1.Text := trim( titulo ); Pronto , Simples, Fácil e Prático. Para testar seu projeto basta apertar F9 que ele irá compilar e abrir o programa em modo debug.

Freeware não é =\, mas os Cracks estão para download no tópico e o 2010 já vem com crack.

eu uso bbot,entao nao tem como eu uza esses waypoints?:S ... nao tem um conversor?

eu uso bbot,entao nao tem como eu uza esses waypoints?:S ... nao tem um conversor?