Automation中经常需要程序和剪切板交互，还在使用键盘一个一个input？内容多的话，岂不是太慢了，使用剪切板的黏贴复制，so fast,so easy……具体需要调用Microsoft Forms 2.0 Object Library的对象和方法，用它轻松实现设置和获取剪切板的内容，下面写了2个设置和获取剪切板内容的函数，需要的时候直接调用~
创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都网站建设、成都做网站、弥勒网络推广、微信平台小程序开发、弥勒网络营销、弥勒企业策划、弥勒品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联公司为所有大学生创业者提供弥勒建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com
'operating clipboard
Function setClipboard(str)
'setting clipboard's content
Dim Form, TextBox
Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
TextBox.Text = str
TextBox.SelStart = 0
TextBox.SelLength = TextBox.TextLength
TextBox.Copy
End Function
Function getClipboard
'getting clipboard's content
Dim Form, TextBox
Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
If TextBox.CanPaste Then
TextBox.Paste
getClipboard = TextBox.Text
End If
End Function
更多方法参考链接：http://demon.tw/programming/vbs-clipboard.html
