请选择 进入手机版 | 继续访问电脑版
查看: 206|回复: 0

[.NET开发] VBScript发送数据到剪贴板

3万

主题

3万

帖子

10万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
100197
发表于 2015-11-23 17:52:01
VBScript发送数据到剪贴板
                   
            
  1. Set objIE = CreateObject("InternetExplorer.Application")
  2. objIE.Navigate("about:blank")
  3. objIE.document.parentwindow.clipboardData.SetData "text", "test"
  4. objIE.Quit
复制代码
                                           
                                       
                                       
            
  1. Set forms=WScript.CreateObject("forms.form.1")
  2. Set textbox=forms.Controls.Add("forms.textbox.1").Object
  3. With textbox
  4. .multiline=True
  5. .text="脚本之家 www.jb51.net"
  6. .selstart=0
  7. .sellength=Len(.text)
  8. .copy
  9. End With
复制代码
                                           
                                       
                                       
            
  1.     Dim WshShell
  2.     set WshShell = CreateObject("wscript.Shell")
  3.     str = "忘记了,喜欢一个人的感觉"
  4.     WshShell.Run "cmd.exe /c echo " & str & " | clip",0,False
  5. 用Word.Application也可以设置和获取剪贴板内容
  6.     '设置剪切板的内容
  7.     Dim Word
  8.     Set Word = CreateObject("Word.Application")
  9.     Word.Documents.Add
  10.     Word.Selection.Text = "忘记了,喜欢一个人的感觉"
  11.     Word.Selection.Copy
  12.     Word.Quit False
  13.     '获取剪切板的内容
  14.     Dim Word
  15.     Set Word = CreateObject("Word.Application")
  16.     Word.Documents.Add
  17.     Word.Selection.PasteAndFormat(wdFormatPlainText)
  18.     Word.Selection.WholeStory
  19.     str = Word.Selection.Text
  20.     Word.Quit False
  21.     WScript.Echo str
  22. 最神奇的是用Microsoft Forms 2.0 Object Library。
  23.     '设置剪切板的内容
  24.     Dim Form, TextBox
  25.     Set Form = CreateObject("Forms.Form.1")
  26.     Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
  27.     TextBox.MultiLine = True
  28.     TextBox.Text = "忘记了,喜欢一个人的感觉"
  29.     TextBox.SelStart = 0
  30.     TextBox.SelLength = TextBox.TextLength
  31.     TextBox.Copy
  32.     '获取剪切板的内容
  33.     Dim Form, TextBox
  34.     Set Form = CreateObject("Forms.Form.1")
  35.     Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
  36.     TextBox.MultiLine = True
  37.     If TextBox.CanPaste Then
  38.      TextBox.Paste
  39.      WScript.Echo TextBox.Text
  40.     End If
复制代码


回复

使用道具 举报