VBScript设置和获取剪切板内容的方法-创新互联

Automation中经常需要程序和剪切板交互，还在使用键盘一个一个input？内容多的话，岂不是太慢了，使用剪切板的黏贴复制，so fast,so easy……具体需要调用Microsoft Forms 2.0 Object Library的对象和方法，用它轻松实现设置和获取剪切板的内容，下面写了2个设置和获取剪切板内容的函数，需要的时候直接调用~

成都创新互联服务项目包括丹徒网站建设、丹徒网站制作、丹徒网页制作以及丹徒网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，丹徒网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到丹徒省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

 '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

当前文章：VBScript设置和获取剪切板内容的方法-创新互联
浏览路径：http://cdiso.cn/article/dcepdp.html