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

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

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 :/

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

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