‘设置剪切板的内容Dim Form, TextBoxSet Form = CreateObject("Forms.Form.1")Set TextBox = Form.Controls.Add("Forms.TextBox.1").ObjectTextBox.MultiLine = TrueTextBox.Text = "忘记了，喜欢一个人的感觉"TextBox.SelStart = 0TextBox.SelLength = TextBox.TextLengthTextBox.Copy‘获取剪切板的内容Dim Form, TextBoxSet Form = CreateObject("Forms.Form.1")Set TextBox = Form.Controls.Add("Forms.TextBox.1").ObjectTextBox.MultiLine = TrueIf TextBox.CanPaste Then TextBox.Paste WScript.Echo TextBox.TextEnd If

VBS操作剪切板