Bacana cara, apenas arrumei seu post para o código ficar mais legivel.

Tag adicionada!

Dei conta galera... fiz um autohealer.. kkkkkkkk.. ta aí o codigo...

Private Sub timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer.Tick If p.Health <= txt1.Text And p.Health > txt3.Text And txt1.Text <> "" And txt3.Text <> "" Then c.Console.Say(txt2.Text) If p.Health <= txt3.Text And p.Health > txt4.Text And txt3.Text <> "" And txt4.Text <> "" Then If cmb1.Text = "F1" Then c.Input.SendKey(Keys.F1) If cmb1.Text = "F2" Then c.Input.SendKey(Keys.F2) If cmb1.Text = "F3" Then c.Input.SendKey(Keys.F3) If cmb1.Text = "F4" Then c.Input.SendKey(Keys.F4) If cmb1.Text = "F5" Then c.Input.SendKey(Keys.F5) If cmb1.Text = "F6" Then c.Input.SendKey(Keys.F6) If cmb1.Text = "F7" Then c.Input.SendKey(Keys.F7) If cmb1.Text = "F8" Then c.Input.SendKey(Keys.F8) If cmb1.Text = "F9" Then c.Input.SendKey(Keys.F9) If cmb1.Text = "F10" Then c.Input.SendKey(Keys.F10) If cmb1.Text = "F11" Then c.Input.SendKey(Keys.F11) If cmb1.Text = "F12" Then c.Input.SendKey(Keys.F12) End If If p.Health <= txt4.Text And txt4.Text <> "" Then If cmb2.Text = "F1" Then c.Input.SendKey(Keys.F1) If cmb2.Text = "F2" Then c.Input.SendKey(Keys.F2) If cmb2.Text = "F3" Then c.Input.SendKey(Keys.F3) If cmb2.Text = "F4" Then c.Input.SendKey(Keys.F4) If cmb2.Text = "F5" Then c.Input.SendKey(Keys.F5) If cmb2.Text = "F6" Then c.Input.SendKey(Keys.F6) If cmb2.Text = "F7" Then c.Input.SendKey(Keys.F7) If cmb2.Text = "F8" Then c.Input.SendKey(Keys.F8) If cmb2.Text = "F9" Then c.Input.SendKey(Keys.F9) If cmb2.Text = "F10" Then c.Input.SendKey(Keys.F10) If cmb2.Text = "F11" Then c.Input.SendKey(Keys.F11) If cmb2.Text = "F12" Then c.Input.SendKey(Keys.F12) End If End Sub

é para adicionar tudo isso em 1 time ai ele vai adc essas tag de F1 , F2 , F3 , F4 , F5 , F6 ?

Editado Julho 26, 2011 13 anos por Mek Fiuchem (veja o histórico de edições)