示例

以下示例演示如何使用 SendKeys 方法将密钥字符串发送到与 autECLPS 对象关联的连接的表示空间。

Dim autECLPSObj 作为对象 Dim autECLPSObj 作为对象 Set autECLPSObj = CreateObject("ZIEWin .autECLPS") 设置 autECCLConnList = CreateObject("ZIEWin .autECLConnList") ' 初始化连接 autECLPSObj.Refresh autECLPSObj.SetConnectionByHandle(autECLConnList(1).Handle) autECLPSObj.SendKeys "HCL是一家非常酷的公司”, 3, 1