[贴士] 读剪贴板的内容

SzAngel

在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz

VBS Set objIE = CreateObject("InternetExplorer.Application")
VBS objIE.Navigate("about:blank")
VBS strdate = objIE.document.parentwindow.clipboardData.GetData("text")
VBS objIE.Quit
VBSCall Call MessageBox("剪贴板的内容是："& strdate)



//strdate：保存写入或读取剪贴板内容的变量
VBS strdate="风花雪月"
Gosub WriteClip
VBS strdate="按键精灵"
Gosub ReadClip
VBSCall Call MessageBox(strdate)
EndScript


Sub WriteClip
    VBS Set objIE = CreateObject("InternetExplorer.Application")
    VBS objIE.Navigate("about:blank")
    VBS objIE.document.parentwindow.clipboardData.SetData "text", strdate
    VBS objIE.Quit
Return
Sub ReadClip
    VBS Set objIE = CreateObject("InternetExplorer.Application")
    VBS objIE.Navigate("about:blank")
    VBS strdate = objIE.document.parentwindow.clipboardData.GetData("text")
    VBS objIE.Quit
Return