Ir para conteúdo
  • Cadastre-se

Posts Recomendados

  • Respostas 41
  • Created
  • Última resposta

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

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"

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

Mude para public static int

Gostei dessa função, uma versão adaptada da minha do Tibia Simple Bot que está em C# e foi passado para VB.Net, muito bom mesmo!!!

Aqui ó: http://code.google.c...r/Funcoes.cs#84

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

rxtoGjF.jpg 

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

Preciso de uma ajuda

estou tentando fazer um logout

com Ctrl + Q ou Ctrl + l

Mas não da certo

exemplo

    WinAPI.SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, VK_CONTROL, 0)

				    WinAPI.SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, CInt(Keys.Q), 0)

				    WinAPI.SendMessage(Tibia.MainWindowHandle, WM_KEYUP, CInt(Keys.Q), 1)

				    WinAPI.SendMessage(Tibia.MainWindowHandle, WM_KEYUP, VK_CONTROL, 1)

Help ??

Mano Rachei Desse Gif kkkkkkkkkkkkkkkkkkkkk

991d2bef9a0de7ba3d780f8b121610a4.gif

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.

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

  • Estatísticas dos Fóruns

    96844
    Tópicos
    519600
    Posts



×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo