weslen

Funcionou Valeus...

Apenas da Form1 Certo. Bom tentei abri o jogo foi tudo certo mas quando seleciono o Personagem e aperto para abri o Bot da esse erro. Obs: Estou abrindo com um Tibia certo versão 8.62

Oks irei postar. Bom esta ai fiz o Upload no MegaUpload. Download Retirado

Bom quando instalei o Visual Basic nao sei se instalo mais vi um treco na instalaçao do Visual Basic Net Framework 3.5 ... Visual Basic 2008 Express Edition

Quando abri o BOT.

Outro erro kkkkkkkk O meu Bot nao quer abrir affs Ta de sacanagem neh =/

Obrigado Valeus Kimoszin Conseguir

Não to conseguindo... Se eu postar o Codigo do meu projeto inteiro aqui se ajeita pra mim ? Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form2 Public c As Client Dim levelspy As Integer = p.Location.Z Public p As Player End Sub End Class Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load c = Form1.ComboBox1.SelectedItem If c.LoggedIn Then p = c.GetPlayer Form1.Hide() Else Me.Hide() MsgBox("Você precisa escolher o seu personagem.") End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click c.Map.FullLightOn() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click c.Map.FullLightOff() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If ComboBox1.SelectedItem = "Beggar" Then p.OutfitType = Tibia.Constants.OutfitType.BeggarMale ElseIf ComboBox1.SelectedItem = "Assassin" Then p.OutfitType = Tibia.Constants.OutfitType.AssassinMale End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If levelspy = 14 Then Else c.Map.LevelSpyOn(levelspy + 1) levelspy = levelspy + 1 End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click If levelspy = 0 Or levelspy = 7 Then Else c.Map.LevelSpyOn(levelspy - 1) levelspy = levelspy - 1 End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) c.Map.LevelSpyOff() levelspy = levelspy End Sub Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click c.Map.LevelSpyOff() levelspy = levelspy End Sub Private Sub TimerDance_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerDance.Tick Dim min As Integer = NumericUpDown1.Value TimerDance.Interval = min * 60000 p.Turn(Direction.Up) p.Turn(Direction.Up) p.Turn(Direction.Down) p.Turn(Direction.Down) p.Turn(Direction.Left) p.Turn(Direction.Left) p.Turn(Direction.Right) p.Turn(Direction.Right) End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then TimerDance.Start() NumericUpDown1.Enabled = False Else TimerDance.Stop() NumericUpDown1.Enabled = True End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If c.LoggedIn Then If p.Mana > TextBox2.Text Then c.Console.Say(TextBox1.Text) End If End If End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged If CheckBox1.Checked Then Timer1.Start() Else Timer1.Stop() End If End Sub Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged If CheckBox3.Checked Then Timer2.Interval = 30000 Timer2.Start() Else Timer2.Stop() End If End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick If c.LoggedIn Then For Each id As Item In c.Inventory.GetItems If id.Id = Constants.Items.Food.Apple.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Banana.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Blueberry.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Carrot.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Cheese.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Cherry.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.BrownMushroom.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Coconut.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Corncob.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.DragonHam.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Egg.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Fish.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Grapes.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.GreenMushroom.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Ham.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Meat.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Mellon.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Orange.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Roll.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Salmon.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.WhiteMushroom.Id Then id.UseOnSelf() End If Next End If End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click p.Addon = Tibia.Constants.OutfitAddon.Both End Sub

Bom agora apareceu novos Erros. Olha:

Poderia postar mais ou menos como ficaria ? nao conseguir aqui

Bom gente estava criando meu Bot no Visual Basic, vendo huns tutorial bom para eu poder acrescentar umas utilidades no meu Bot. Quando derepente aconteceu isso com as Declaraçoes.