VBS实现将字符串写入剪切板的实现代码

函数代码:


代码如下:

Sub CopyString(s)
Set forms=WScript.CreateObject("forms.form.1")
Set textbox=forms.Controls.Add("forms.textbox.1").Object
With textbox
.multiline=True
.text=s
.selstart=0
.sellength=Len(.text)
.copy
End With
End Sub

'调用


代码如下:

CopyString "我们 www.jb51.net"

完整测试代码


代码如下:

Sub CopyString(s)
Set forms=WScript.CreateObject("forms.form.1")
Set textbox=forms.Controls.Add("forms.textbox.1").Object
With textbox
.multiline=True
.text=s
.selstart=0
.sellength=Len(.text)
.copy
End With
End Sub
CopyString "我们 www.jb51.net"
msgbox "ok"

赞 (0)

相关推荐

  • VBS访问剪贴板的几种方法小结

    VBS访问剪贴板的几种方法小结

    复制代码 代码如下: Set IE = CreateObject("InternetExplorer.Application") IE.Navigate("about:blank") Set clipboard = IE.document.parentWindow.clipboardData 'SetData设置剪切板的内容 clipboard.SetData "text", "忘记了,喜欢一个人的感觉" 'GetData获取

  • VBS实现将字符串写入剪切板的实现代码

    函数代码: 复制代码 代码如下: Sub CopyString(s) Set forms=WScript.CreateObject("forms.form.1") Set textbox=forms.Controls.Add("forms.textbox.1").Object With textbox .multiline=True .text=s .selstart=0 .sellength=Len(.text) .copy End With End Sub '调

  • VBS如何察看或获得剪切板内容的脚本

    复制代码 代码如下: Set objHTML=CreateObject("htmlfile")  'xmlfile.mhtmlfile都可以 ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text") MsgBox ClipboardText

  • JS复制内容到剪切板的实例代码(兼容IE与火狐)

    复制代码 代码如下: <mce:script type="text/javascript"><!--function copyToClipboard(meintext){    //ie    if (window.clipboardData){        window.clipboardData.setData("Text", meintext);    }    else if (window.netscape)    {        t

  • python写入并获取剪切板内容的实例

    写桌面程序或有些特殊操作的,经常需要访问剪切板.python有专用的模块,可以很方便简单的操作剪切板 如下: #coding:utf-8 import win32clipboard as w import win32con #获取剪切板内容 def gettext(): w.OpenClipboard() t = w.GetClipboardData(win32con.CF_TEXT) w.CloseClipboard() return t #写入剪切板内容 def settext(aStrin

  • python 如何执行控制台命令与操作剪切板

    python 如何执行控制台命令与操作剪切板

    Windows系统 一 .执行控制台指令方法 例如打开QQ 1. 使用os库中的system函数 import os os.system('start D:\\QQ\\QQ.exe') '''如果不加start,打开QQ后控制台窗口不关闭,直到QQ关闭,控制台窗口才关闭 一条os.system()语句执行完成控制台会关闭,所以当执行后续命令需要依赖前面的命令时,将多条命令写到一条 os.system()语句内,多条控制台命令用 && 连接''' 2. 同样是os库中的 import os

  • 支持ie与FireFox的剪切板操作代码

    复制代码 代码如下: <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>支持ie与FireFox的剪切板代码</title> <script type="text/javascript"> function setCopy(_sTxt){ try{ if(window.clipboardData){ window.clipboardData.

  • 支持多浏览器(IE、Firefox、Opera)剪切板复制函数_脚本之家修正版

    需要注意的是,firefox下必须要设置下 signed.applets.codebase_principal_support 在 firefox浏览器地址栏输入about:config 过滤器中输入signed.applets.codebase_principal_support双击设置为true即可支持.因为firefox默认情况下是不支持脚本操作剪切板的. 因为只是什么都不支持的浏览器才是最安全的浏览器. function copyToClipboard(txt) { if(window.

  • Python使用剪切板的方法

    此段代码可以利用剪切板,完成自动复制粘贴等功能.(Windows) import sys import os.path import win32clipboard as w import win32con import win32api def getText():#读取剪切板 w.OpenClipboard() d = w.GetClipboardData(win32con.CF_TEXT) w.CloseClipboard() return d def setText(aString):#写

  • Swift3.0剪切板代码拷贝及跨应用粘贴实现代码

    有个需求,点击某个按钮,实现一段内容的拷贝,然后到其他应用内,直接长按粘贴. 实现如下: override func viewDidLoad() { super.viewDidLoad() // Do any additional setup after loading the view. view.backgroundColor = UIColor.white //应用内实现粘贴,这个txt用来测试的 let txt = UITextField(frame: CGRect(x: 100, y:

  • 原生js实现点击按钮复制内容到剪切板

    原生js实现点击按钮复制内容到剪切板

    本文实例为大家分享了js点击按钮复制内容到剪切板的具体代码,供大家参考,具体内容如下 效果图 上代码 <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width, initial-scale=1.0">

随机推荐