[Resolvido] Auto Healer

[clauberbd 0]

Ja sei fazer o char usar um spell, mas como faço pra usar uma hotkey???

[Augusto 660]

Pra fazer a simulação do pressionamento de teclas (hotkeys) ja é um pouco mais complicado

eu fiz este pequeno projeto, que simula isso

http://tibiaking.com...eclas-tibiaapi/

o mesmo foi escrito em C#, utilize este conversor para converter para vb.net -> http://www.developer...t/csharp-to-vb/

Abraços

Edit-------

achei este link aqui, utilizei ele para fazer este simulador ai

http://www.forumweb.com.br/foruns/topic/68424-simulando-pressionamento-de-teclas/

o mesmo ja se encontra em vb.net

Editado Julho 25, 2011 por Augusto (veja o histórico de edições)

[Mek Fiuchem 212]

Pra fazer a simulação do pressionamento de teclas (hotkeys) ja é um pouco mais complicado

eu fiz este pequeno projeto, que simula isso

http://tibiaking.com...eclas-tibiaapi/

o mesmo foi escrito em C#, utilize este conversor para converter para vb.net -> http://www.developer...t/csharp-to-vb/

Abraços

aff ia mandar esse link :/

[clauberbd 0]

Achei a função no TibiaAPI

c.Input.SendKey(Keys.F1)

Agora deu certo

Só não sei fazer puxar a key de um combobox.. vou tentar

[clauberbd 0]

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

Editado Julho 26, 2011 por Augusto (veja o histórico de edições)

[Augusto 660]

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

Tag adicionada!

[Mek Fiuchem 212]

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 por Mek Fiuchem (veja o histórico de edições)