[VB.Net] Enviar um hotkey

[walktalk 5]

O QUE TEM DE ERRADO? LOL

Public Class Form3

	Public Tibia As Process

	Private Const WM_KEYUP = &H202

	Public Shared wm_keydown = &H100

	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

	Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged


    	If CheckBox1.Checked Then

        	Timer1.Enabled = True

    	Else

        	Timer1.Enabled = False

    	End If

	End Sub


	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


    	If ComboBox1.Text = "F1" Then

        	SendMessage(tibia.MainWindowHandle, wm_keydown, Keys.F1, 0)

    	ElseIf ComboBox1.Text = "F2" Then

        	SendMessage(tibia.MainWindowHandle, wm_keydown, Keys.F2, 0)

    	End If

	End Sub

End Class

NÃO ACONTECE NADA NO TIBIA

OBS: TEM SPELL NAS HOTKEY DO TIBIA...

Editado Agosto 9, 2011 por walktalk (veja o histórico de edições)

[JulinhoPiuPiu 100]

pra começar o KeyUp está errado. é: WM_KEYUP = &H101

[walktalk 5]

o erro ainda perciste, que tenso :S

[Kimoszin 1160]

Vc nao escutou o Robson?

Dim Tibia As Process = Process.GetProcessesByName("Tibia").First

[walktalk 5]

Vc nao escutou o Robson?

Dim Tibia As Process = Process.GetProcessesByName("Tibia").First

O cara tinha falado errado,

Valeu pela ajuda, haha agora foi

[Private Sub Teste 353]

Que cara falado errado? Ninguém aqui falou errado... Apenas você interpretou mal --'

[walktalk 5]

Robson Venturin FALOU: Public Tibia As Process = Process.GetProcessByName("tibia").FirstOrDefault

Kimoszin FALOU: Dim Tibia As Process = Process.GetProcessesByName("Tibia").First

Faz muita diferença

[Private Sub Teste 353]

@Edit

Pra um noob que se acha o programador, tentando passar programa com vírus no fórum faz diferença sim.

Não sabe nem a diferença de WM_KEYUP e WM_KEYDOWN (code), não tem nem a habilidade de se quer entrar no google e pesquisar pelo keycode dessas keys. Agora vai querer se achar o fodão dizendo que faz diferença?

Pra um bom entendedor, meia palavra basta _)_

Editado Agosto 19, 2011 por Robson Venturin (veja o histórico de edições)

[Mek Fiuchem 212]

Imports Tibia

Imports Tibia.Util

Imports Tibia.Objects

Imports Tibia.Constants


Public Class Form3

    	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

    	Public Tibia As Process

    	Public Shared WM_KeyDown = &H100

    	Dim c As Client

    	Dim p As Player

Faça isso ai

Editado Agosto 11, 2011 por Mek Fiuchem (veja o histórico de edições)

[Tryller 103]

Julio pequena duvida....

Usando a função seria como? Hotkey("hotkey.text")?To boiando aqui auhaua

[JulinhoPiuPiu 100]

Assim:

Hotkey(TextBox1.text)

e no textbox1 deveria conter F1 ou outros..

[Tryller 103]

Gostei julio valeu por esclarecer

[Kimoszin 1160]

Se ajudar, eu uso assim

Dim htk = combobox1.text

Hotkey(htk)

[Aluccard 48]

Olá!

Esse tutorial envia uma hotkey para uma janela que esta no topos.

Estou quebrando a cabeça para conseguir mandar essa HOTKEY como 'background'.

Edit

Usando o SendMessage, conseguimos enviar Char com o WM_CHAR (&H102) para o background, porém não consigo enviar Keys F1,F2... Usando WM_CHAR ou WM_KeyDown(&H100) / KeyUp(&H101).

Alguma idéia?

Grato,

Aluccard.

Editado Setembro 2, 2011 por Aluccard (veja o histórico de edições)

[Mek Fiuchem 212]

Desculpe reviver o topico dps de 1 ano

Mais eu tenho uma duvida , eu queria saber se isso é apenas em TibiaApi ou sem , pois fui fazer sem TibiaApi e ocorreu um poblema

Error 2 The name 'Keys' does not exist in the current context C:\Documents and Settings\Taylor\Meus documentos\Visual Studio 2008\Projects\****** Bot\***** Bot\Objects\Player.cs 39 69 ******* Bot

A Funçao é essa

	    public static void Turn()

	    {

		    //Up

		    WinApi.SendMessage(KClient.HWND, WinApi.WM_KEYDOWN, (int)Keys.ControlKey, 0);

		    WinApi.SendMessage(KClient.HWND, WinApi.WM_KEYDOWN, (int)Keys.Up, 0);

		    WinApi.SendMessage(KClient.HWND, WinApi.WM_KEYUP, (int)Keys.Up, 0);

		    WinApi.SendMessage(KClient.HWND, WinApi.WM_KEYUP, (int)Keys.ControlKey, 0);

		    //Down

		    WinApi.SendMessage(KClient.HWND, WinApi.WM_KEYDOWN, (int)Keys.ControlKey, 0);

		    WinApi.SendMessage(KClient.HWND, WinApi.WM_KEYDOWN, (int)Keys.Down, 0);

		    WinApi.SendMessage(KClient.HWND, WinApi.WM_KEYUP, (int)Keys.Down, 0);

		    WinApi.SendMessage(KClient.HWND, WinApi.WM_KEYUP, (int)Keys.ControlKey, 0);

	    }

Declarei WM_KEYUP , KEYDOWN em WinApi , assim.

	    public const int WM_KEYDOWN = 0x100;

	    public const int WM_KEYUP = 0x101;

Alguem poderia me falar oque esta aconteçendo ?

[Kimoszin 1160]

Mude para

public static int

[Mek Fiuchem 212]

Mais voce fala da declaraçao do KEYUP & KEYDOWN ou a funçao

{Turn}

[dezon 216]

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 Julho 14, 2012 por dezon (veja o histórico de edições)

[Kimoszin 1160]

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

[Giovani 3]

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 ??