Felipe Sartori

Cara, com o tempo irei aprendendo... Já consegui aprender algumas coisas com os códigos, eu vejo e refaço para ver se aprendi.

Obrigado! Agora está funcionando e arrumei... Agora outra dúvida neste código como eu posso arrumar para curar mana? Private Sub ItemHealer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ItemHealer.Tick If client.LoggedIn Then If player.Mana < TextBox4.Text Then For Each i As Item In client.Inventory.GetItems If i.Id = TextBox5.Text Then i.UseOnSelf() End If Next End If End If End Sub Está "If player.Mana" mas não funciona" Já troquei o TextBox...

Eu uso este código e funciona perfeitamente! Ele busca na bolsa sim!

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load c = clientchooser.showbox c = Form1.ComboBox1.SelectedItem If c.LoggedIn Then p = c.GetPlayer Form1.Hide() Else Me.Hide() MsgBox("You need choose your character") End If End Sub este é o código!

Cara, o pior que nem com o char logado não abre! Não sei o que eu posso fazer... Eu quero testar as coisas...

Como assim? Eu sei que eu fui em "Add Reference" -> "Browser" e fiz o upload dela... Mas não funciona!

If c.LoggedIn Then Novamente este erro, quando estava com este erro, não lembro o que resolvi! Me falaram que era para mim abrir o Tibia mas mesmo assim não funciona... Espero resposta!

Pessoal, vocês precisaram apenas de um CheckBox! Após adicionar no CheckBox, adicione dentro: Dim Food3 As Tibia.Objects.Item = c.Inventory.GetItemInSlot(Tibia.Constants.SlotNumber.Ammo) If Food3 IsNot Nothing AndAlso Tibia.Constants.ItemLists.Foods.ContainsKey(Food3.Id) Then c.Inventory.GetItemInSlot(Tibia.Constants.SlotNumber.Ammo).Use() End If Prontinho! Auto-Eat adicionado no seu bot... Créditos: Puncker

Opa cara! Obrigado por compartilhar, adicionado no meu BOT!

Cara, não consigo arrumar! Novamente deu o erro do: If c.LoggedIn Then

Próxima atualização terá mais funções e será versão 8.70. Provavelmente iremos modificar o layout todinho... Deixar mais agradável! Gostei que vocês estão me apoiando!

Eu coloquei mas não funcionou!

Aonde posso encontrar o TibiaApi 8.70? Irei atualizar assim que encontrar...

Olá pessoal, hoje vou postar para vocês o novo P3 BOT. O P3 BOT foi desenvolvido por colegas de um condomínio em Campinas - SP. O BOT passou por modificações e modificações até o resultado que está hoje... Toda semana haverá atualização, este será o tópico OFICIAL. O BOT: Light Hack Anti Idle Auto Eat Multi Client Outfit Rack Cure Poison Cure Paralyse Auto Utamo Auto Haste Healer - Magias Skull Healer - Mana (Potion) Healer - Life (Potion) Mana Train Heal Friend Health Alert - Novos Update Próxima versão todos os alertas serão adicionados... No momento estamos sem imagens do BOT. Assim que alguém puder se possível poste as para mim! Scan: (0/43) - Limpo! Requerimentos: .NET Framework 3.5 P3 BOT - 8.62.rar P3 BOT - 8.70.rar

Gui, passa msn? Então agora acabei de fazer o instalador, jajá posto!

Obrigado pela ajuda, vocês estão me ajudando bastante! Abraços. RESOLVIDO!

Então consegui arrumar, agora me falem uma coisa... Quando eu passar para download para o pessoal baixar como eu passo? Por que eu tenho que colocar dentro da pasta o Tibia Api se não nao funfa... Abraços.

Double post mas, eu tentei instalar o 4.0 e não funcionou! Por favor, alguém me ajude...

Pronto Renato, funcionou perfeitamente! Era um erro meu, eu não coloquei o código no Check para Ligar/Desligar... Abraços.

Cara, será que você pode reformular para mim o código, iniciei ontem não vou saber arrumar e irei acabar bagunçando mais.. Obrigado! Quando eu aperto F5 para vizualizar não da erro!

Desculpe, estava no banho! Quando eu injeto novamente o Tibiaapi da erro fala que já tem... Form1 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

Pessoal, eu já compilei tudo e quando vou abrir olha o erro que dá.... Urgente preciso da ajuda de vocês.... Abraços.

O meu com o Tibia aberto não funciona!

O meu está com o mesmo erro! Não consigo arrumar.

Pessoal, fui compilar e começou a dar muitoos erros... E não sei o que eu posso fazer... 31.bmp 321.bmp