多应用+插件架构,代码干净,二开方便,首家独创一键云编译技术,文档视频完善,免费商用码云13.8K 广告
## **描述** 粘贴内容,可以是一个字符串也可以是一个文件,默认为字符串形式,如果是文件请传递第二个参数为true ## **语法** Paste(*strKeys[, isFile = False]*) **该语法中有下列命名参数:** | 参数 | 描述 | | --- | --- | | strKeys| String类型。表示要粘贴的字符串。 | | isFile | 可选的。Boolean 类型,表示粘贴目标是否是文件类型。如果忽略,缺省值是 False,它表明默认不是文件而是字符串。 | ## **返回值** | 无 | | --- | | - | ## **示例** > **示例1** 说明:本代码是测试粘贴**字符串**。测试前请先点开微信或QQ消息对话框,保持焦点在输入处。 ``` Dim w As New clsWindow w.Wait 5000 '//在5秒内点开目标窗口并设置输入处为焦点,以便下句代码可以正确执行到 w.Paste "这里是测试内容" w.SendKeys "{ENTER}" '//如果是消息框可以加上回车发送出去,如果不需要发送可去掉 ``` > **示例2** 说明:本代码是测试粘贴**文件**(确保存在C:\1.txt这个文件)。测试前请先点开微信或QQ消息对话框,保持焦点在输入处。 ``` Dim w As New clsWindow w.Wait 5000 '//在5秒内点开目标窗口并设置输入处为焦点,以便下句代码可以正确执行到 w.Paste "C:\1.txt", True ``` 也可以修改代码为一个不存在的路径,测试看看效果。应该会粘贴上一句:"error:file not exits"