实时监视复制剪贴板文本内容的变化

.子程序 处理, 整数型, , 不要修改该子程序的返回值及参数的类型！
.参数 a句柄, 整数型
.参数 消息, 整数型
.参数 参数1, 整数型
.参数 参数2, 整数型

.如果真 (消息 ＝ #WM_DRAWCLIPBOARD 且 已经清除文本 ≠ “真”)
取文本子程序 ()
.如果真结束
返回 (CallWindowProcA (默认窗口, a句柄, 消息, 参数1, 参数2))

.子程序 取文本子程序
.局部变量 aa, 文本型

.如果 (剪辑板中可有文本 () ＝ 真)
aa ＝ 取剪辑板文本 ()
编辑框1.内容 ＝ 编辑框1.内容 ＋ aa
清除剪辑板 ()
已经清除文本 ＝ “真” ' 用这个变量限制它监视本次剪贴板内容
置剪辑板文本 (aa) ' 修变前一句柄，让浏览器关闭是不会产生剪贴板事件
已经清除文本 ＝ “” ' 用这个变量恢复它监视下次剪贴板内容