将字符串复制进剪贴板

strCopy = "This text has been copied to the clipboard." 
Set ōbjIE = CreateObject("InternetExplorer.Application") 
objIE.Navigate("about:blank") 
objIE.document.parentwindow.clipboardData.SetData "text", strCopy 
objIE.Quit

'再从剪贴板复制到编辑器

Browser("网易电子邮箱 - 极速3.0Beta").Page("网易电子邮箱 - 极速3.0Beta").Frame("index").WebEdit("WebEdit_2").Object.focus
wait 1
Set wshShell = CreateObject("Wscrīpt.Shell")
wshShell.SendKeys "{TAB}"
wait 1
wshShell.SendKeys "^v"
wait 2