Ok, now that I can capture the keystrokes for the UPC program, I have an issue with getting the numpad numbers.
How can get thevkCode to convert correctly and it not matter where it came from? I can use Chr to get the home numbers, but the numpad pulls back different codes and Chr brings back lower-case versions of letters.
I rather not use a select structure to accomplish this either.
Code:Private Sub kbHook_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles kbHook.KeyPress Dim upc As String 'The enter/ctrl key was press so we need to check if it has the right data If Asc(e.KeyChar) = Keys.Enter Or Asc(e.KeyChar) = Keys.LControlKey Or Asc(e.KeyChar) = Keys.RControlKey Then 'If the length of the string is >= to the specified length 'process it and the clear the array for the next keystrokes If (upcInput2.ToString.Length >= config.UPCLength) Then upc = Me.ParseUPC(upcInput2.ToString.Substring(0, config.UPCLength)) WebBrowser1.Navigate(config.BaseURL & upc) sLabelUPC.Text = upc Me.upcHistory.AddItem(Now, slblUser.Text, upc) upcInput2.Remove(0, upcInput2.Length) Else 'The enter key was pressed but we didn't have enough characters for a UPC 'remove all characters and start over. upcInput2.Remove(0, upcInput2.Length) End If Else 'We are looking for a UPC, if the character isn't numeric, we don't care about it 'and should clear the array If IsNumeric(e.KeyChar) Then upcInput2.Append(e.KeyChar) Else upcInput2.Remove(0, upcInput2.Length) End If End If End Sub


Reply With Quote