Rick Martin 3 Postado Janeiro 23, 2011 Share Postado Janeiro 23, 2011 olá gente. estou com 1 piqueno grande problema. eu começei a programar 1 bot com o tibiaapi e tudo ja peguei a noção de algumas coisas como tirar paralize com exura botar war icon black skull etc... coisas basicas e estudei 1 pouco de timer tb. porem eu tentei criar 1 healer simples de magias. porem ele nao funfa. o codigo que eu usei segue a baixo print mostrando como ta as configurações do timer : aparentemente nao achei nenhum erro no codigo que é este: Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form1 Dim c As Client Dim p As Player Private Sub Timerspell_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timerspell.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 CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then Timerspell.Start() Else Timerspell.Stop() End If End Sub End Class quando eu o abro simplesmente o bot trava a principio achei que era o interval do timer mais nao é ;s alguem me ajuda plx ? *-* Citar Link para o post Compartilhar em outros sites
Ink 12 Postado Janeiro 23, 2011 Share Postado Janeiro 23, 2011 Coloque o Intervalo do timer para 100. O Timer do VB trabalha com MiliSegundos, no seu está configurado para 2 segundos(2 mil milisegundos) E certifique-se que as caixas de texto estão sendo preenchidas corretamente, ponha nomes nelas (txtspell e etc) para facilitar a visualização de erros. Posta o resultado. Citar Meus Tutoriais: Montarias Link para o post Compartilhar em outros sites
Flamer 115 Postado Janeiro 23, 2011 Share Postado Janeiro 23, 2011 Não sei quanto a função de "Start e Stop" de timers, mas acho que o ideal seria você usar "TimerSpell.Enabled = True" ou "TimerSpell.Enabled = False" . Citar Link para o post Compartilhar em outros sites
Rick Martin 3 Postado Janeiro 23, 2011 Autor Share Postado Janeiro 23, 2011 tentei as duas maneiras que vocês postaram mudando o interval para 100 ai que ele trava mais ainda 0.0' e flamer subistitui as linhas que vs disse mais continua travando verifique se eu subistitui corretamente. Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form1 Dim c As Client Dim p As Player Private Sub Timerspell_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timerspell.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 CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then TimerSpell.Enabled = True Else TimerSpell.Enabled = False End If End Sub End Class e os textbox estão todos corretos. :s obrigado desde já Citar Link para o post Compartilhar em outros sites
Ink 12 Postado Janeiro 23, 2011 Share Postado Janeiro 23, 2011 Vi aonde você está errando. If CheckBox1.Checked Then TimerSpell.Enabled = True Else TimerSpell.Enabled = False End If Coloque assim no seu código. [b]If CheckBox1.Checked=True[/b] Then TimerSpell.Enabled = True Else TimerSpell.Enabled = False End If Você deve especificar para o VB qual é o valor do checkbox, verdadeiro ou falso. Isso deve resolver Citar Meus Tutoriais: Montarias Link para o post Compartilhar em outros sites
Rick Martin 3 Postado Janeiro 23, 2011 Autor Share Postado Janeiro 23, 2011 obrigado agr estou com mto sono para testar ;s amanha cedo testo e edito esse post falando se funcionou obrigado =D mais acho que agr vai ... n é possivel D: Citar Link para o post Compartilhar em outros sites
Augusto 660 Postado Janeiro 23, 2011 Share Postado Janeiro 23, 2011 Ele esta dentro de outro form ou no form principal? se estiver, procure retirar a seguinte linha "If c.LoggedIn Then" caso ele esteja no mesmo form, adicione a linha referente ao seu loader, que ficaria assim como EXEMPLO: c = Form1.ComboBox1.SelectedItem If c.LoggedIn Then Citar # Regras Gerais - TibiaKing.com # Contato: [email protected]Não respondo dúvidas via MP. Link para o post Compartilhar em outros sites
Rick Martin 3 Postado Janeiro 23, 2011 Autor Share Postado Janeiro 23, 2011 augusto ele está em 1 terceir o form esse codigos esta form1 pq eu refiz o projeto na mao pra ver se achava o erro mais no projeto original está assim form1 = loader form2 = tela principal / button 2 = form3.show() form3 = healer e ai oque eu coloco no codigo ? D: Citar Link para o post Compartilhar em outros sites
Augusto 660 Postado Janeiro 23, 2011 Share Postado Janeiro 23, 2011 Vou explicar, e vamos ver se eu entendi o seu projeto. Form1 - onde vc escolhe o player na lista! Form2 - Bot Propriamente dito! Form3 - Healer - onde deve ficar o código que vc postou! Tente retirar o "If c.LoggedIn Then" do timer, e o adicione na checagem do checkbox. Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form1 Dim c As Client Dim p As Player Private Sub Timerspell_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timerspell.Tick 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 CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If c.LoggedIn Then If CheckBox1.Checked Then Timerspell.Start() Else Timerspell.Stop() End If End If End Sub End Class Veja se da certo! Citar # Regras Gerais - TibiaKing.com # Contato: [email protected]Não respondo dúvidas via MP. Link para o post Compartilhar em outros sites
Rick Martin 3 Postado Janeiro 23, 2011 Autor Share Postado Janeiro 23, 2011 aqui funcionou com o codigo que vs postou porem vs cometeu 1 leve erro sem ofenças quando se abre 1 if , se fecha com end if portanto : Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If c.LoggedIn Then If CheckBox1.Checked Then Timerspell.Start() Else Timerspell.Stop() End If End If End Sub End Class AKI funcionou assim obrigado a todos pela ajuda . duvida sanada (: Citar Link para o post Compartilhar em outros sites
Augusto 660 Postado Janeiro 23, 2011 Share Postado Janeiro 23, 2011 Esqueci mesmo ushUAHauhaush é que eu estava fazendo de cabeça Arrumado o código! Citar # Regras Gerais - TibiaKing.com # Contato: [email protected]Não respondo dúvidas via MP. Link para o post Compartilhar em outros sites
Rick Martin 3 Postado Janeiro 23, 2011 Autor Share Postado Janeiro 23, 2011 ontem de madrugada eu tava muito cansado entao nao fui levar uns hit dos bixos para ve se estava funcionando perfeitamente mais hj eu percebi que quando chega na hora de soltar a magia (quando atinge a vida do textbox1) acontece esse erro : Citar Link para o post Compartilhar em outros sites
Augusto 660 Postado Janeiro 23, 2011 Share Postado Janeiro 23, 2011 ontem de madrugada eu tava muito cansado entao nao fui levar uns hit dos bixos para ve se estava funcionando perfeitamente mais hj eu percebi que quando chega na hora de soltar a magia (quando atinge a vida do textbox1) acontece esse erro : Cade o erro? Upe a imagem e coloque o link aqui! Citar # Regras Gerais - TibiaKing.com # Contato: [email protected]Não respondo dúvidas via MP. Link para o post Compartilhar em outros sites
Rick Martin 3 Postado Janeiro 23, 2011 Autor Share Postado Janeiro 23, 2011 justamente é esse o erro quando ele vai soltar a magia pra curar vida o bot simplesmente trava e no VB aparece essa linha amarela : http://images.orkut.com/orkut/photos/OgAAANErxuujtDYpmkAWYjdcLwbnXLvFBbcf6xoPVaYDQzaVZH938gJN5QGme4cmBiId-FC_A80ReeA6OvJY1I5cX0EAm1T1UCxUNrHexbK427SNJtM8N0qCVMsW.jpg Citar Link para o post Compartilhar em outros sites
Augusto 660 Postado Janeiro 25, 2011 Share Postado Janeiro 25, 2011 Kara, você provavelmente não declarou as variaveis "Client c" e "Player p" como publicas! ai vai um jeito de arrumar, mais não é o jeito certo ainda! no seu Form principal declare elas como Public c As Client Public p As Player qualquer duvida, só postar! Citar # Regras Gerais - TibiaKing.com # Contato: [email protected]Não respondo dúvidas via MP. Link para o post Compartilhar em outros sites
Rick Martin 3 Postado Janeiro 25, 2011 Autor Share Postado Janeiro 25, 2011 (editado) eu ja verifiquei isso , porem acredito que elas estão declaradas corretamente. tanto no form do healer quanto no form principal aki segue os codigos : form healer : Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form4 Public c As Client Public p As Player Private Sub TimerSpell_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerSpell.Tick If p.Health <= TextBox1.Text Then If p.Mana >= TextBox2.Text Then c.Console.Say(TextBox3.Text) End If End If End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then TimerSpell.Enabled = True Else TimerSpell.Enabled = False End If End Sub End Class form principal : Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form2 Public c As Client Public p As Player 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 Me.Text = "EmoBot [" + p.Name + "]" Form1.Hide() Else Me.Hide() MsgBox("Você precisa escolher o seu personagem.") End If End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged If c.LoggedIn Then If CheckBox2.Checked Then p.Skull = Skull.Red Else p.Skull = Skull.None End If End If End Sub Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged If c.LoggedIn Then If CheckBox3.Checked Then p.Skull = Skull.Black Else p.Skull = Skull.None End If End If End Sub Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged If c.LoggedIn Then If CheckBox4.Checked Then p.Skull = Skull.White Else p.Skull = Skull.None End If End If End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If c.LoggedIn Then If CheckBox1.Checked Then c.Map.FullLightOn() Else c.Map.FullLightOff() End If End If End Sub Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged If c.LoggedIn Then If CheckBox5.Checked Then p.Addon = OutfitAddon.Addon1 Else p.Addon = OutfitAddon.None End If End If End Sub Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged If c.LoggedIn Then If CheckBox6.Checked Then p.Addon = OutfitAddon.Addon2 Else p.Addon = OutfitAddon.None End If End If End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbmont.SelectedIndexChanged If c.LoggedIn Then If cmbmont.Text = "Widow Queen" Then p.MountId = 368 End If If cmbmont.Text = "Rapid Bird" Then p.MountId = 369 End If If cmbmont.Text = "War Bear" Then p.MountId = 370 End If If cmbmont.Text = "Black Sheep" Then p.MountId = 371 End If If cmbmont.Text = "Midnight Panther" Then p.MountId = 372 End If If cmbmont.Text = "Draptor" Then p.MountId = 373 End If If cmbmont.Text = "Titanica" Then p.MountId = 374 End If If cmbmont.Text = "Tin Lizzard" Then p.MountId = 375 End If If cmbmont.Text = "Blazebringer" Then p.MountId = 376 End If If cmbmont.Text = "Rapid Boar" Then p.MountId = 377 End If If cmbmont.Text = "Stampor" Then p.MountId = 378 End If If cmbmont.Text = "Undead Cavebear" Then p.MountId = 379 End If If cmbmont.Text = "- Nenhuma -" Then p.MountId = 0 End If End If End Sub Private Sub ComboBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.SelectedItem = "Beggar Male" Then p.OutfitType = Tibia.Constants.OutfitType.BeggarMale ElseIf ComboBox1.SelectedItem = "Assassin Male" Then p.OutfitType = Tibia.Constants.OutfitType.AssassinMale End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click form3.show() End Sub Private Sub TimerAutoHaste_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerAutoHaste.Tick If utanigranhur.Checked Then If p.Mana >= 100 And p.HasFlag(Tibia.Constants.Flag.Hasted) = False Then c.Console.Say("Utani Gran Hur") End If ElseIf utanihur.Checked Then If p.Mana >= 60 And p.HasFlag(Tibia.Constants.Flag.Hasted) = False Then c.Console.Say("Utani Hur") End If End If End Sub Private Sub ChkAutoHaste_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkAutoHaste.CheckedChanged If ChkAutoHaste.Checked Then TimerAutoHaste.Start() utanihur.Enabled = False utanigranhur.Enabled = False Else TimerAutoHaste.Stop() utanihur.Enabled = True utanigranhur.Enabled = True End If End Sub Private Sub utamovita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles utamovita.CheckedChanged If utamovita.Checked Then timerutamovita.Start() Else timerutamovita.Stop() End If End Sub Private Sub timerutamovita_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerutamovita.Tick If p.Mana >= 40 And p.HasFlag(Tibia.Constants.Flag.ProtectedByMagicShield) = False Then c.Console.Say("Utamo Vita") End If End Sub Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged If CheckBox7.Enabled Then exanapoxtimer.Start() Else exanapoxtimer.Stop() End If End Sub Private Sub exanapoxtimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exanapoxtimer.Tick If p.Mana >= 30 And p.HasFlag(Tibia.Constants.Flag.Poisoned) = True Then c.Console.Say("exana pox") End If End Sub Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged If CheckBox8.Enabled Then timerparalize.Start() Else timerparalize.Stop() End If End Sub Private Sub timerparalize_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerparalize.Tick If p.Mana >= 30 And p.HasFlag(Tibia.Constants.Flag.Paralyzed) = True Then c.Console.Say("utani hur") End If End Sub Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) If CheckBox9.Enabled Then TimerDance.Start() Else TimerDance.Stop() End If End Sub Private Sub CheckBox9_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub TimerDance_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerDance.Tick Dim min As Integer = NumericUpDown1.Value TimerDance.Interval = min * 60000 p.Turn(Direction.Up) p.Turn(Direction.Up) p.Turn(Direction.Down) p.Turn(Direction.Down) p.Turn(Direction.Left) p.Turn(Direction.Left) p.Turn(Direction.Right) p.Turn(Direction.Right) End Sub Private Sub CheckBox9_CheckedChanged_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox9.CheckedChanged If CheckBox9.Checked Then TimerDance.Start() NumericUpDown1.Enabled = False Else TimerDance.Stop() NumericUpDown1.Enabled = True End If End Sub Private Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox10.CheckedChanged If c.LoggedIn Then If CheckBox10.Checked Then p.Addon = OutfitAddon.Both Else p.Addon = OutfitAddon.None End If End If End Sub Private Sub CheckBox11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox11.CheckedChanged If CheckBox11.Checked Then p.WarIcon = WarIcon.Blue Else p.WarIcon = WarIcon.None End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Form4.Show() End Sub End Class HÁ TORNEI PUBLIC E O ERRO AINDA PERSISTE ;/ POR FAVOR ME AJUDEM ;X Editado Janeiro 25, 2011 por Rick Martin (veja o histórico de edições) Citar Link para o post Compartilhar em outros sites
Augusto 660 Postado Janeiro 25, 2011 Share Postado Janeiro 25, 2011 Faça o seguinte, de 2 clicks no form do heal (irá abrir o evento load do mesmo) e adiciona as seguintes linhas: c = Form1.ComboBox1.SelectedItem p = c.GetPlayer e veja se irá funcionar! Pois o erro é que esta dando é que o "p" esta nulo. Citar # Regras Gerais - TibiaKing.com # Contato: [email protected]Não respondo dúvidas via MP. Link para o post Compartilhar em outros sites
Rick Martin 3 Postado Janeiro 25, 2011 Autor Share Postado Janeiro 25, 2011 Faça o seguinte, de 2 clicks no form do heal (irá abrir o evento load do mesmo) e adiciona as seguintes linhas: c = Form1.ComboBox1.SelectedItem p = c.GetPlayer e veja se irá funcionar! Pois o erro é que esta dando é que o "p" esta nulo. agora ele não da nenhum erro então agr o bot nao trava mais agr ele tb nao está healando segue a imagem Citar Link para o post Compartilhar em outros sites
Augusto 660 Postado Janeiro 25, 2011 Share Postado Janeiro 25, 2011 bom, agora os erros provavelmente serão relacionadas a valores de variaveis, procure utilizar a depuração do visual studio (ou o express mesmo) segue um link que explica como fazer tal depuração Link1 Link2 Rick Martin reagiu a isso 1 Citar # Regras Gerais - TibiaKing.com # Contato: [email protected]Não respondo dúvidas via MP. Link para o post Compartilhar em outros sites
Rick Martin 3 Postado Janeiro 25, 2011 Autor Share Postado Janeiro 25, 2011 bom, agora os erros provavelmente serão relacionadas a valores de variaveis, procure utilizar a depuração do visual studio (ou o express mesmo) segue um link que explica como fazer tal depuração Link1 Link2 obrigado estarei lendo os links e mais tarde postarei os resultados. e pelo esforço em tentar me ajudar REP + Citar Link para o post Compartilhar em outros sites
.png.020ba42dce1a4aa16afd44c8368fd85d.png)
Posts Recomendados
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.