Pessoal então, eu estou desenvolvendo um BOT e tipo, ele tem cerca de 11 Forms! No Form principal, quando você clica abre os outros e assim por diante...

Então, eu coloquei em um Form o Heal... E eu fui testar, e quando coloquei tudo e fui testar da um erro neste local:

If c.LoggedIn Then

E em todos os forms eu coloquei o seguinte:

Imports Tibia

Imports Tibia.Util

Imports Tibia.Objects

Imports Tibia.Constants

Public Class O FORM...

    Dim c As Client

    Dim p As Player

Não sei o que pode ser...

Quando acontecer um erro, EXPLIQUE QUAL O ERRO.

Loggedin deve ser uma propriedade de c. If é uma função que compara termos, e você não esta comparando loggedin com nada. Provavelmente c.loggedin deve retornar um valor (provavelmente true, se for booleano).

Antes de tentar programar um bot, procure entender a linguagem, procure alguma apostila para não cometer erros tão pequenos que deveriam ser sanados no primeiro capítulo de qualquer livro/apostila. Se não, quando estiver com seu programa pronto, poderão surgir problemas com usuários,e você não vai conseguir resolver.

Cara posta o código inteiro inclusive o do botão que faz a ligação dos forms...

Provavelmente deve ser no botão ou no nome dos forms.

Coloca o erro também...

Flamer, agradeço tentar ajudar, mas quando for explicar algo pra um iniciante, nunca use linguajar de 'programador' como boolean, retornar valor, etc. Só vai piorar a situação.

Tente explicar de um modo que ele entenda e/ou ao falar algo desconhecido explicar como funciona.

Abraços, e rep+ pela força.

Form1: - Form onde há todas as imagens...

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

        c = ClientChooser.ShowBox

        If c.LoggedIn Then

            p = c.GetPlayer

        Else

            Me.Hide()

            MsgBox("Desculpe, mas você prescisa escolher seu personagem!")

        End If

    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

        Form2.Show()

    End Sub


    Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

        Form3.Show()

    End Sub


    Private Sub GroupBox4_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox4.Enter

        Form4.Show()

    End Sub


    Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox3.Enter

        Form5.Show()

    End Sub


    Private Sub GroupBox6_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox6.Enter

        Form6.Show()

    End Sub


    Private Sub GroupBox5_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox5.Enter

        Form7.Show()

    End Sub


    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click

        Form2.Show()

    End Sub


    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

        Form2.Show()

    End Sub


    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

        Form2.Show()

    End Sub


    Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click

        Form3.Show()

    End Sub


    Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click

        Form3.Show()

    End Sub


    Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click

        Form3.Show()

    End Sub


    Private Sub PictureBox10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox10.Click

        Form4.Show()

    End Sub


    Private Sub PictureBox12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox12.Click

        Form4.Show()

    End Sub


    Private Sub PictureBox11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox11.Click

        Form4.Show()

    End Sub


    Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click

        Form5.Show()

    End Sub


    Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click

        Form5.Show()

    End Sub


    Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click

        Form5.Show()

    End Sub


    Private Sub PictureBox16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox16.Click

        Form6.Show()

    End Sub


    Private Sub PictureBox18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox18.Click

        Form6.Show()

    End Sub


    Private Sub PictureBox17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox17.Click

        Form6.Show()

    End Sub


    Private Sub PictureBox15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox15.Click

        Form7.Show()

    End Sub


    Private Sub PictureBox13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox13.Click

        Form7.Show()

    End Sub


    Private Sub PictureBox14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox14.Click

        Form7.Show()

    End Sub


    Private Sub ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click

        End

    End Sub


    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click

        Form8.Show()

    End Sub


    Private Sub Desenvolvedores_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Desenvolvedores.Click

        Form9.Show()

    End Sub


    Private Sub Parceiros_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Parceiros.Click

        Form10.Show()

    End Sub

End Class

Form2: - Heal..

Imports Tibia

Imports Tibia.Util

Imports Tibia.Objects

Imports Tibia.Constants

Public Class Form2

    Dim c As Client

    Dim p As Player

    Private Sub SpellHealer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpellHealer.Tick

        If c.LoggedIn Then

            If p.Health < TextBox1.Text Then

                If p.Mana > TextBox2.Text Then

                    c.Console.Say(TextBox3.Text)

                End If

            End If

        End If

    End Sub


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

        SpellHealer.Interval = 1500

        SpellHealer.Start()

    End Sub


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

        SpellHealer.Stop()

    End Sub


    Private Sub PotionHealer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PotionHealer.Tick

        If c.LoggedIn Then

            If p.Health < TextBox4.Text Then

                For Each i As Item In c.Inventory.GetItems

                    If i.Id = TextBox5.Text Then

                        i.UseOnSelf()

                    End If

                Next

            End If

        End If

    End Sub


    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If TextBox4.Text = "" Then

            MessageBox.Show("Desculpe, mas você tem que preencher todos os campos.")

            CheckBox1.Checked = False

        End If


        If CheckBox1.Checked Then

            PotionHealer.Start()

        Else

            PotionHealer.Stop()

        End If

    End Sub


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

        Form11.Show()

    End Sub

End Class

Editado Janeiro 14, 2011 14 anos por Felipe Sartori (veja o histórico de edições)