Líderes

usei: 1 timer , 1 checkbox , 1 numericupdown , 1 textbox , e um label coloque um label em qlker lugar e ponha visible false com o texto " (aspas) pra pode pega o exura sio vc tem q por nu valor do hp a porcentagem e n o hitpoints entao eu usei o numericupdown com max value 100, fica mais fácil Textbox é aonde se poe o nome do cara código no timer: For Each amigosio As Creature In c.BattleList.GetCreatures() If amigosio.Name = TextBox1.Text Then If amigosio.HPBar <= NumericUpDown1.Value.ToString Then c.Console.Say("Exura Sio " & Label1.Text & amigosio.Name) End If End If Next código do checkbox: If CheckBoxUsado.Checked Then TimerUsado.Start() Else TimerUsado.Stop() End If eu testei aqui e funciono certinho e eu que fiz entao creditos a min se for colocar em outro forum seila eu usei o label porque o VB ve as aspas do exura sio "player como se tivesse fechando o texto, ai assim funciona xDDDD tÃO simples qnto parece!! fui

Level Spy - Técnica Correta Aplique a ferramente level spy em seu bot corretamente. Aloha colequinhas! Aqui vai mais um tutorial/code de um tool que tem em praticamente todos os bots. Level Spy. Sim, esse mesmo que você está pensando, este que voce ve o andar de cima e o andar de baixo. Teoria: Usaremos sistema de botões, ao apertar o botão up, ele mostrará andar de cima, ao apertar down ele mostrará o andar de baixo e ao apertar desativar ele irá voltar ao normal. Prática: Lembrete: Public c As Client Muitos iniciantes usam: c.LevelSpyOn(+1) [/code] [code]c.LevelSpyOn(-1) c.LevelSpyOff() [/code] Não, não! Não está errado. Porém ele só vai mostrar o andar de cima e o andar de baixo. Porque? O +1 simboliza seu local somado á um. Ou seja, sempre será o andar de cima, sómente. Ele não vai somar +1 ao andar que você está vendo, mas sim ao seu local. Então bolei esta técninca. [b]Primeiro, lá em cima onde você declara as variáveis, declare[/b] [code]Dim levelspy As Integer = p.Location.Z Depois no botão up em evento _Click ponha: If levelspy = 14 Then Else c.Map.LevelSpyOn(levelspy + 1) levelspy = levelspy + 1 End If [/code] [b]No botão down em evento _Click ponha:[/b] [code] If levelspy = 0 or levelspy = 7 Then Else c.Map.LevelSpyOn(levelspy - 1) levelspy = levelspy - 1 End If No botão desativar em evento _Click ponha: c.Map.LevelSpyOff() levelspy = levelspy [/code] [color=#ff0000][b]Caso não entender algo sobre os códigos ou caso der algum erro, poste aqui.[/b][/color][/color] [b]Bye babies.[/b]

Criando seu tibia bot com TibiaAPI - Parte 3 {Desenvolvendo com TibiaAPI} Depois de ter injetado a DLL como referência começaremos a desenvolver nosso Bot! O Design: Primeiro de tudo vamos criar o Loader, para que possamos carregar nosso char e o bot funcione. No form1, ponha um combobox e um botão escrito Start, ou OK, ou Entrar, ou Abrir Bot, enfim, o que você achar melhor. Se preferir também ponha uma frase para que o player saiba o que fazer. (eu puis: Escolha seu personagem...) segue a foto: Códigos vbnet! Agora vamos partir para os códigos. Os códigos do loader não são complicados. Basta usar a lógica para intender. Na parte á direitas vá em Solution Explorer, clique com botão direito em cima do Form1 e depois em View Code. Ai estará todos os códigos do Form1. Se você não modificou nada, vai estar assim: Public Class Form1 End Class [/code] [b][color=#800080][size=4]Importanto do TibiaAPI[/size][/color][/b] Então terá as duas abas no seu programa, a Form1.vb que é o codigo e a Form1.vb [Designer] que é o design obviamente. No code antes de Public Class Form1, ponha isto: [code]Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Isto é para importar do DLL, para o resto funcionar. Declarando as Variáveis client e player Então logo depois, vamo definir as variáveis, para nos ajudar a longo do programa Após Public Class Form1, ponha: Public c as client Public p as player[/code] Aqui você declarou que c é Client e p é Player. Em tutoriais pela net você pode encontrar funções com client.Map.. etc, pois eles declararam "Dim client as client" então mude para c.Map... etc O código ficará: [code]Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form1 Public c As Client Public p As Player End Class Form1_Load - Seu char no combobox. Volte no design e clique duas vezes no seu programa (em qualquer parte, menos no botão e no combobox). Verá que foi acrescentado um "Private Sub" no code (o que é isso? R: não te interessa agora). Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub [/code] Você abriu um evento para o Form1 que é o Load, ou seja, tudo que estará ai será executado quando o programa for carregado (quando abrir). Então ponha este código no Form1_Load: [code] For Each cl In Client.GetClients ComboBox1.Items.Add(cl) Next Só entender inglês e usar a lógica para entender o código. Para cara cl em client.GetClients Adiciona o item cl no ComboBox1, Next é o que fecha o For Each. Carregando seu Bot Volte para o designer e clique duas vezes no botão. Aparecerá este code: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End Sub [/code] Reparem que não é mais _Load e sim _Click. Pois o evento será executado quando o botão for clicado e não carregado. Então ponha dentro do Private Sub: [code] Form2.Show() Mas pera ai, "mostrar form2"? Mas nem criamos o form2! Sim, isto é o que veremos no próximo tutorial O código final ficou assim: Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form1 Public c As Client Public p As Player Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For Each cl In Client.GetClients ComboBox1.Items.Add(cl) Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() End Sub End Class [/code] Seu form2 ficara sublinhado com erro pois ainda não existe. Aguarde. Até mais guys!

A dica que eu passo é a seguinte: Sempre que precisar do ID de determinado item, mate alguns monstros até que drope o mesmo, feito isso, estando com o Tibia Bot NG aberto. Segure Shift + Esc e clique com o botão esquerdo do mouse (botão comum) em cima do item, o ID irá aparecer logo acima da barra de cooldown.

Entao gente, como eu estou comecando VB.Net tou fazendo uns codigos leves mas bem uteis Ai vou posta um Cap Alert pra vcs Vamos prescisar de um Timer, CheckBox, Text Box No timer coloque isso No checkbox vc poe isso e no textbox vc coloca a cap pra alerta exemplo 40 se o char tiver com uma cap 40 ou menor o bot apita Traduzindo para noiz se a cap do char menor ou igual a que esta escrita no text box, o bot vai toca uma musiquinha legal OBS: Se gostaram Rep++

Beleza Felipe! Qualquer coisa mensagem ae...

No chekbox If text1.text="" then MenssageBox.show("Desculpe, mas você tem que preencher todos os campos.") chekbox1.cheked=false End if Pronto só isso. Não sei se a sintaxe está certa por que não estou com o VB aqui, mas a lógica é simples e é essa. Se ele clicar no checkbox e não estiver preenchido a caixa de texto mostra a mensagem de erro e volta o valor do chk para falso.

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

af cara, check box serve pra ativar e desativar algo, por exemplo um timer ou light poe um botão que funfa no checkbox voce vai ativar e vai ficar skull mas ae vc desativa e continua bota ssim If checkbox1.checked then p.Skull = Skull.Black else p.Skull = Skull.None End if ai vc ativa/desativa

Cara, você pois em uma condição... Vou resumir o que você colocou acima: Se o titulo do meu programa for "LaFirmaBot [ +p.mana + "] - Edson Junior, então p será c.GetPlayer e esconder form1. Tente por: Then significa então, e só será colocado sempre(ou na maioria das vezes) no final de um If