Ir para conteúdo
Banner com Efeitos
BR seuserver.com.br DESCRIÇÃO: ANUNCIE AQUI neste countdown e dê maior visibilidade ao seu lançamento | Fórum Otserv | Downloads | Tutoriais | IA Especializada para otserv | Lista de Servidores | mais de 10 anos de conteúdos! INICIA EM:

Ajuda com Healer

Por yurinho190
em Recursos Avançados

Featured Replies

Postado

Então, foi como eu disse.

Você só declarou as variaveis, você precisa informar que o p levou o valor do player.

Como isso:


 Imports Tibia.Objects

 Imports Tibia.Util


    Private p As Player

    Private c As Client


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

	    c = ClientChooser.ShowBox()

	    p = c.GetPlayer()

    End Sub

  • Citar
  • Mention
    • Respostas 14
    • Visualizações 611
    • Created
    • Última resposta

    Top Posters In This Topic

    Popular Days

    Most Popular Posts

    • Kimoszin
      Kimoszin

      Então, foi como eu disse. Você só declarou as variaveis, você precisa informar que o p levou o valor do player. Como isso: Imports Tibia.Objects Imports Tibia.Util Private p As

    Posted Images

    Postado
    • Autor

    Então, foi como eu disse.

    Você só declarou as variaveis, você precisa informar que o p levou o valor do player.

    Como isso:

    
Imports Tibia.Objects

Imports Tibia.Util


Private p As Player

Private c As Client


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

	 c = ClientChooser.ShowBox()

	 p = c.GetPlayer()

End Sub

    parece q agora vai!! obrigado, amigo!

    "Cada um de nós é livre para acreditar no que quiser, e minha resposta mais simples para isso é: Deus não existe. Ninguém criou o universo e ninguém comanda a nossa fé."

    -Stephen Hawking

    stephen-hawking-250x200.jpg

  • Citar
  • Mention
    • Postado
    • Autor

    alguem pode colaborar com um attacker ae? nao sei nem p onde vai o walker eu consegui mas tá 100% tibia api :/

    "Cada um de nós é livre para acreditar no que quiser, e minha resposta mais simples para isso é: Deus não existe. Ninguém criou o universo e ninguém comanda a nossa fé."

    -Stephen Hawking

    stephen-hawking-250x200.jpg

  • Citar
  • Mention
    • Postado

    Faça algo mais facil ^^ e menos complicado, faz tempo que não mecho com VB.Net mais vc poderia facilmente converter essa code, oque podera te ajudar muito.

    
	    private void tHealth_Tick(object sender, EventArgs e)

	    {

		    if (Objects.Player.Health() < Convert.ToInt32(txtHealth.Text))

		    switch (Healthhtk.Text)

		    {

			    case "F1":

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F1, 0);

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F1, 0);

				    break;

			    case "F2":

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F2, 0);

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F2, 0);

				    break;

			    case "F3":

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F3, 0);

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F3, 0);

				    break;

			    case "F4":

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F4, 0);

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F4, 0);

				    break;

			    case "F5":

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F5, 0);

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F5, 0);

				    break;

			    case "F6":

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F6, 0);

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F6, 0);

				    break;

			    case "F7":

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F7, 0);

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F7, 0);

				    break;

			    case "F8":

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F8, 0);

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F8, 0);

				    break;

			    case "F9":

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F9, 0);

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F9, 0);

				    break;

			    case "F10":

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F10, 0);

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F10, 0);

				    break;

			    case "F11":

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F11, 0);

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F11, 0);

				    break;

			    case "F12":

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F12, 0);

				    WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F12, 0);

				    break;

		    }

    Voce pode converter aqui

    tk-melhor.png

    KIIZH.png

  • Citar
  • Mention
    • Postado
    • Autor

    Faça algo mais facil ^^ e menos complicado, faz tempo que não mecho com VB.Net mais vc poderia facilmente converter essa code, oque podera te ajudar muito.

    
	 private void tHealth_Tick(object sender, EventArgs e)

	 {

		 if (Objects.Player.Health() < Convert.ToInt32(txtHealth.Text))

		 switch (Healthhtk.Text)

		 {

			 case "F1":

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F1, 0);

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F1, 0);

				 break;

			 case "F2":

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F2, 0);

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F2, 0);

				 break;

			 case "F3":

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F3, 0);

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F3, 0);

				 break;

			 case "F4":

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F4, 0);

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F4, 0);

				 break;

			 case "F5":

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F5, 0);

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F5, 0);

				 break;

			 case "F6":

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F6, 0);

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F6, 0);

				 break;

			 case "F7":

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F7, 0);

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F7, 0);

				 break;

			 case "F8":

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F8, 0);

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F8, 0);

				 break;

			 case "F9":

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F9, 0);

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F9, 0);

				 break;

			 case "F10":

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F10, 0);

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F10, 0);

				 break;

			 case "F11":

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F11, 0);

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F11, 0);

				 break;

			 case "F12":

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYDOWN, (int)Keys.F12, 0);

				 WinApi.SendMessage((IntPtr)KClient.HWND, Hooks.WM_KEYUP, (int)Keys.F12, 0);

				 break;

		 }

    Voce pode converter aqui

    eu já descobri um jeito parecido com esse agora a pouco, mas depois que ja fiz 12 timers de hotkey 1 por 1 HAUUAHAHUAHU

    "Cada um de nós é livre para acreditar no que quiser, e minha resposta mais simples para isso é: Deus não existe. Ninguém criou o universo e ninguém comanda a nossa fé."

    -Stephen Hawking

    stephen-hawking-250x200.jpg

  • Citar
  • Mention

    • 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
    Ir para a lista de tópicos

    Quem Está Navegando 0

    • Nenhum usuário registrado visualizando esta página.

    Estatísticas dos Fóruns

    • Tópicos 96.9k
    • Posts 519.6k

    Informação Importante

    Confirmação de Termo

    I accept