Simulate keystrokes (C# or Vb.Net)?

[Micha01]

Hi all,

how can I Simulate keystrokes for Warhammer Online (C / C++ / C# / VB.Net) ?


I found this Code in C++:

	INPUT input;
	memset(&input,0,sizeof(INPUT));
	input.type=INPUT_KEYBOARD;
	input.ki.wScan =0x0402; 
	input.ki.dwFlags=0;
	SendInput(1,&input,sizeof(INPUT));

	return 0;

but doesnt work.

I found this Code in Vb.Net:

Option Explicit Off

Public Class Form1


    Private Declare Function SendInput Lib "user32.dll" (ByVal cInputs As Long, ByRef pInputs As MyInput, ByVal cbSize As Long) As Long

    Private Structure KEYBDINPUT
        Dim wVk As Integer
        Dim wScan As Long
        Dim dwFlags As Long
        Dim time As Long
        Dim dwExtraInfo As Long
        Dim unused1 As Long
        Dim unused2 As Long
    End Structure

    Private Structure MyInput
        Dim Type As Long
        Dim ki As KEYBDINPUT
    End Structure

    Private Const KEYEVENTF_KEYUP As Long = &H2
    Private Const INPUT_KEYBOARD As Long = 1
    Private Const DIKEYBOARD_1 As Long = &H402 '0x0402


    Private Sub Form_Load()

        Dim inp As MyInput

        inp.Type = INPUT_KEYBOARD
        inp.ki.wScan = DIKEYBOARD_1
        If Not press_key Then
            inp.ki.dwFlags = KEYEVENTF_KEYUP
        End If

     SendInput(1, inp, Len(inp))

    End Sub
End Class

but doesnt work.

[Moutney]

if its not necissary to be C / C++ / C# / VB.Net. you can use AutoIt, really easy to set up, and you can make really complicated macros with it.

[Micha01]

I will not use AutoIt - I will use Vb.Net.

But Thanks

[Moutney]

how its better in doing a bot(i suppose thats what your trying to do)

[Micha01]

I found this Code:

    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

    Private Const KEYBOARD_1 As Byte = &H31
    Private Const KEYEVENTF_KEYUP As Byte = &H2

    Public Sub KeySend()

        'Taste drücken
        keybd_event(KEYBOARD_1, 0, 0, 0)
        'Taste loslassen
        keybd_event(KEYBOARD_1, 0, KEYEVENTF_KEYUP, 0)

    End Sub

but doesnt work.

[Micha01]

Hello,

I found this Code:

Private Declare Function GetForegroundWindow Lib "user32" () As Long

    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer

    Public Sub KeySend()


        Dim hwnd As Long = GetForegroundWindow

        SendMessage(hwnd, &H100, &H31, 0)
        SendMessage(hwnd, &H101, &H31, 0)

    End Sub

but doesnt work.

Someone an idea?

[ntldr]

Moutney already pointed out that AutoIt will be your best bet. If you're too hard nosed to give it a try (from the sound of your posts you are) then you may be out of luck.

It doesn't sound like you have a lot of programming experience based on your googling of other peoples' code. This again would lead me to suggest AutoIt as well. Super easy to set up.

But alas you probably will disregard any advice we're giving you.