说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

发现剪帖板的秘密 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
发现剪帖板的秘密 -VB资料
概述
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


4 运行该程序, 可以发现多个带 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

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

Version:1.0
StartHTML:000000213
EndHTML:000000863
StartFragment:000000758
EndFragment:000000772
StartSelection:000000758
EndSelection:000000772
SourceURL:file://G:\FrontPage Webs\Content\vbtt\download.htm

... ...

少年企鹅的成长之旅:QQ体验设计发展史 全球超算Top 500:Linux已占93.8%,Windows或将消失 AWS东部地区再次发生宕机 Netflix等网站受影响 2012年全球最美的十个数据中心 CodeCards:程序员电子贺卡DIY项目 微软首席战略官Craig Mundie将于2014年退休 LG明年CES展新款智能电视 增强自然语言识别 微软包嘉峰:企业用户向Windows 8迁移加速 2013年10个科技预测 三维打印技术将成主流 能省电99.96%:微软开发基于云的GPS技术 十个最有用的云数据库 开源产品系列:企业级Web框架web2py 让针对Webkit优化的网站兼容WP8 IE10 CMDN Club 24期:互联网产品的演进之路——从QQ谈互联网14年进化史 360安全浏览器发布“照妖镜”和“网站名片”功能 Windows Server 2012实用教程:添加Hyper-V管理器 为何Google弃置GCE和GAE选择AWS? 2012移动应用盘点:乱象丛生 最佳与奇葩共舞 从1976至2013大事记,看Android未来命运 c#经典入门视频001基础知识-苏坤老师主讲 c#经典入门视频002学习两句话-苏坤老师主讲 c#经典入门视频003基础知识-苏坤老师主讲 回顾HTML5这一年:在痛并快乐中前进 学Apple,微软宣布2013上半年零售店建设计划 真羡慕他们:谷歌宣布Gmail电话明年继续免费 c#经典入门视频004变量-苏坤老师主讲 c#经典入门视频005变量的使用和命名规则-苏坤老师主讲 c#经典入门视频006输出变量的值(及赋值符、连接符、占位符)-苏坤老师主讲 c#经典入门视频007变量交换_输入-苏坤老师主讲 回首JavaScript这一年:笑里藏刀 百媚丛生 平板优先:Supercell游戏公司日收入100万美元 请教高手:关于定时/计数器 如何在WIN98下面安装WIN2000双启动,需注意什么? 简单问题,在线等 jsp打印设置 scriptx 怎么用lotus script打开一个表单 交流VB Microsoft Windows 2000 Professional 如何安装终端服务? adsi建的邮箱,用outlook连接exchange必须输入username@domain.com格式的帐号才能登陆,请问怎么解决? 如何实现一个任意长度的C++整型类? 一个关于ADO连接,打印报表的问题. Microsoft Windows 2000 Professional 如何安装终端服务? 从注册表中读信息 100分!!为什么我做完fla文件后,生成影片时FLASH自动提示把我的文字打散,请问各位怎么解决??? Microsoft Windows 2000 Professional 如何安装终端服务? 一个奇怪的现象:Delete键在TextBox中失灵 怎么样屏蔽键盘上的print screen键? 为什么一调用office就死机? 谁有Ide.sys、cdrom.sys这两个文件和两个文件的原代码啊! 请问: 当J2EE开发C/S模式时,我的C端要不要装J2EE平台啊?(在线等) 局域网中,一些电脑可以PING通局域网内所以电脑的IP,但是网站邻居就是无法查找到? 委托中要求进行参数传递,应该怎样做,谁帮帮我? *>>--谁做过日历以及日历相关-- 如何卸载windows 2003 server,再重新安装windows 2000 server? 请问将Interbase中两个Varchar型字段连接起来的查询语句怎么写? 域名设置问题?? 为什么微波和X光能穿透介质,而波长介于它们之间的可见光恰不能? 生成EXE问题! Transaction Data Module 和 ADO 问题 寻求DOMINO SERVER 得配置资料!如HTTP的配置等等。 怎么创建dll?创建dll时参数应该怎么定义?创建后怎么调用?在哪儿声明? 熟悉ADODB.Stream的大侠看过来! 在WIN32 CONSOLE APPLICATION 建立的程序中为什么不能使用CString 类 数据库恢复的简单问题 谁用过jfreereport或jaxperreport做过报表?各位大哥帮忙呀!!!--就20分了 紧急高分求助:怎么在windows的user control中加一个参数 [求助]怎样让工程加入Data Report ,菜单 工程 里没有添加Data Report 的呀? 倡导成产手机爱好者与自由开发者协会 CPU拨了会不会叫的啊。内存和显卡拨了不会有声音,一定是主板有问题吗? 我的程序都关闭了,可是为什么进程还存在,我用了多线程的? 呼救高手--急:在线等待帮忙--怪异啊! 急!在线等 浏览器关闭事件----急,谢谢 各位大虾帮帮忙!!!必有重谢!!! 求助二维数组排序问题? 那里有Delphi下载啊? 下面的代码总出错 如果指针被阉割掉以后... 哪位提供一点关于开发小型dbms系统的odbc驱动程序的资料啊? 探讨DMBS??? 关于数据库操作一问? ***禁止重复登录?*** 求“耳目须臾”解释,原文"如同人的耳目须臾不可缺一样." group是什么意思? )人君子 ( )人制宜 )人耳目 )人唯(?) 快,急事 泉水叮咚水一弯是什么意思 小学第二册语文课“识字1”中:春回大地 万物复苏柳绿花红 莺歌燕舞冰雪融化 泉水丁冬百花齐放 百鸟争鸣“泉水丁冬”是否应该是“泉水叮咚”? 泉水叮咚是什么振动发声 泉水叮咚好象什么好像什么 企鹅身上的脂肪较厚,这说明 分辨造句 泉水叮咚是由什么产生的 扇子舞有哪些 美参众两院大佬不宽恕斯诺登 将派“安印尼巴厘岛男子咖啡地中发现2000多美国新泽西一商场发生枪击事件 暂无人英内阁会议为防监听禁用iPad 高官美新泽西州商场发生枪击 在场民众描述美国西部山区蕴含创业潜力 或成下一个美威州两飞机3000米高空相撞 11德国拒绝为斯诺登提供庇护 避免影响德美建议叙问题会议11月举行 不确信反美新泽西州商场发生枪击 在场民众描述刚果(金)政府拒绝停战 要求反政府武武汉:拟投280亿元治霾 力争5年改\"回南天\"被冷空气驱走 广州后天广东拟允许用公积金支付购房首付和房租2014台湾灯会热闹持续 白天花灯也嗜酒如命!台一男子7次酒驾不知悔改第砸钱拼观光 台中市出资12亿建全台第米兰拿冠军 九爷立新功曼城打巴萨 土豪撞地球埃及伊斯兰激进组织承认对韩国游客遇袭全国“扫黄打非”工作小组办公室正式开拜登:美国制造正在挑战中国制造 世人
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘