[Request]Spawntool selbst erstellen

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)
        'die messages auswerten
        If m.Msg = WM_HOTKEY Then
            'hier wird entschieden welcher hotkey es war
            'einfach die übergebene id auswerten
            Select Case m.WParam
                Case 1
                    SendKeys.Send("{Enter}")
                    'Folgt unser Command zu daten übermittlung 
                    'Label25 = /summon + leertaste
                    ' tbanzahl ist unser anzahl von monstern
                    ' tbmob ist unser mob id 
                    SendKeys.Send(Label25.Text & tbanzahl.Text & tbmobs.Text)
                    ' danach soll wieder enter betätigt werden 
                    'damit wir unser /summon 5 15 Command versenden können 
                    SendKeys.Send("{Enter}")
                Case 2
                    MessageBox.Show("Sie haben die 1 gedrückt!")
            End Select
        End If
        MyBase.WndProc(m)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.T)
    End Sub

End Class