Sub SetClipboardText(Text) Set wsShell = CreateObject("WScript.Shell") wsShell.Run "mshta vbscript:ClipboardData.SetData(""" & "text" & """," & """ & Text & """)(close)", 0, True End Sub 从剪切板读取文本: vbscript Function GetClipboardText() Set objHTML...
Set clipboard = IE.document.parentWindow.clipboardData "SetData设置剪切板的内容 clipboard.SetData "text", "忘记了,喜欢一个人的感觉" "GetData获取剪切板的内容 WScript.Echo clipboard.GetData("text") IE.Quit 实践证明,网上一搜一大把的代码一般不是好代码。SetData方法其实是和IE浏览器的设置有关的。 IE8...
Set clipboard = IE.document.parentWindow.clipboardData 'SetData设置剪切板的内容 clipboard.SetData "text", "忘记了,喜欢一个人的感觉" 'GetData获取剪切板的内容 WScript.Echo clipboard.GetData("text") IE.Quit 实践证明,网上一搜一大把的代码一般不是好代码。SetData方法其实是和IE浏览器的设置有关的。 IE8...
以下代码保存为bat(一行),运行~~ mshta vbscript:clipboarddata.setdata("text","这里要写的字")(close) 以下代码保存为vbs(一行),运行 CreateObject("wscript.Shell").Run("cmd /c mshta vbscript:clipboarddata.setdata(""text"",""要fu制的字"")(close)"),0 注: chr(34)=" 反馈 收藏 ...
End Function 注:以上方式二中的写入到剪切板也可写成:wsShell.Run "mshtavbscript:ClipboardData.SetData(""text"","&Chr(34)& Text &Chr(34)& ")(close)",0,True 即VBS连着写的两个双引号转义为一个引号,这样可减少使用Chr(34)来替代;
首先,您需要构造一个字符串,其中包含想要的输出。然后,创建 Internet Explorer 的一个实例,然后在其中打开一个空白页。接着,利用 Internet Explorer 对象模型的内置功能,将字符串复制到剪贴板;特别是, 可以使用 clipboardData.SetData 方法来实现这个技巧。将某些数据复制到剪贴板的示例脚本如下:...
方式一：Sub SetClipboardText(Text) '写入信息到剪切板 Set objIE = CreateObject("InternetExplorer.Application")objIE.Navigate("about:blank")objIE.Document.ParentWindow.ClipboardData.SetData "text", Text objIE.Quit End Sub Function GetClipboardText() '剪切读取板信息 Set objIE = ...
win.clipboarddata.setdata"text", body.innertext ie.quit AI代码助手复制代码 如果用组件的话,代码如下: flag =1+2initialColor = &hff32eacolor=OpenColor(initialColor, flag) MsgBox"Selected color: "& hex(color) functionOpenColor(initColor, flags)setcomdlg=CreateObject("MSComDlg.CommonDialog") ...
Set clipboard = IE.document.parentWindow.clipboardData 'SetData设置剪切板的内容 clipboard.SetData "text", "忘记了,喜欢一个人的感觉" 'GetData获取剪切板的内容 WScript.Echo clipboard.GetData("text") IE.Quit 实践证明,网上一搜一大把的代码一般不是好代码。SetData方法其实是和IE浏览器的设置有关的。
set ws=createobject("wscript.shell")'创建对象，ws Set objIE = CreateObject("InternetExplorer.Application")'创建对象objIE objIE.Navigate("about:blank") '打开指定网址 objIE.document.parentwindow.clipboardData.SetData "text",a '把a的内容放到剪贴板里面 for i= 1 to 2'循环20次 Ws.App...