Claro cara, vc bota tudo separado,

Vou te dizer oque o Robson sempre me fala quando eu peço ajuda pra ele, oque ele me fala? Vai Estudar

Ele sempre me manda estudar, e olha oque aconteceu consegui fazer um mana trainer sem api,

Entao eu fala isso pra vc

Jajaja to indo estuda , toma banho as 12:15 e vo la pelas 12:50 , estudar 1 poko quem sabe eu melhoro 1 poko

Era pra vc ter estuda pelo menos a logica de programação antes de baixar o VB

So pra nao dizer que eu so malvado:

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

If c.LoggedIn Then


If p.Mana > TextBox1.Text Then


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 If

End If

End Sub

Nao arrumei seu code, apenos deixei certo,

Uma dica, use elseif envez de 700 ifs

kkk' vlws eu tava estudando aki ai vi que tu respondeu tipo eu fiz o mesmo so modifiquei uns negosios

Public Class Form3

	Dim Tibia As Process = Process.GetProcessesByName("Tibia").First

	Private Const WM_KEYUP = &H101

	Public Shared wm_keydown = &H100

	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

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

    	If CheckBox1.Checked Then

        	Timer1.Enabled = True

    	Else

        	Timer1.Enabled = False

    	End If

	End Sub

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    	If ComboBox1.Text = "F1" Then

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

    	ElseIf ComboBox1.Text = "F2" Then

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

    	End If

	End Sub

End Class

#Edit

A desgrama do erro era no TibiaApi o endereço da mana e health entre outros ta errado --'

Editado Agosto 17, 2011 14 anos por Mek Fiuchem (veja o histórico de edições)