Cara mil perdão, cara foi mancada minha, estava utilizando uma versão antiga do TibiaAPI, agora deu certo *-*

desculpe qualquer coisa, um abraço.

P.S: ta dando erro o executável, tipo o código e a compilação sai sem erro, mas quando executo apareceu um erro de form, tanto no windows xp quanto no windows 7 x64, será que o TibiaAPI ta com bug? usei ele pra fazer um MC e Tibia Luz (Light) e da certo, só no spy da esse ERRO.

versão do TibiaAPI que estou usando é o 2.9.9.0 e o próprio site diz que é pra Tibia 8.71

alguém já teve esse erro? era no source ou no dll?

Poste o código que vc esta usando para analizarmos!

Oi, Augusto, estou fazendo assim no VB.NET 2010 usando o .net 3.5 para compilar e o mesmo erro tbm está ocorrendo no VB 2008 com TibiaAPI 2.9.9 vejamos:

Imports Tibia

Imports Tibia.Objects

Imports Tibia.Objects.Map


Public Class Form1

    Public c As Client

    Public p As Player


    Dim levelspy As Integer = p.Location.Z



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If levelspy = 14 Then

        Else

            c.Map.LevelSpyOn(levelspy + 1)

            levelspy = levelspy + 1

        End If



    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If levelspy = 0 Or levelspy = 7 Then

        Else

            c.Map.LevelSpyOn(levelspy - 1)

            levelspy = levelspy - 1

        End If



    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        c.Map.LevelSpyOff()

        levelspy = levelspy



    End Sub

End Class

Dou build e não ocorre o erro, mas ao apertar F5 da esse erro aqui "Erro ao criar o Formulário. consulte Exception.InnerExcption para obter detalhes. O erro é: Refêrencia de objeto não definida para uma instância de objeto.

em WindowsApplication1.My.MyProject.MyForms.Create__Instance__[T](T Instance) na 17d14f5c-a337-4978-8281-53493378c1071.vb:linha 190

em WindowsApplication1.My.MyProject.MyForms.get_Form1()

em WindowsApplication1.My.MyApplication.OnCreateMainForm() na E:\vb\tibiatools\tibiatools\My Project\Application.Designer.vb:linha 35

em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()

em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()

em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)

em WindowsApplication1.My.MyApplication.Main(String[] Args) na 17d14f5c-a337-4978-8281-53493378c1071.vb:linha 81

em System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)

em System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)

em Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()

em System.Threading.ThreadHelper.ThreadStart_Context(Object state)

em System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)

em System.Threading.ThreadHelper.ThreadStart()

abraços

[]'s

Isso esta acontecendo porque vc não atribuiu valores as váriaveis c e p respectivamente client e player.

Se c esta nulo, ele irá dar este erro, pois não tem valor a ele, assim como em p.

Imports Tibia 

Imports Tibia.Objects 

Imports Tibia.Objects.Map 


Public Class Form1 

    Public c As Client 

    Public p As Player 


    Dim levelspy As Integer = p.Location.Z 



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

        c = ClientChooser.ShowBox

        If c.LoggedIn Then 

            player = c.GetPlayer 

        Else 


        End If 

    End Sub 


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

        If levelspy = 14 Then 

        Else 

            c.Map.LevelSpyOn(levelspy + 1) 

            levelspy = levelspy + 1 

        End If 



    End Sub 


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 

        If levelspy = 0 Or levelspy = 7 Then 

        Else 

            c.Map.LevelSpyOn(levelspy - 1) 

            levelspy = levelspy - 1 

        End If 



    End Sub 


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 

        c.Map.LevelSpyOff() 

        levelspy = levelspy 



    End Sub 

End Class

Veja no Load do Form!

Caso não de certo (fiz o cod no bloco de notas e não testei =/) aqui tem o tutorial do Julio ensinando a fazer isso

Link

Teste e dps nos fale!

PS: A API pode não funcionar em sistemas x64.

Editado Março 2, 2011 14 anos por Augusto (veja o histórico de edições)

Rapaz, o negocio está complicado, eu tentei de tudo quanto é jeito, encontrei alguns esquemas na net e não da certo, o erro é esse Dim levelspy As Integer = p.Location.Z

pois aperto F8 e ele fica grifado de amarelo, mas o maldito programa não da nenhuma dica ¬¬

Como eu posso instanciar o maldito objeto?

Não existe outra forma de fazer esse level spy? todos os exemplos do site do TibiaAPI, não existe level spy, se não conseguir, vou partir pro C# pelo menos a maioria dos exemplos e bot estão nessa linguagem =/