Ir para conteúdo

[VB.Net] Enviar um hotkey

Por JulinhoPiuPiu
em Tutoriais sobre Programação

Featured Replies

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

  • Citar
  • Mention
    • Respostas 41
    • Visualizações 5.1k
    • Created
    • Última resposta

    Top Posters In This Topic

    Popular Days

    Most Popular Posts

    • Kimoszin
      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, B

    • Kimoszin
      Kimoszin

      Mude para public static int

    • Kimoszin
      Kimoszin

      To falando do KeyDown e KeyUp, a void já está public static ¬¬

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

    Informação Importante

    Confirmação de Termo

    I accept