Visual Basic

<StructLayout(LayoutKind.Sequential)> _<br />
Public Structure KEYBOARDINFO       <br />
    Public KeyboardID As Int32<br />
    Public KbdName(0 To 255) As Byte<br />
    Public pKeyboard As Int32<br />
End Structure

<br />
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        'Opens File Specified as .txt only<br />
        Dim openFile As New System.Windows.Forms.OpenFileDialog<br />
        openFile.DefaultExt = "txt"<br />
        openFile.Filter = "Text documents (*.txt)|*.txt"<br />
        openFile.ShowDialog()<br />
        If openFile.FileNames.Length > 0 Then<br />
            Dim filename As String<br />
            For Each filename In openFile.FileNames<br />
                ' Displays path of text file to listBox1<br />
                ListBox1.Items.Add(filename)<br />
                'Displays content of selected text file to listBox2<br />
                Dim file As New System.IO.StreamReader(filename)<br />
                Dim oneLine As String<br />
                oneLine = file.ReadLine()<br />
                While (oneLine <> "")<br />
                    ListBox2.Items.Add(oneLine)<br />
                    oneLine = file.ReadLine()<br />
                End While<br />
                file.Close()<br />
            Next<br />
        End If<br />
    End Sub<br />
    Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
        'Checks to check if items in listbox2 are selected<br />
        Dim n As String<br />
        n = ListBox2.Text<br />
        If n = "" Then MsgBox("No Process Selected!", MsgBoxStyle.Information, "Process Not Selected")<br />
        'Compares items in textbox2 against running processes, if found it kills it<br />
        Dim lined As String<br />
        Dim proc() As Process<br />
        Dim i As Integer<br />
        Dim prokill As Boolean<br />
        lined = (ListBox2.Text)<br />
        proc = Diagnostics.Process.GetProcesses<br />
        For i = 0 To proc.Length - 1<br />
            If proc(i).ProcessName = lined Then<br />
                Try<br />
                    proc(i).Kill()<br />
                    prokill = True<br />
                Catch ex As Exception<br />
                    Exit Sub<br />
                End Try<br />
            End If<br />
        Next i<br />
<br />
        'removes killed processes from listbox2<br />
        ListBox2.Items.Remove(ListBox2.Text)<br />
        ListBox2.SelectedIndex = -1<br />
        'ListBox2.Items.Clear()<br />
    End Sub<br />