Puncker

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

{Tirar screenshoot ao upar} Código: var Level: integer; begin UpdateWorld; Level := Self.Level; while not Terminated do begin UpdateWorld; if Level <> Self.Level then begin Level := Self.Level; ScreenShot('c:\level' + IntToStr(Level) + '.jpg'); end; Sleep(1000); end; end; Ou Baixe Ou baixe: sshup.ng

Simples e útil. REP++

{Auto-Utamo} Script: while not terminated do begin UpdateWorld; if not Self.MagicShield then begin Self.Say('Utamo Vita'); Sleep(2000); end; sleep(100); end; Ou baixe: utamo.ng

Gold to Platinum, Platinum to Crystal (OTs) Script que transforma Gold em Platinum e Platinum em gold quando estiverem na quantidade 100, porém isso só funciona em OTs. Script: procedure StackItems; var T: array of integer; x, y, z: integer; Temp: integer; begin UpdateWorld; T := VarArrayCreate([0, 19] , 3); Temp := -1; for x := 0 to Self.Containers.Count - 1 do begin if x >= Self.Containers.Count then Break; for z := 0 to Self.Containers.Container[x].Count - 1 do begin T[z] := Self.Containers.Container[x].Item[z].ID; end; for y := 0 to Self.Containers.Container[x].Count - 1 do begin if y >= Self.Containers.Container[x].Count then Break; if Self.Containers.Container[x].Item[y].Properties.Pilable then begin if Self.Containers.Container[x].Item[y].Amount < 100 then begin for z := y + 1 to Self.Containers.Container[x].Count - 1 do begin if T[z] = Self.Containers.Container[x].Item[y].ID then begin if Self.Containers.Container[x].Item[z].Amount < 100 then begin Self.Containers.Container[x].Item[y].movetocontainer(Self.Containers.Container[x], z, 0); end; end; end; end; end; end; end; end; while not Terminated do begin UpdateWorld; StackItems; for x := 0 to Self.Containers.Count - 1 do begin for y := 0 to Self.Containers.Container[x].Count - 1 do begin if Self.Containers.Container[x].Item[y].ID = 3031 then // ID do GOLD begin if Self.Containers.Container[x].Item[y].Amount = 100 then begin Self.Containers.Container[x].Item[y].Use; end; end else if Self.Containers.Container[x].Item[y].ID = 3035 then // ID do Platinum begin if Self.Containers.Container[x].Item[y].Amount = 100 then begin Self.Containers.Container[x].Item[y].Use; Break; end; end; end; end; Sleep(1000); end; Ou baixe: gold.ng

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

Da sim, é só digitar Tibia no primeiro Edit e depois o que você quer no segundo Edit.

{Downloads do Delphi} Delphi 7 Delphi 7 - Uploading Crack - SourceForge Delphi 2010 Embarcadero (ISO) Delphi XE 3 Embarcadero (ISO) Delphi XE 4 Embarcadero (ISO) Delphi XE 5 Embarcadero (ISO) Delphi XE 6 Embarcadero (ISO) Delphi XE 7 Embarcadero (ISO) Para as versões que não possuem o crack, o crack deve ser obtido por conta própria.

To vendo o tibia cheio de bots agora.... Huasuhasuahs. Muito bom

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.

Muito bom o tuto o/, ajuda muitos que estão iniciando na criação de bots. REP++

Concordo que Delphi está meio ultrapassado, mas ele tem bastantes funções e usabilidade. Ta aqui o wallpaper:

Isso mesmo que o renato falou, apenas toma ban se enviar pacotes. Qualquer bot que contenha algum cavehunting ou looter, pode ficar ciente que envia pacotes ou não se o bot usa métodos mais simples só que menos funcional. Vou usar como exemplo o BBot, sabe aquelas mensagens que aparecem todas coloridinhas quando você usa alguma magia? E essas mensagens mostram o tempo da sua magia? Então... Isso é puro envio de packets, porém acho que esse do BBot não envolve relação com o servidor do game, apenas com o client.

Parabéns, gostei muito da sua lista. Quando alguem inicia programação em Delphi, sempre acontece de ficar perdido nas abas do Delphi, tentando encontrar algum componente. Abraços.

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

Bury Your Dead - Sympathy Orchestra

Isso, que nem msn.

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

Criando um programa básico que treme o Form {Iniciando em Delphi} Necessário: Delphi 7 (Em breve link para download) Criando e organizando o Form Caso um projeto não foi criado, vá no menu "File" >> "New" >> "Application", e aparecerá um Form1 em branco. Agora ainda na aba "Standard" selecione um "Button" e coloque no Form1 Código Dê dois cliques no form para ir para a parte de código e depois de implementation {$R *.dfm} Adicione isto: procedure Tremer(frm: HWND); var r: TRect; i: integer; n1, n2: integer; begin getwindowrect(frm,r); for i:= 0 to 50 do begin n1:=random(5); n2:=random(5); setwindowpos(frm,0,r.Left+n1,r.Top+n2,r.Right-r.Left,r.Bottom-r.Top,0); sleep(20); end; setwindowpos(frm,0,r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top,0); end; Agora o código do botão Dê dois cliques no "Button1" e coloque o seguinte código para chamar a função tremer(handle);