VB.net Tastendruck simmulieren (systemweit oder inaktives Fenster)?

[Mental Wreck]

Hey,
will für nen Spiel nen kleinen Bot basteln der soll wenn man ne Taste drückt nen bestimmten Text senden.
Nur irgendwie kriege ich es über dem Keypress Event nicht hin bitte helft mir.

MFG

NiGHT

[Kraizy​]

verwenden

[Mental Wreck]

Okay, aber wie wird eine Taste definiert? Habe irgendwas vonwegen Ascii Code gehört, aber wie kommt man an den Code von einer Taste?

[cooler7878]

#include <iostream>




using namespace std;


int main(void)
{

for (char c=65;c<91;c++)
cout<<c;//TADA das ABC


return 0;
}

Falls du kein C++ Code lesen kannst A = 65 Z=91 (GROSSBUCHSTABEN)

EDIT: Habe gerade was gefunden :

[ZackBlack]

Originally Posted by NιGHT

Okay, aber wie wird eine Taste definiert? Habe irgendwas vonwegen Ascii Code gehört, aber wie kommt man an den Code von einer Taste?

Wenn ich mir das so anschaue fallt mir das hier auf:

RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.Tab)
RegisterHotKey(Me.Handle, 2 'ID, Key_NONE, Keys.D1 'Taste)

Also in WParam ist nacher die ID die du zuerst registrieren musst.

[Mental Wreck]

Originally Posted by ZackBlack

Wenn ich mir das so anschaue fallt mir das hier auf:

RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.Tab)
RegisterHotKey(Me.Handle, 2 'ID, Key_NONE, Keys.D1 'Taste)

Also in WParam ist nacher die ID die du zuerst registrieren musst.

Ich versteh nur Bahnhof :S

[Kraizy​]

PHP Code:

Public Class Form1

    Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
    Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
    Private Const Key_NONE As Integer = &H0
    Private Const WM_HOTKEY As Integer = &H312

    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_HOTKEY Then
            //hier prüfst du jetzt die ID (bei der ID 1 hab ich die Taste A genommen, bei 2 B und bei 3 Z
            Select Case m.WParam
                Case 1 //wenn ID = 1
                    MessageBox.Show("Taste A wurde gedrückt")
                Case 2 //wenn ID = 2
                    MessageBox.Show("Taste B wurde gedrückt")
                Case 3 //wenn ID = 3
                    MessageBox.Show("Taste Z wurde gedrückt")
            End Select
        End If
        MyBase.WndProc(m)
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        //wenn dein Programm geschloßen wird, Hotkeys wieder entfernen
        UnregisterHotKey(Me.Handle, 1)
        UnregisterHotKey(Me.Handle, 2)
        UnregisterHotKey(Me.Handle, 3)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        //hier setzt du deine gewünschten Tasten z.B. "A", "B" oder "Z"...
        //die 1, 2 und 3 sind sowas wie die ID's für deine Tasten
        RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.A)
        RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.B)
        RegisterHotKey(Me.Handle, 3, Key_NONE, Keys.Z)
    End Sub
End Class 


[Mental Wreck]

Originally Posted by xKraizy

PHP Code:

Public Class Form1

    Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
    Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
    Private Const Key_NONE As Integer = &H0
    Private Const WM_HOTKEY As Integer = &H312

    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_HOTKEY Then
            //hier prüfst du jetzt die ID (bei der ID 1 hab ich die Taste A genommen, bei 2 B und bei 3 Z
            Select Case m.WParam
                Case 1 //wenn ID = 1
                    MessageBox.Show("Taste A wurde gedrückt")
                Case 2 //wenn ID = 2
                    MessageBox.Show("Taste B wurde gedrückt")
                Case 3 //wenn ID = 3
                    MessageBox.Show("Taste Z wurde gedrückt")
            End Select
        End If
        MyBase.WndProc(m)
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        //wenn dein Programm geschloßen wird, Hotkeys wieder entfernen
        UnregisterHotKey(Me.Handle, 1)
        UnregisterHotKey(Me.Handle, 2)
        UnregisterHotKey(Me.Handle, 3)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        //hier setzt du deine gewünschten Tasten z.B. "A", "B" oder "Z"...
        //die 1, 2 und 3 sind sowas wie die ID's für deine Tasten
        RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.A)
        RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.B)
        RegisterHotKey(Me.Handle, 3, Key_NONE, Keys.Z)
    End Sub
End Class 


Vielen dank, nur ein Problem gibt es noch, undzwar wenn er dann einen Text senden soll sendet er den Text nicht ingame sondern switcht wieder auf dem Desktop.

[Kraizy​]

Um es an ein spezielles Fenster zu senden benutze die Send- oder PostMessage API. SendKeys.Send() sendet bloß an das im Vordergrund liegende Fenster.

[Mental Wreck]

PHP Code:

                Case 8
                    If CheckBox1.Checked = True Then
                        My.Computer.Keyboard.SendKeys("T")
                        My.Computer.Keyboard.SendKeys(TextBox8.Text)
                        My.Computer.Keyboard.SendKeys("{Enter}")
                    End If 


Hab es jetzt so gemacht Checkbox is für was anderes da, aber es klappt
Also kann geclosed werden.