Exemple

L'exemple suivant montre comment utiliser la méthode SendKeys pour envoyer une chaîne de clés à l'espace de présentation pour la connexion associée à l'objet autECLPS.

Dim autECLPSObj as Object Dim autECLConnList as Object Set autECLPSObj = CreateObject("ZIEWin.autECLPS") Set autECLConnList = CreateObject("ZIEWin.autECLConnList") ' Initialize the connection Dim rc autECLConnList.Refresh autECLPSObj.SetConnectionByHandle(autECLConnList(1).Handle) rc = autECLPSObj.SendKeys "HCL is a really cool company", 3, 1 Msgbox rc