发现剪帖板的秘密

原创 2001年04月29日 11:27:00

[注:这是我以前收藏的一篇好文章,与大家一起共享]

概述
  Windows 中的Ctrl+C 和Ctrl+V 大家应该很熟悉了,但是您知道剪帖板里有啥?
  举个例子,在IE4中选一段东东,按Ctrl+C,然后在FrontPage 中按Ctrl+V,您选的东东完整地拷贝到了FrontPage 中,字体,颜色等等。明显,剪帖板中一定包含了Html信息,而如果我们在编程也要得到这些信息,该怎么办呢?
  本文提供了两种技巧,一是如何得到关于剪贴格式的名称,一是如何用文本格式显示剪贴版中特定剪贴格式内容。
  在我们的第一个演示中,利用一个很笨的方法来得到Html剪贴格式的名称。                 GetClipboardFormatName可以由剪贴板的ID得到该格式的名称,于是用一个循环来查找所有包含Html文字的格式。
  在第二个例子中,我们使用了在例子一中得到的名称,把在IE4中剪贴的Html内容合并到一个TextBox 中, 好让我们知道里面有什么样的信息。

实现步骤

例子一 得到剪贴格式的名称
1 新建一个工程。
2 在工程中增加一个命令按钮(Command1)。
3 增加下面的代码:

Private Declare Function GetClipboardFormatName Lib "user32" Alias "GetClipboardFormatNameA" (ByVal wFormat As Long, ByVal lpString As String, ByVal nMaxCount As Long) As Long

Private Sub Command1_Click()
  Dim FormatID As Long
  Dim BufferLen As Long
  Dim Buffer As String * 80
   For FormatID = 50000 To 60000 ’一般有效的 ID 在该区内
   BufferLen = GetClipboardFormatName(FormatID, Buffer, 80)
   If BufferLen > 0 Then
   If InStr(UCase(Left(Buffer, BufferLen)), "HTML") > 0 Then
     MsgBox FormatID & ":" & Buffer
   End If
   Next
End Sub


   运行该程序, 可以发现多个带 Html 的格式名称, 经过测试,HTML Format是我们要找的。 注意: 没有 IE4 的话, 可以使用 RTF 进行查询, 以查看 RichText 的剪贴内容。

例子二 得到 IE4 的剪贴内容
1 新建一个工程。
2 在工程中增加一个命令按钮(Command1), 一个TextBox(Text1), 允许多行显示。
3 增加下面的代码:

Private Declare Function OpenClipboard Lib "USER32" (ByVal hWnd As Long) As Long
Private Declare Function CloseClipboard Lib "USER32" () As Long
Private Declare Function GetClipboardData Lib "USER32" (ByVal wFormat As Long) As Long
Private Declare Function IsClipboardFormatAvailable Lib "USER32" (ByVal wFormat As Long) As Long
Private Declare Function RegisterClipboardFormat Lib "USER32" Alias "RegisterClipboardFormatA" (ByVal lpString As String) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

Public Function GetClipboardIDForCustomFormat(ByVal sName As String) As Long
  Dim wFormat As Long
  wFormat = RegisterClipboardFormat(sName & Chr$(0))
  If (wFormat > &HC000&) Then
   GetClipboardIDForCustomFormat = wFormat
  End If
End Function

Public Function GetClipboardDataAsString(ByVal hWndOwner As Long, ByVal lFormatID As Long) As String
 Dim bData() As Byte
 Dim hMem As Long
 Dim lSize As Long
 Dim lPtr As Long

 If (OpenClipboard(hWndOwner)) Then
  If (IsClipboardFormatAvailable(lFormatID) <> 0) Then
   hMem = GetClipboardData(lFormatID)
    If (hMem <> 0) Then
     lSize = GlobalSize(hMem)
      If (lSize > 0) Then
        lPtr = GlobalLock(hMem)
          If (lPtr <> 0) Then
           ReDim bData(0 To lSize - 1) As Byte
           CopyMemory bData(0), ByVal lPtr, lSize
           GlobalUnlock hMem

           GetClipboardDataAsString = StrConv(bData, vbUnicode)
          End If
      End If
    End If
  End If
  CloseClipboard
 End If

End Function


Private Sub Command1_Click()
Dim lID As Long
Dim sText As String

’ 如果没有 IE4,可以使用 "RTF Format"
 lID = GetClipboardIDForCustomFormat("HTML Format")
 If (lID <> 0) Then
  sText = GetClipboardDataAsString(Me.hWnd, lID)
  Text1.Text = sText
 End If

End Sub

  运行该程序。在IE4 中选任意的东东,按Ctrl+C,然后按 Command1,可以在Text1 中看到如下的内容, 汉字显示问题与GetClipboardDataAsString = StrConv(bData, vbUnicode)有关:
 

 

vim 剪帖板

vim 剪贴板 1.Shift+Insert:将系统中的剪贴板上的内容复制到vim上 2.VIM具有多个剪切板,目的是为了用户在做较复杂的字符处理的时候,可以更方便的复制粘贴。使用一下":...
  • laogaoAV
  • laogaoAV
  • 2013年07月28日 18:00
  • 561

Java中的剪切板操作

Java提供两种类型的剪贴板:系统的和本地的. 本地剪贴板只在当前虚拟机中有效.Java允许多个本地剪贴板同时存在,可以方便地通过剪贴板的名称来进行存取访问. 系统剪贴板与同等操作系统直接关连,允...
  • paul50060049
  • paul50060049
  • 2016年07月06日 13:48
  • 464

javascritp操作剪帖板

源:textarea name="CopySource" id="CopySource">textarea>目标:textarea name="Destination" id="Destination...
  • LEOlws
  • LEOlws
  • 2007年12月04日 09:57
  • 817

《秘密》卷一:秘密-秘密的发现

《秘密》卷一:秘密-秘密的发现
  • gdut2015go
  • gdut2015go
  • 2015年11月26日 16:57
  • 259

java复制文本文件

方法一 public class Copy { public static void main(String[] args) throws IOException { //建立输入输出 ...
  • z83986976
  • z83986976
  • 2014年10月03日 16:57
  • 655

复制文本内容到剪帖板

http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd" target="_blank">http://www.w3.org/TR/xhtml1/DTD/x...
  • david_520042
  • david_520042
  • 2008年07月13日 16:45
  • 1232

复制文本到剪帖板

Ajax中国欢迎你.... copy
  • jiafugui
  • jiafugui
  • 2009年07月20日 09:53
  • 429

用Java实现拷贝文本文件

拷贝文本文件 例:将c盘下的文件复制到D盘 复制原理:将C盘下文件数据存储到D盘的文件中 步骤: 1。D中创建一个文件, 2.第一读取流和C盘文件关联 3.通过不断的读写完成数据存储 4...
  • fordushao
  • fordushao
  • 2017年02月22日 14:11
  • 273

76 从C语言函数调用发现程序运行的秘密

从C语言函数调用发现程序运行的秘密
  • czg13548930186
  • czg13548930186
  • 2017年06月04日 10:06
  • 1881

复制位图到剪贴板

复制一幅位图到剪贴板相当简单,需要记住的一个是如果位图需要调色盘,你应当将调色盘也复制。函数一:复制设备相关位图到剪贴板 CopyBitmapToClipboard()函数复制一幅DDB位图到剪...
  • gaoxiaowei
  • gaoxiaowei
  • 2010年07月15日 15:38
  • 1922
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:发现剪帖板的秘密
举报原因:
原因补充:

(最多只允许输入30个字)