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"

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

Mude para public static int

Augusto

Augusto 660

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
Ti0Branc0

Ti0Branc0 12

Postado
Postado

Muito bom! :]

Da para usar em muitas funções

"Perdoamos quando não sentimos mais necessidade de usar as mágoas antigas como garantia contra alguém."

Jacqueline Collodo Gomes

"As vezes construímos sonhos em cima de grandes pessoas.

O tempo passa e descobrimos que grandes mesmo eram os sonhos e as pessoas pequenas demais para torná-los reais!"

Bob Marley

Twitter:

@ewertont

Link para o post
Compartilhar em outros sites
  • 2 weeks later...
Kimoszin

Kimoszin 1160

Postado
Postado

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

Link para o post
Compartilhar em outros sites
walktalk

walktalk 5

Postado
Postado (editado)

me indica algum exemplo :fuu:

EDIT: poderia colocar o codigo completo aqui? :D

Editado por walktalk (veja o histórico de edições)
Link para o post
Compartilhar em outros sites
Kimoszin

Kimoszin 1160

Postado
Postado

O codigo completo nao, mais eu lhe digo como fazer,

Declare tudo,

Identifique oque esta escrito no combobox, faça com if e elseif e bote a hotkey que apertar,

Simples !

Link para o post
Compartilhar em outros sites
walktalk

walktalk 5

Postado
Postado

cara, isso ta muito mal explicado... confundi qualquer um !

o combobox se chama "htk" ?

como vou declarar o " Tibia.MainWindowHandle " ?

Link para o post
Compartilhar em outros sites
Kimoszin

Kimoszin 1160

Postado
Postado (editado)

Faça algo simples

if combobox1.text = "F1" then

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


else if combobox1.text = "F2" then

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

Quando vc declara Public Tibia As Process, o Tibia.MainWindowHandle ja esta declarado

Editado por Kimoszin (veja o histórico de edições)
Link para o post
Compartilhar em outros sites
JulinhoPiuPiu

JulinhoPiuPiu 100

Postado
  • Autor
Postado

Cara se você entedesse não estaria complicado, htk é uma string não um combobox entao o hotkey pode estar em qualquer string.

Obrigado por falar sobre o processo kismoszin :D

Link para o post
Compartilhar em outros sites
walktalk

walktalk 5

Postado
Postado

Eu já declarei o tibia no Processo, mais o Tibia.MainWindowHandle ainda continua dando erro...

OBS: versão do TibiaAPI é 8.56

Link para o post
Compartilhar em outros sites
Private Sub Teste

Private Sub Teste 353

Postado
Postado

Public Tibia As Process = Process.GetProcessByName("tibia").FirstOrDefault

Todos ja foram noob na vida, mas por favor, o VB.NET não vai adivinhar sozinho qual é o processo que tu quer "atacar" --'

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.



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