标题:
[贴士]
读剪贴板的内容
[打印本页]
作者:
SzAngel
时间:
2007-8-30 18:31
标题:
读剪贴板的内容
在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--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
欢迎光临 紫菀论坛 (http://bbs.szyin.com/)
Powered by Discuz! 7.1