VBS写入文本到剪切板 - 洛阳翼展电脑


VBS写入文本到剪切板

2022-9-22 乱云飞 标签: VB源码 VB写剪切板

Dim strCopy
strCopy="翼展科技版权所有 http://80c.cc"
Call SetClipboardText(strCopy)

Sub SetClipboardText(Text)   '写入信息到剪切板
    Dim wsh
    Set wsh = CreateObject("WScript.Shell")
    wsh.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Text &Chr(34)& ")(close)",0,True
    set wsh=Nothing
End Sub
本文链接：http://80c.cc/ez/585.html
0
上一篇 / VBS获取本机内网IP地址并写入到剪切板
下一篇 / VB源码，获取计算机名

发表评论：

VirtualCamera：在录像机中虚拟一个通道显示电脑桌面、视频文件、USB摄像头~
预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog