zoukankan      html  css  js  c++  java
  • VBS操作剪切板

    '设置剪切板的内容
    Dim Form, TextBox
    Set Form = CreateObject("Forms.Form.1")
    Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
    TextBox.MultiLine = True
    TextBox.Text = "忘记了,喜欢一个人的感觉"
    TextBox.SelStart = 0
    TextBox.SelLength = TextBox.TextLength
    TextBox.Copy
    '获取剪切板的内容
    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
     WScript.Echo TextBox.Text
    End If

    方式一:

    Sub SetClipboardText(Text)   '写入信息到剪切板
        Set objIE = CreateObject("InternetExplorer.Application")
        objIE.Navigate("about:blank")
        objIE.Document.ParentWindow.ClipboardData.SetData "text", Text
        objIE.Quit
    End Sub

    Function GetClipboardText()   '剪切读取板信息
        Set objIE = CreateObject("InternetExplorer.Application")
        objIE.Navigate("about:blank")
        GetClipboardText = objIE.Document.ParentWindow.ClipboardData.GetData("text")
        objIE.Quit
    End Function

    方式二:

    Sub SetClipboardText(Text)   '写入信息到剪切板
        Set wsShell = CreateObject("WScript.Shell")
        wsShell.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Text &Chr(34)& ")(close)",0,True
    End Sub

    Function GetClipboardText()   '剪切读取板信息
        Set objHTML=CreateObject("htmlfile") 'xmlfile、mhtmlfile也可以
        GetClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")
    End Function

    注:以上方式二中的写入到剪切板也可写成:wsShell.Run "mshta vbscript:ClipboardData.SetData(""text"","&Chr(34)& Text &Chr(34)& ")(close)",0,True   即VBS连着写的两个双引号转义为一个引号,这样可减少使用Chr(34)来替代;

     
  • 相关阅读:
    cpp:博文_注意
    Algs4-1.2(非习题)String
    Algs4-1.2(非习题)几何对象中的一个2D用例
    Algs4-1.2.19字符串解析
    Algs4-1.2.18累加器的方差
    Algs4-1.2.17有理数实现的健壮性
    Algs4-1.2.16有理数
    Algs4-1.2.15基于String的split()的方法实现In中的静态方法readInts()
    Algs4-1.2.13实现Transaction类型
    Algs4-1.2.14实现Transaction中的equals()方法
  • 原文地址:https://www.cnblogs.com/futrueface/p/4123407.html
Copyright © 2011-2022 走看看