iasbik

malz reviver o topico.. mas nao to conseguindo botar essa parada pra rodar.. se puderem me ajudar.. segui os passos direitinho.. rodo e nao acontece nada segue code abaixo Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick For Each amigosio As Creature In c.BattleList.GetCreatures() If amigosio.Name = TextBox7.Text Then If amigosio.HPBar <= NumericUpDown1.Value.ToString Then c.Console.Say("Exura Sio " & "Label9.Text" & amigosio.Name) End If End If Next End Sub Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged If CheckBox5.Checked Then Timer5.Start() Else Timer5.Stop() End If End Sub

falta alguns detalhes ainda.. target, loot, load.. mas ainda nao peguei pra quebrar a cabeça nisso.. se alguem puder ajudar agradeço

as funções que tem ja estão todas funcionando..

olá.. atualizei o tópico la em cima.. dei uma melhorada no bot, coloquei um inicio do cavebot e opção pra usar potions.. proxima semana vou quebrar a cabeça pra finalizar e deixar ele no jeito.. valeu

consegui resolver o meu problema.. tinha esquecido de comunicar com a form1 essa form3.. valeu

Desculpe reabrir o tópico, mas to apanhando pra fazer esse walker rodar.. seguinte. criei um form1, o qual pega o nome do char pra abrir o bot depois abre o form2.. ae nesse form2 tem um button que abre o form3 esse form3 coloquei o codigo do walk, mas nao ta funcionando.. qndo rodo pelo vb, da o erro marcado em amarelo na imagem anexada abaixo.. vo deixar o codigo do form3.. se puderem ver pra achar o erro.. enquanto isso vou quebrando a cabeça aqui, mas ja to agarrado nisso há tempos.. no aguardo valeu Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form3 Dim c As Client Dim p As Player Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim loc As Tibia.Objects.Location loc.X = p.Location.X loc.Y = p.Location.Y loc.Z = p.Location.Z ListBox1.Items.Add(loc.X & "," & loc.Y & "," & loc.Z) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Enabled = True End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Timer1.Enabled = False End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim myArray() As String = ListBox1.SelectedItem.ToString().Split(",") 'separa os items do ListBox1 If p.IsWalking = False Then 'verifica se o player esta andando c.GetPlayer.GoTo = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2))) 'manda o player para essa posição If p.Location = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2))) Then 'se a posição do player for a que está seleciona no listbox If ListBox1.SelectedIndex >= (ListBox1.Items.Count - 1) Then 'se listbox estiver no fim ListBox1.SelectedIndex = 0 'ira mandar selecionar o primeiro item, fazendo assim um loop Else ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1 'se não estiver no fim, irá pular para o próximo item da lista End If End If End If End Sub End Class

po, desculpa mas nao entendi mto bem a parada.. tem como botar mais claramente a ideia?

po, nao é virus nao.. de boa.. fiz um botzin simples mesmo.. vou mandar um print dele ae.. a ideia é ter ajuda ae pra melhorar o bot e botar funções de cavebot e outras

Opa, andei olhando uns tutos por ai e criei um botzinho na ultima noite no VB. nao sei se to postando no tópico certo, mas segue ae o link pra download: http://www.4shared.c...NDABOT-971.html só instalar e testar.. versão 9.71 do client ae tava querendo uma ajuda ae pra incrementar a parada.. botar cavebot, hunt.. etc se puderem me ajudar, entrem em contato valeu -------------------------------------------------------------------------------------------------------------------------- ATUALIZADO mais uma noite trabalhando e dei uma incrementada a mais no bot.. alterei as imagens pra ver o que ja tem anexado o bot no tópico sugestoes ou criticas só falar.. na proxima semana vou quebrar a cabeça mais pra tentar deixar o bot completo obs.: todas as funções ja estão funcionando.. o potion healer e mana não precisa digitar o id.. tem os nomes dos potions pra selecionar PANDABOT-971-v2.rar