Ir para conteúdo
  • Cadastre-se

Posts Recomendados

Pessoal, preciso muito da ajuda de vocês!

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

c = Form1.ComboBox1.SelectedItem

If c.LoggedIn Then

p = c.GetPlayer

Form1.Hide()

Else

Me.Hide()

MsgBox("You need choose your character")

End If

End Sub

Não vai ali, não sei pq!

Atenciosamente

Felipe Sartori - Portal Bot

Link para o post
Compartilhar em outros sites

Então agora não estou conseguindo colocar Heal! Isto eu arrumei, eu tinha outro bot aqui e arrumei...

Quando eu coloco a magia e o tanto de HEAL que eu quero da um erro aqui:

If p.Health <= TextBoxDoHp.Text Then

c.Console.Say(TextBoxDoSpell.Text)

End If

Acima está:

Dim c As Client

Dim p As Player

Atenciosamente

Felipe Sartori - Portal Bot

Link para o post
Compartilhar em outros sites

Então cara, o meu Timer está assim:

        If p.Health <= TextBoxDoHp.Text Then

            c.Console.Say(TextBoxDoSpell.Text)

        End If
E o CheckBox assim:
If Checkbox1.Checked Then

TimerDoHeal.Start()

Else

TImerDoHeal.Stop()

End If

Atenciosamente

Felipe Sartori - Portal Bot

Link para o post
Compartilhar em outros sites

Felipe

TextBoxDoHp

poe oo nome do Box assim

aqui tbm estava com esse erro

so renomeei ai presto

Hunger - BBot Staff
corinthiansqj6.gif
Link para o post
Compartilhar em outros sites

Felipe você declarou p e c nas variáveis publicas do seu form?

Aqui o link que pode te ajudar com essa declaração correta:

Leia tudo, não vá só atrás dos códigos vá atrás de informações básicas de programação.

Posta ai se resolveu ou se não pra gente tentar ajudar...

Posta seu código inteiro ai também que ajuda bastante...

Meus Tutoriais:

Montarias

Link para o post
Compartilhar em outros sites

Eu quero apenas ajuda nisso:

        If c.LoggedIn Then

            If p.Mana < TextBox26.Text Then

                For Each i As Item In c.Inventory.GetItems

                    If i.Id = TextBox25.Text Then

                        i.UseOnSelf()

                    End If

                Next

            End If

        End If

Mas não funciona o "p.Mana" não heala nada...

Atenciosamente

Felipe Sartori - Portal Bot

Link para o post
Compartilhar em outros sites

Então, quando eu coloco tudo no BOT pronto, fica com erro aqui:

            If p.Health < TextBox16.Text Then

Da erro no outro quando eu ponho no Mana da erro no Health! Só que o Health está normal...

Atenciosamente

Felipe Sartori - Portal Bot

Link para o post
Compartilhar em outros sites

Cara tenta colocar assim...

If p.Health < Val(TextBox16.Text) Then

Ai ele vai pegar o valor numérico que tem na caixa de texto 16.

Faça isso com o mana também.

Meus Tutoriais:

Montarias

Link para o post
Compartilhar em outros sites

Cara eu coloquei, no erro fala assim..

"Conversion from string "" to type 'Double' is not valid."

Não sei o que é :(!

Atenciosamente

Felipe Sartori - Portal Bot

Link para o post
Compartilhar em outros sites

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo