How to send a key command to a Web object

Some Web objects will perform actions when certain key commands, such as ALT+RETURN, are entered. These Web objects do not have a type method associated with them that can be used to replay these keys. How can the key combination be replayed?

——————————————————————————–

Solution: Use the Windows Scripting SendKeys method

1. Create a WScript.Shell object.
2. Activate the browser in which you want to execute the keys.
3. Use the SendKeys method to type the key combination.

Example:
‘ This code executes the CTRL+F key combination (search) on a browser.
Set WshShell = CreateObject(“WScript.Shell”)
WshShell.AppActivate “Put the label of the browser” ‘ Activate the browser window
wait(3)
WshShell.SendKeys “^f” ‘ The caret (^) represents the CTRL key.
wait(2)

object.SendKeys(string)

object
A WshShell object.

string
The string value indicating the keystroke(s) you want to send.

The SendKeys method will send keystroke(s) to the active window. To send a single character (for example, x), use “x” as the string argument. To send multiple characters (for example, abc), use “abc” as the string argument. You can also send special characters such as SHIFT, CTRL, and ALT, which are represented by the plus sign (+), the caret (^), and the percent sign (%), respectively.

For more information on the SendKeys method and other special keys, such as the backspace or a function key, please refer to the MSDN SendKeys Method page.

‘ Name: KeyboardShortCut
‘
‘ Input:
‘ ByRef Key As Variant – The keyboard key to be typed.
‘ ByRef Pane As Variant – The window/pane to type in.

‘ Purpose: To type keyboard input onto the open window.
‘=======================================================================
Function KeyboardShortCut (Key)
dim obj
Set obj = Window(“Window Name” ).WinObject(“Object”)
obj.type Key
Environment(“LastResult”) = “Success”
End Function

Solution2: Pressing Function keys should be recorded automatically

Directly recording on the application and pressing the Function Keys (F1, F2, etc.) should generate code for replay.

Example:
‘Here is an example recorded against Notepad:
Window(“Notepad”).Activate
Window(“Notepad”).WinEditor(“Edit”).Type micF5

If the above does not work, then you can use DeviceReplay to simulate pressing keyboard keys.

Example:
‘Here is an example that does the same thing above, but used DeviceReplay.
Set obj = CreateObject(“Mercury.DeviceReplay”)
Window(“Notepad”).Activate
obj.PressKey 63

Note:
The PressKey method uses the appropriate ASCII or IBM Scan Code value for the key. “63″ is the IBM Scan Code value for F5.