Search Tools Links Login

The Better SendKeys Statement


The SendKeys statement is limited only to some keyboard presses...
While this code gives you more...
Such as:
1. You cannot send Space Keystrokes in SendKeys (I tried to do it, or maybe I just don't know how), while you can in HitKey...
HitKey Asc(" ") or
HitKey KeyCodeConstants.vbKeySpace
2. HitKey can also perform CapsLock, ScrollLock, NumLock, or other Lock, and other Keys you can find in your keyboard.. Remember to use VB Constants in "KeyCodeConstants"
code by: Ronald Borla

Original Author: Ronald Borla

Code

Option Explicit
Private Declare Sub keybd_event Lib "user32" _
  (ByVal bVk As Byte, ByVal bScan As Byte, _
  ByVal dwFlags As Long, ByVal dwExtraInfo As _
  Long)

Private Declare Function MapVirtualKey _
  Lib "user32" Alias "MapVirtualKeyA" _
  (ByVal wCode As Long, ByVal _
  wMapType As Long) As Long

Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
Public Sub HitKey(ByVal KeyCode As Integer)
'Send the key down
Call keybd_event(KeyCode, _
   MapVirtualKey(KeyCode, 0), _
   KEYEVENTF_EXTENDEDKEY Or 0, 0)
'Send the key up        
Call keybd_event(KeyCode, _
   MapVirtualKey(KeyCode, 0), _
   KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
DoEvents
End Sub
'###############################################
'Example for the use of the code:
'In you Timer Event
Private Sub tmrKeyPress_Timer()
'Sends Key Spaces every timer event
HitKey KeyCodeConstants.vbKeySpace
End Sub
'Use the VB Default KeyCodeConstants for easier
'use for this code.
'###############################################

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 112 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.