VBS如何访问剪贴板
发表于:2024-10-18 作者:千家信息网编辑
千家信息网最后更新 2024年10月18日,这篇文章主要介绍了VBS如何访问剪贴板,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。代码如下:Set IE = CreateObjec
千家信息网最后更新 2024年10月18日VBS如何访问剪贴板
这篇文章主要介绍了VBS如何访问剪贴板,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。
代码如下:
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate("about:blank")
Set clipboard = IE.document.parentWindow.clipboardData
'SetData设置剪切板的内容
clipboard.SetData "text", "忘记了,喜欢一个人的感觉"
'GetData获取剪切板的内容
WScript.Echo clipboard.GetData("text")
IE.Quit
实践证明,网上一搜一大把的代码一般不是好代码。SetData方法其实是和IE浏览器的设置有关的。
IE8的默认设置是Prompt,所以运行上面那个脚本的时候会弹出一个对话框,如果这是成Disable,那么这个脚本就无法设置剪贴板内容了(获取不受影响)。
这种没有保证的代码还是少用一些的好,在Windows 7下可以用clip.exe来设置剪贴板的内容,获取的话还是用IE就行了。
Dim WshShellset WshShell = CreateObject("wscript.Shell")str = "忘记了,喜欢一个人的感觉"WshShell.Run "cmd.exe /c echo " & str & " | clip",0,False
用Word.Application也可以设置和获取剪贴板内容
'设置剪切板的内容Dim WordSet Word = CreateObject("Word.Application")Word.Documents.AddWord.Selection.Text = "忘记了,喜欢一个人的感觉"Word.Selection.CopyWord.Quit False
'获取剪切板的内容Dim WordSet Word = CreateObject("Word.Application")Word.Documents.AddWord.Selection.PasteAndFormat(wdFormatPlainText)Word.Selection.WholeStorystr = Word.Selection.TextWord.Quit FalseWScript.Echo str
最神奇的是用Microsoft Forms 2.0 Object Library。
'设置剪切板的内容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如何访问剪贴板"这篇文章对大家有帮助,同时也希望大家多多支持,关注行业资讯频道,更多相关知识等着你来学习!
内容
剪切
剪贴板
剪贴
个人
代码
感觉
篇文章
脚本
还是
神奇
一搜
价值
兴趣
同时
对话框
方法
时候
更多
朋友
数据库的安全要保护哪些东西
数据库安全各自的含义是什么
生产安全数据库录入
数据库的安全性及管理
数据库安全策略包含哪些
海淀数据库安全审计系统
建立农村房屋安全信息数据库
易用的数据库客户端支持安全管理
连接数据库失败ssl安全错误
数据库的锁怎样保障安全
海南生鲜软件开发
微服务可以部署在单台服务器上吗
保险公司软件开发工程师有前途吗
我的世界pc端服务器怎么开
查看服务器ip地址cmd
怀柔区综合网络技术服务质量推荐
东川区综合软件开发市场价
工业服务器安全
软件开发中会遇到的问题
艾尔法登环无法登录服务器
高校网络安全知识答题
海康威视广播服务器
深圳腾诚软件开发有限公司
使命召唤17怎么切换服务器
网络安全行业售前技术
长春翔拓网络技术
中小企业与网络安全培训
git服务器 安全
北京正规软件开发如何收费
哪儿可以租服务器
天涯数据库考试前一天
如何评价一个软件开发人员投入度
吉林党员教育软件开发公司
12月15日网络安全
区域服务器的意思
网络技术证书备考
高并发是否用分布式数据库
倩女幽魂为什么有些服务器找不到
标准网络技术推广
天津手机软件开发商