EULANDA® ERP System Head Start thru Technology
Home Information PDF Documents EULANDA Handbooks Training Book's corner Download Contact us Table of Contents About us
Password needed Newsgroup
Method: Client.SendKeys (iScript)
Over this function the keyboard entry can be simulated by text. It is also possible to call certain program functions. For example the starting of foreign programs, sending key instructions to the foreign program and loading data back to EULANDA.
Sendkeys encapsulates the phrase functionality. The code form is the same, only a few things are different.
Parameter
Keys
The code format is the same, only a few things are different with the EULANDA® empty phrase memory. Over the main menu work on\empty phrases\empty phrases a keyboard macro for the use can be very comfortably assembled by sending keys.
Examples
A. Simple keyboard macro
This command writes the character sequence "Mit freundlichen Grüßen" to the current cursor position.
VBScript
Client.SendKeys "Mit freundlichen Grüßen" & vbCr & "The Mustermann-Team"
B. Acoustic output
A acoustic output is also available dependent on the assigned windows.
VBScript
Client.SendKeys "{SPEAK hearing is believing}"
C. Implement a foreign program with data transfer
This command starts a simple inquiry, which determines the number of addresses. After that the windows notepad will be startet and a text will be added.
VBScript
' Started a SQL command which determined the number of addresses.
sql = "SELECT Anzahl = COUNT(*) FROM Adresse"
Set rs = Client.ExecuteSql(sql ,"SQL Ausführung")
' Zusammenbauen des Makros
Macro = "{EXEC NOTEPAD}{FOCUS Unbenannt}" &_
"This is the text delivery to the notepad ..." &_
vbCr & vbLf &_
"There are now " & CStr(rs.Fields("Anzahl").Value) &_
" Addresses in the database"
' Checking the macro
Client.SendKeys Makro