Well if you want do it with WM_KEYDOWN then the keycodes are the same as the Ascii values, but it'll all be in the same case:
Perhaps try WM_CHARVB Code:
Dim sText As String, N As Long sText = "something" For N = 1 to Len(sText) PostMessage hWnd1, WM_KEYDOWN, Asc(Mid$(sText, N, 1)), 0 PostMessage hWnd1, WM_KEYUP, Asc(Mid$(sText, N, 1)), 0 Next N




Reply With Quote