Ir para conteúdo
TK News
  • Cadastre-se

[VB.Net] Enviar um hotkey

JulinhoPiuPiu
 Share Seguidores 0

Posts Recomendados

JulinhoPiuPiu

JulinhoPiuPiu 100

Postado
Postado

Função de enviar hotkey.

Função:


Public Sub Hotkey(ByVal htk As String)


        Select Case htk

            Case "F1"

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

            Case "F2"

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

            Case "F3"

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

            Case "F4"

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

            Case "F5"

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

            Case "F6"

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

            Case "F7"

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

            Case "F8"

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

            Case "F9"

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

            Case "F10"

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

            Case "F11"

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

            Case "F12"

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

            Case "Shift+F1"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F1, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F1, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&)

            Case "Shift+F2"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F2, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F2, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&)

            Case "Shift+F3"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F3, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F3, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&)

            Case "Shift+F4"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F4, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F4, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&)

            Case "Shift+F5"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F5, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F5, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&)

            Case "Shift+F6"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F6, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F6, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&)

            Case "Shift+F7"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F7, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F7, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&)

            Case "Shift+F8"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F8, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F8, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&)

            Case "Shift+F9"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F9, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F9, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&)

            Case "Shift+F10"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F10, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F10, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&)

            Case "Shift+F11"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F11, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F11, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&)

            Case "Shift+F12"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F12, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F12, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&)

            Case "Ctrl+F1"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F1, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F1, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&)

            Case "Ctrl+F2"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F2, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F2, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&)

            Case "Ctrl+F3"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F3, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F3, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&)

            Case "Ctrl+F4"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F4, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F4, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&)

            Case "Ctrl+F5"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F5, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F5, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&)

            Case "Ctrl+F6"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F6, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F6, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&)

            Case "Ctrl+F7"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F7, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F7, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&)

            Case "Ctrl+F8"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F8, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F8, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&)

            Case "Ctrl+F9"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F9, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F9, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&)

            Case "Ctrl+F10"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F10, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F10, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&)

            Case "Ctrl+F11"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F11, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F11, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&)

            Case "Ctrl+F12"

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F12, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F12, 0&)

                SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&)

        End Select

    End Sub

Quem não souber como usar poste sua duvida/erro. ou comente qualquer coisa. Abraço

Link para o post
Compartilhar em outros sites
  • Respostas 41
  • Created
  • Última resposta

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

JulinhoPiuPiu

Função de enviar hotkey. Função: Public Sub Hotkey(ByVal htk As String) Select Case htk Case "F1" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F1, 0) Case "F2" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F2, 0) Case "F3" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F3, 0) Case "F4"

Kimoszin

Adicione isso Public Shared wm_keydown = &H100 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

Kimoszin

Mude para public static int

Augusto

Augusto 662

Postado
Postado (editado)

É o Cliente do Tibia, a janela propriamente dita, o processo na memória!

Muito bom Julio, simples e eficaz! :)

Editado por Augusto (veja o histórico de edições)

# Regras Gerais - TibiaKing.com #
Contato: [email protected]
Não respondo dúvidas via MP.

1C2tu.png4Tlqo.png1C2tu.png

 

Link para o post
Compartilhar em outros sites

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

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 0
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

  • Estatísticas dos Fóruns

    96846
    Tópicos
    519602
    Posts


TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito