求一段有复制功能的VBS脚本代码,正确加分

2025-01-30 14:07:49

推荐回答（2个）

回答1：

dim aa
set aa=wscript.createobject("wscript.shell")
wscript.sleep 2000 ' 等待2秒
aa.sendkeys "^{c}" ' 按ctrl+c
如果好使就选我啊！
不明白给我留言

回答2：

不用sendkeys的话用下面代码，不过只能复制文字：

dim strCopy
Set objIE = CreateObject("InternetExplorer.Application")
'Set objie=WScript.CreateObject("internetexplorer.application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit