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:

[DUVIDA] Mana Trainer

Por Mek Fiuchem
em Recursos Avançados

Featured Replies

Postado

Eu queria saber oque esta de errado nesse form de trainer , ele nao quer solta spell que ta na hotkey nada :/ oia

Imports Tibia

Imports Tibia.Util

Imports Tibia.Objects

Imports Tibia.Constants

Public Class Form3

Private Const WM_KEYUP = &H202

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Public Tibia As Process

Public Shared WM_KeyDown = &H100

Dim c As Client

Dim p As Player

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

c = Form1.ListBox1.SelectedItem

If c.LoggedIn Then

p = c.GetPlayer

Form1.Hide()

Else

Me.Hide()

MsgBox("You need choose your character")

End If

End Sub

Private Sub TimerTrainer_Tick1(ByVal sender As System.Object, ByVal e As System.EventArgs)

If c.LoggedIn Then

If p.Mana > TextBox1.Text Then

End If

End If

End Sub

Private Sub TimerKey_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

If ComboBox1.Text = "F1" Then

SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0)

End If

If ComboBox1.Text = "F2" Then

SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F2, 0)

End If

If ComboBox1.Text = "F3" Then

SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F3, 0)

End If

If ComboBox1.Text = "F4" Then

SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F4, 0)

End If

If ComboBox1.Text = "F5" Then

SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F5, 0)

End If

If ComboBox1.Text = "F6" Then

SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F6, 0)

End If

If ComboBox1.Text = "F7" Then

SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F7, 0)

End If

If ComboBox1.Text = "F8" Then

SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F8, 0)

End If

If ComboBox1.Text = "F9" Then

SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F9, 0)

End If

If ComboBox1.Text = "F10" Then

SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F10, 0)

End If

If ComboBox1.Text = "F11" Then

SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F11, 0)

End If

If ComboBox1.Text = "F12" Then

SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F12, 0)

End If

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

If CheckBox1.Checked Then

TimerTrainer.Start()

TimerKey.Start()

Else

TimerTrainer.Stop()

TimerKey.Stop()

End If

End Sub

End Class

tk-melhor.png

KIIZH.png

  • Citar
  • Mention
    • Respostas 8
    • Visualizações 1.3k
    • Created
    • Última resposta

    Top Posters In This Topic

    Popular Days

    Most Popular Posts

    • Kimoszin
      Kimoszin

      Qual Tibia ele vai pegar? Public Tibia As Process Assim ele vai pegar o priemiro Public Shared Tibia As Process = Process.GetProcessesByName("Tibia").First

    Postado
    • Autor

    Ainda ele nao esta funcionando :/

    oia como fiko agora

    Imports Tibia

    Imports Tibia.Util

    Imports Tibia.Objects

    Imports Tibia.Constants

    Public Class Form3

    Private Const WM_KEYUP = &H202

    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    Public Shared Tibia As Process = Process.GetProcessesByName("Tibia").First

    Public Shared WM_KeyDown = &H100

    Dim c As Client

    Dim p As Player

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

    c = Form1.ListBox1.SelectedItem

    If c.LoggedIn Then

    p = c.GetPlayer

    Form1.Hide()

    Else

    Me.Hide()

    MsgBox("You need choose your character")

    End If

    End Sub

    Private Sub TimerTrainer_Tick1(ByVal sender As System.Object, ByVal e As System.EventArgs)

    If c.LoggedIn Then

    If p.Mana > TextBox1.Text Then

    End If

    End If

    End Sub

    Private Sub TimerKey_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

    If ComboBox1.Text = "F1" Then

    SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0)

    End If

    If ComboBox1.Text = "F2" Then

    SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F2, 0)

    End If

    If ComboBox1.Text = "F3" Then

    SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F3, 0)

    End If

    If ComboBox1.Text = "F4" Then

    SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F4, 0)

    End If

    If ComboBox1.Text = "F5" Then

    SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F5, 0)

    End If

    If ComboBox1.Text = "F6" Then

    SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F6, 0)

    End If

    If ComboBox1.Text = "F7" Then

    SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F7, 0)

    End If

    If ComboBox1.Text = "F8" Then

    SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F8, 0)

    End If

    If ComboBox1.Text = "F9" Then

    SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F9, 0)

    End If

    If ComboBox1.Text = "F10" Then

    SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F10, 0)

    End If

    If ComboBox1.Text = "F11" Then

    SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F11, 0)

    End If

    If ComboBox1.Text = "F12" Then

    SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F12, 0)

    End If

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    If CheckBox1.Checked Then

    TimerTrainer.Start()

    TimerKey.Start()

    Else

    TimerTrainer.Stop()

    TimerKey.Stop()

    End If

    End Sub

    End Class

    tk-melhor.png

    KIIZH.png

  • Citar
  • Mention
    • Postado
    • Autor

    Pq as hotkeys estao separadas?

    Bote junto com elas, porra

    Como vc quer que faça alguma coisa? botando em outro timer sem ativar ele? PQP

    Outra dica, vc ta fazendo bot com api, entao foda-se pressionar tecla, bota console mesmo ...

    Uia tem gente que acordo hoje estressado :/ , fikar sem essa mieda de simulador de teclas memo , mais pra frente aprendo a mexer em bot sem api --'

    tk-melhor.png

    KIIZH.png

  • 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.7k

    Informação Importante

    Confirmação de Termo

    I accept