Simulamento de tecla para determinada janela

[Private Sub Teste 353]

Resolvi postar uma pequena parte do código usado no Mage Trainer, é apenas um exemplo de como enviar hotkeys para o tibia.

O processo é simples, você vai precisar de:

1. Button

Declare as seguintes funções no ínicio do form (depois de Public Class Form1)

    'esta é a função usada

    'para achar a janela do tibia

    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Int32


    'esta é a função usada

    'para enviar a mensagem para o client

    'sem o "focusar"

    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


    'usada para definir o client

    Dim hwndTarget As Long


    'variaveis de algumas letras

    Const WM_KEYDOWN As Long = &H100

    Const WM_KEYUP As Long = &H101

    Const WM_F9 As Long = &H78

Agora, dê dois clicks no Button1 e adicione o seguinte:

        'usado para armazenar o cliente

        'essa função pega o handle do tibia

        'e armazena em hwndTarget

        '"tibiaclient" é a classname do tibia

        hwndTarget = FindWindow("tibiaclient", vbNullString)


        'envia a mensagem para a janela do tibia

        'no caso ele enviara a hotkey F9

        SendMessage(hwndTarget, WM_KEYDOWN, WM_F9, 0)


        'sempre execute a função do WM_KEYUP

        'em algums casos, pode dar erro

        'portanto, é sempre bom previnir

        SendMessage(hwndTarget, WM_KEYUP, WM_F9, 0)

No final, seu código será que nem esse:

Já sabe oque fazer agora né?

Public Class Form1

    'esta é a função usada

    'para achar a janela do tibia

    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Int32


    'esta é a função usada

    'para enviar a mensagem para o client

    'sem o "focusar"

    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


    'usada para definir o client

    Dim hwndTarget As Long


    'variaveis de algumas letras

    Const WM_KEYDOWN As Long = &H100

    Const WM_KEYUP As Long = &H101

    Const WM_F9 As Long = &H78

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'usado para armazenar o cliente

        'essa função pega o handle do tibia

        'e armazena em hwndTarget

        '"tibiaclient" é a classname do tibia

        hwndTarget = FindWindow("tibiaclient", vbNullString)


        'envia a mensagem para a janela do tibia

        'no caso ele enviara a hotkey F9

        SendMessage(hwndTarget, WM_KEYDOWN, WM_F9, 0)


        'sempre execute a função do WM_KEYUP

        'em algums casos, pode dar erro

        'portanto, é sempre bom previnir

        SendMessage(hwndTarget, WM_KEYUP, WM_F9, 0)

    End Sub

End Class

[Sleepy 5]

Cara

Codigo funfa sim

mais meu . botão print screen esqueçe!

e os outros eu não testei ainda.

[Private Sub Teste 353]

Deve ser algo ai nas configurações do seu VB.NET, aqui está funcionando normal...

[Flamer 115]

Para capturar a tela (como printscreen) você pode utilizar das funções mencionadas nesse tutorial da Microsoft: http://support.microsoft.com/default.aspx?scid=KB;EN-US;q161299&FR=0

PS: Talvez necessite de revisões para funcionar no VB.NET

[Private Sub Teste 353]

http://www.megaupload.com/?d=DDAJ6ZPZ

Aki há um exemplo que eu fiz para um outro fórum em que eu participava, porém, perdi o código dele pois computador deu problemas e tive que formatar, perdendo todos os dados...