O QUE TEM DE ERRADO? LOL

Public Class Form3

	Public Tibia As Process

	Private Const WM_KEYUP = &H202

	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

NÃO ACONTECE NADA NO TIBIA

OBS: TEM SPELL NAS HOTKEY DO TIBIA...

Editado Agosto 9, 2011 13 anos por walktalk (veja o histórico de edições)

pra começar o KeyUp está errado. é: WM_KEYUP = &H101

o erro ainda perciste, que tenso :S

Vc nao escutou o Robson?

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

Vc nao escutou o Robson?

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

O cara tinha falado errado,

Valeu pela ajuda, haha agora foi