
yurinho190
Membro
-
Registro em
-
Última visita
Histórico de Curtidas
-
yurinho190 deu reputação a Kimoszin em Erro AttackerVocê não definiu o client, ali está dando Nothing.
-
yurinho190 deu reputação a Kimoszin em Duvida simulação de mouseEu 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.
-
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.
-
yurinho190 deu reputação a Kimoszin em Ajuda com HealerEntã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
-
yurinho190 deu reputação a Augusto em AJUDA Criação de BotImports 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
-
yurinho190 deu reputação a Kimoszin em AJUDA Criação de BotTest Bot.rar
-
yurinho190 deu reputação a Kimoszin em AJUDA Criação de BotImports 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