VBScript設(shè)置和獲取剪切板內(nèi)容的方法

 Automation中經(jīng)常需要程序和剪切板交互，還在使用鍵盤一個一個input？內(nèi)容多的話，豈不是太慢了，使用剪切板的黏貼復(fù)制，so fast,so easy……具體需要調(diào)用Microsoft Forms 2.0 Object Library的對象和方法，用它輕松實現(xiàn)設(shè)置和獲取剪切板的內(nèi)容，下面寫了2個設(shè)置和獲取剪切板內(nèi)容的函數(shù)，需要的時候直接調(diào)用~

 '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