Ir para conteúdo

yurinho190

Membro
  • Registro em

  • Última visita

Histórico de Curtidas

  1. Gostei
    yurinho190 deu reputação a Kimoszin em Erro Attacker   
    Você não definiu o client, ali está dando Nothing.
  2. Gostei
    yurinho190 deu reputação a Kimoszin em Duvida simulação de mouse   
    Eu acho que você vai ter que usar o GUI Pointer do Tibia.
    O GUI é um endereço de memoria que você adicionar Offsets e então, você vai ter o endereço de varias coisas, como a largura da tela, converter XYZ para XY do monitor e etc.
    Você também vai ter que aprender a ler o Mapa do Tibia.
  3. Gostei
    yurinho190 recebeu reputação de Laastzn em [DUVIDAS] Criações !   
    mano attacker tem sim aki no fórum, pode procurar! e o sistema de Norte Sul Leste Oeste é vc add um domainupdown com esses textos, 2 labels com texto inicial 0 e coloca um timer pra quando o texto selecionado for "Sul" o texto da label se alterar pra 1 e caso "Norte" pra -1 e coloca no botão de Add waypoint: loc.Y = p.Location.Y + Label1.Text
    o resto vc descobre, aliás ja q te ajudei, me da +rep

    sobre a foto:
    No form que aparece essa mensagem provavelmente estpa escrito assim:
    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    c = ClientChooser.ShowBox()
    p = c.GetPlayer()

    é só apagar q a mensagem vai parar de aparecer.

    só to te ajudando pq eu comecei igual vc e a galera aqui é muito gente boa e me ajudou muito, principalmente o Kimoszin e o Augusto.
  4. Gostei
    yurinho190 deu reputação a Kimoszin em Ajuda com Healer   
    Então, foi como eu disse.
    Você só declarou as variaveis, você precisa informar que o p levou o valor do player.

    Como isso:

    Imports Tibia.Objects Imports Tibia.Util Private p As Player Private c As Client Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load c = ClientChooser.ShowBox() p = c.GetPlayer() End Sub
  5. Gostei
    yurinho190 deu reputação a Augusto em AJUDA Criação de Bot   
    Imports Tibia.Objects Public Class Form1 Private player As Player Private client As Client Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim processo As Process() = Process.GetProcessesByName("tibia") If processo.Length > 0 Then client = ClientChooser.ShowBox() If client IsNot Nothing Then If client.LoggedIn Then player = client.GetPlayer() Else MessageBox.Show("Nenhum char logado!", "Nenhum char logado!", MessageBoxButtons.OK, MessageBoxIcon.[Error]) Environment.[Exit](0) End If Else MessageBox.Show("Nenhum char logado!", "Nenhum char logado!", MessageBoxButtons.OK, MessageBoxIcon.[Error]) Environment.[Exit](0) End If Else MessageBox.Show("Tibia não esta aberto!", "Tibia não encontrado!", MessageBoxButtons.OK, MessageBoxIcon.[Error]) Environment.[Exit](0) End If End Sub End Class
  6. Gostei
    yurinho190 deu reputação a Kimoszin em AJUDA Criação de Bot   
    Test Bot.rar
  7. Gostei
    yurinho190 deu reputação a Kimoszin em AJUDA Criação de Bot   
    Imports Tibia.Objects Public Class Form1 Private player As Player Private client As Client 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 End Class

Informação Importante

Confirmação de Termo