Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

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
	Private dd As New Dictionary(Of Char, Keys)
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    	dd.Add("A"c, Keys.A)
    	dd.Add("B"c, Keys.B)
    	dd.Add("C"c, Keys.C)
    	dd.Add("D"c, Keys.D)
    	dd.Add("E"c, Keys.E)
    	dd.Add("F"c, Keys.F)
    	dd.Add("G"c, Keys.G)
    	dd.Add("H"c, Keys.H)
    	dd.Add("I"c, Keys.I)
    	dd.Add("J"c, Keys.J)
    	dd.Add("K"c, Keys.K)
    	dd.Add("L"c, Keys.L)
    	dd.Add("M"c, Keys.M)
    	dd.Add("N"c, Keys.N)
    	dd.Add("O"c, Keys.O)
    	dd.Add("P"c, Keys.P)
    	dd.Add("Q"c, Keys.Q)
    	dd.Add("R"c, Keys.R)
    	dd.Add("S"c, Keys.S)
    	dd.Add("T"c, Keys.T)
    	dd.Add("U"c, Keys.U)
    	dd.Add("V"c, Keys.W)
    	dd.Add("X"c, Keys.X)
    	dd.Add("Y"c, Keys.Y)
    	dd.Add("Z"c, Keys.Z)
	End Sub

	Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    	If CheckBox1.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox1.Text)
        	RegisterHotKey(Me.Handle, 1, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 1)
    	End If
	End Sub
	Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    	If m.Msg = WM_HOTKEY Then
        	Select Case m.WParam
            	Case 0
            	Case 1
                	SendKeys.Send(TextBox1.Text)
            	Case 2
                	SendKeys.Send(TextBox2.Text)
            	Case 3
                	SendKeys.Send(TextBox3.Text)
            	Case 4
                	SendKeys.Send(TextBox4.Text)
            	Case 5
                	SendKeys.Send(TextBox5.Text)
            	Case 6
                	SendKeys.Send(TextBox6.Text)
            	Case 7
                	SendKeys.Send(TextBox7.Text)
            	Case 8
                	SendKeys.Send(TextBox8.Text)
            	Case 9
                	SendKeys.Send(TextBox9.Text)
            	Case 10
                	SendKeys.Send(TextBox10.Text)
            	Case 11
                	SendKeys.Send(TextBox11.Text)
            	Case 12
                	SendKeys.Send(TextBox12.Text)
            	Case 13
                	SendKeys.Send(TextBox13.Text)
            	Case 14
                	SendKeys.Send(TextBox14.Text)
            	Case 15
                	SendKeys.Send(TextBox15.Text)
            	Case 16
                	SendKeys.Send(TextBox16.Text)
            	Case 17
                	SendKeys.Send(TextBox17.Text)
            	Case 18
                	SendKeys.Send(TextBox18.Text)
            	Case 19
                	SendKeys.Send(TextBox19.Text)
            	Case 20
                	SendKeys.Send(TextBox20.Text)
            	Case 21
                	SendKeys.Send(TextBox21.Text)
            	Case 22
                	SendKeys.Send(TextBox22.Text)
            	Case 23
                	SendKeys.Send(TextBox23.Text)
            	Case 24
                	SendKeys.Send(TextBox24.Text)

        	End Select

    	End If
    	MyBase.WndProc(m)
	End Sub

	Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    	Process.Start("www.life-of-sa.de/index.php?page=Index")
	End Sub

	Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
    	If CheckBox2.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox2.Text)
        	RegisterHotKey(Me.Handle, 2, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 2)
    	End If
	End Sub

	Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
    	If CheckBox4.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox4.Text)
        	RegisterHotKey(Me.Handle, 4, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 4)
    	End If
	End Sub

	Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
    	If CheckBox3.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox3.Text)
        	RegisterHotKey(Me.Handle, 3, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 3)
    	End If
	End Sub

	Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
    	If CheckBox6.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox6.Text)
        	RegisterHotKey(Me.Handle, 6, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 6)
    	End If
	End Sub

	Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
    	If CheckBox5.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox5.Text)
        	RegisterHotKey(Me.Handle, 5, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 5)
    	End If
	End Sub

	Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged
    	If CheckBox8.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox8.Text)
        	RegisterHotKey(Me.Handle, 8, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 8)
    	End If
	End Sub

	Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
    	If CheckBox7.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox7.Text)
        	RegisterHotKey(Me.Handle, 7, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 7)
    	End If
	End Sub

	Private Sub CheckBox16_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox16.CheckedChanged
    	If CheckBox16.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox16.Text)
        	RegisterHotKey(Me.Handle, 16, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 16)
    	End If
	End Sub

	Private Sub CheckBox15_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox15.CheckedChanged
    	If CheckBox15.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox15.Text)
        	RegisterHotKey(Me.Handle, 15, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 15)
    	End If
	End Sub

	Private Sub CheckBox14_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox14.CheckedChanged
    	If CheckBox14.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox14.Text)
        	RegisterHotKey(Me.Handle, 14, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 14)
    	End If
	End Sub

	Private Sub CheckBox13_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox13.CheckedChanged
    	If CheckBox13.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox13.Text)
        	RegisterHotKey(Me.Handle, 13, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 13)
    	End If
	End Sub

	Private Sub CheckBox12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox12.CheckedChanged
    	If CheckBox12.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox12.Text)
        	RegisterHotKey(Me.Handle, 12, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 12)
    	End If
	End Sub

	Private Sub CheckBox11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox11.CheckedChanged
    	If CheckBox11.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox11.Text)
        	RegisterHotKey(Me.Handle, 11, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 11)
    	End If
	End Sub

	Private Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox10.CheckedChanged
    	If CheckBox10.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox10.Text)
        	RegisterHotKey(Me.Handle, 10, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 10)
    	End If
	End Sub

	Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox9.CheckedChanged
    	If CheckBox9.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox9.Text)
        	RegisterHotKey(Me.Handle, 9, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 9)
    	End If
	End Sub

	Private Sub CheckBox24_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox24.CheckedChanged
    	If CheckBox24.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox24.Text)
        	RegisterHotKey(Me.Handle, 24, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 24)
    	End If
	End Sub

	Private Sub CheckBox23_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox23.CheckedChanged
    	If CheckBox23.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox23.Text)
        	RegisterHotKey(Me.Handle, 23, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 23)
    	End If
	End Sub

	Private Sub CheckBox22_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox22.CheckedChanged
    	If CheckBox22.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox22.Text)
        	RegisterHotKey(Me.Handle, 22, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 22)
    	End If
	End Sub

	Private Sub CheckBox21_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox21.CheckedChanged
    	If CheckBox21.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox21.Text)
        	RegisterHotKey(Me.Handle, 21, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 21)
    	End If
	End Sub

	Private Sub CheckBox20_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox20.CheckedChanged
    	If CheckBox20.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox20.Text)
        	RegisterHotKey(Me.Handle, 20, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 20)
    	End If
	End Sub

	Private Sub CheckBox19_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox19.CheckedChanged
    	If CheckBox19.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox19.Text)
        	RegisterHotKey(Me.Handle, 19, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 19)
    	End If
	End Sub

	Private Sub CheckBox18_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox18.CheckedChanged
    	If CheckBox18.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox18.Text)
        	RegisterHotKey(Me.Handle, 18, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 18)
    	End If
	End Sub

	Private Sub CheckBox17_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox17.CheckedChanged
    	If CheckBox17.Checked = True Then
        	Dim MyKey As Keys = dd.Item(ComboBox17.Text)
        	RegisterHotKey(Me.Handle, 17, Key_NONE, MyKey)
    	Else
        	UnregisterHotKey(Me.Handle, 17)
    	End If
	End Sub
End Class