AJUDA Criação de Bot

[yurinho190 0]

To usando a Tibia API atualizada pra 9.81, o VB não apresenta nenhum erro de códigos mas o meu Client Chooser não funciona, já pesquisei, vi outros tópicos mas o nome do char não aparece na ComboBox. Algum expert me ajuda por favor?

Meu código no Momento tá assim (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

[Kimoszin 1160]

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

[yurinho190 0]

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

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

Desculpe, não entendi o que vc fez aí, poderia explicar?

[Kimoszin 1160]

Você não usou a variavel que você setou, usou o Client normal, você tinha que ter usado "c".

[yurinho190 0]

Você não usou a variavel que você setou, usou o Client normal, você tinha que ter usado "c".

Kimos, obrigado por estar tentando ajudar mas ja alterei varias coisas aqui dentro do meu entendimento e o nome do char continua sem aparecer no combobox.

como já tentei de tudo, só me resta pedir mais assistencia ou que vc me dê essa parte do código já pronta. agradeço.

[Kimoszin 1160]

Você foi no combobox e viu se o nome está lá?

[yurinho190 0]

Você foi no combobox e viu se o nome está lá?

sim eu apertei F5 pra testar o bot e não aparece o nome do char

[Kimoszin 1160]

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


	    If (ComboBox1.Items.Count > 0) Then

		    ComboBox1.SelectedIndex = 0

	    End If

    End Sub

End Class

[yurinho190 0]

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


	 If (ComboBox1.Items.Count > 0) Then

		 ComboBox1.SelectedIndex = 0

	 End If

End Sub

End Class

MEU DEUS do céu o que tá acontecendp que só eu não consigo fazer isso?? coloco o código certinho e não vai!

quem puder ajudar eu dou +Rep

Editado Janeiro 2, 2013 por yurinho190 (veja o histórico de edições)

[Kimoszin 1160]

Test Bot.rar

[yurinho190 0]

sem resultados. eu to començando a achar que o problema é que ele não "acha" o client aberto ou algo assim. pode ser um bug nessa API atualizada tbm

ou talvez tivesse uma forma de abrir sem escolher o client?

Editado Janeiro 2, 2013 por yurinho190 (veja o histórico de edições)

[Kimoszin 1160]

Aqui ta normal cara. Não sei oque está acontecendo.

[yurinho190 0]

poxa se outros pudessem ajudar tbm né :/ só o kimoszin

[Augusto 660]

vc desabilitou o ASLR?

[yurinho190 0]

vc desabilitou o ASLR?

http://tibiaking.com...date-windows-7/

sim foi a primeira coisa q fiz uso win7 de 64 bits

eu tenho que testar o bot depois de estar logado no tibia certo?

Editado Janeiro 2, 2013 por yurinho190 (veja o histórico de edições)

[Kimoszin 1160]

Hm, talvez você precise recompilar a DLL pra usar no 64 bits...

[yurinho190 0]

Hm, talvez você precise recompilar a DLL pra usar no 64 bits...

O.o como faço isso?

[Augusto 660]

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

[yurinho190 0]

Dei +Rep pros dois só por estarem se esforçando pra me ajuda!

E continua o Mistériooo

pq não quer pegar essa droga? O.o

Editado Janeiro 2, 2013 por yurinho190 (veja o histórico de edições)

[Augusto 660]

Cara, eu odeio o VB, e pelo VB não consegui também, ja pelo C#, utilizei um antigo projeto meu, trocando apenas a DLL do TibiaAPI e funcionou normal

Se quiser o projeto antigo ->