|
Displaying Source Code(s)
|
|
Send Keys
--------------------------------------------------------------------------------
Description : This will use skeys.dll to send keystrokes to an
application
<html>
<head>
</head>
<body>
<%
Dim objKeys
Dim bSuccess
Set objKeys = CreateObject("SKey.SKeys")
bSuccess = objKeys.ActivateApp("Microsoft Word")
If bSuccess Then objKeys.SendKeystrokes("The quick brown fox")
Set objKeys = Nothing
Response.Write (bSuccess)
%>
test
</body>
</html>
--------------------------------------------------------------------------------
|
|
|