Líderes

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

{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, vou ensinar à vocês como fazer um depositer muito facilmente em seu BBOT: No cavebot, marque a opção Learn Agora, faça o waypoint da hunt em que você deseja caçar normalmente Quando você acabar, desmarque a opção Learn Agora, clique com o botão direito do mouse no final do waypoint e em seguida clique em Full Check Escreva a CAP minima para que o bot possa ativar o depositer, exemplo: Cap <* Marque novamente a opção Learn e caminhe até o Bank Quando você estiver próximo do NPC no Bank, desmarque a opção Learn Clique novamente com o botão direito do mouse no final do waypoint e em seguida clique em Message - Hi/Deposite all/Yes Marque a opção Learn novamente e siga para sua hunt Agora, quando seu personagem chegar no limite de cap que você usou aqui: "Cap <*" ele irá ativar automaticamente o waypoint em direção ao bank e depositar todo seu dinheiro. Espero ter ajudado ! * - Aqui você deverá colocar a capacidade minima do personagem para que ele possa ir ao bank. Créditos - Guilherme. Agradecimentos - BMega Community

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

Olá galerinha do TB... Essa semana eu fiz novos BBCodes... só não postei antes porque estavamos verificando se poderia haver bug em algum deles. Então hoje vou mostrar á vocês. BBCode Title Descrição: Adiciona uma barra de título para que você possa organizar melhor seus tutoriais e afins. Como usar: [title]Título[/title] Exemplo: Título [download]LINK[/download] ... [download]http://tibiabots.net[/download] Exemplo: [scan]LINK[/scan] ... [scan]http://tibiabots.net[/scan] Exemplo: [char]Tubaina Limao[/char] Exemplo: Tubaina Limao [guild]Desbaratinado[/guild] Exemplo: Desbaratinado É isso ai galera. Abração á todos. BBCode Download Descrição: Adiciona uma imagem automaticamente de download. Só necessário colocar o link entre o bbcode. Como usar: BBCode Scan Descrição: Igual download só que adiciona imagem de scan. Como usar: BBCode TibiaCharacter Descrição: Adiciona link para o profile no site do tibia.com automaticamente só é necessário do nome do char entre o bbcode. Como usar: BBCode TibiaGuild Descrição: Igual tibia character só que é com nome da guild. Como usar:

Quem volto pra ver a bunda, da um positivo ali embaixo \/

Desmarque as duas primeiras opções "Self-Defense Attack e Ignore Players Attack" Eu, não utilizo essas opções aqui, e funciona normal.... Sobre as bps, sim, se tiver outra bp dentro da principal, ele abre a próxima.

Well this is a kind Rune Maker in C#, you can convert it to VB easy. Is not complete but is an idea to start one, you need to better it. So the event for the bottom is: private void button1_Click(object sender, EventArgs e) { Item itemMovedToAmmo = null; ItemLocation newLocation = null; ItemLocation oldLocation = null; Item original = client.Inventory.GetItems().FirstOrDefault(i => i.Id == Tibia.Constants.Items.Rune.Blank.Id); uint item = Tibia.Constants.Items.Rune.PoisonField.Id; if (original != null) { oldLocation = original.Location; if (client.Inventory.GetItemInSlot(Tibia.Constants.SlotNumber.Right) == null) { newLocation = ItemLocation.FromSlot(Tibia.Constants.SlotNumber.Right); } else if (client.Inventory.GetItemInSlot(Tibia.Constants.SlotNumber.Left) == null) { newLocation = ItemLocation.FromSlot(Tibia.Constants.SlotNumber.Left); } if (newLocation == null && client.Inventory.GetItemInSlot(Tibia.Constants.SlotNumber.Ammo) != null) { newLocation = ItemLocation.FromSlot(Tibia.Constants.SlotNumber.Right); itemMovedToAmmo = client.Inventory.GetItemInSlot(Tibia.Constants.SlotNumber.Right); itemMovedToAmmo.Move(ItemLocation.FromSlot(Tibia.Constants.SlotNumber.Ammo)); } } Thread.Sleep(200); original.Move(newLocation); Thread.Sleep(200); client.Console.Say("adevo grav pox"); Thread.Sleep(200); Item newItem = new Item(client, item, 0, "", newLocation); Thread.Sleep(300); newItem.Move(oldLocation); Thread.Sleep(200); if (itemMovedToAmmo != null) { itemMovedToAmmo.Location = ItemLocation.FromSlot(Tibia.Constants.SlotNumber.Ammo); itemMovedToAmmo.Move(ItemLocation.FromSlot(Tibia.Constants.SlotNumber.Right)); } }

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