VB写剪切板 - 翼展电脑服务中心


VBS写入文本到剪切板

2022-9-22 乱云飞 评论(0) 浏览(111) 标签: 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
预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog