.版本 2.DLL命令 加入剪貼板監(jiān)視鏈_d, 整數(shù)型, "user32.dll", "SetClipboardViewer", 公開, 成功，返回值將標(biāo)識剪貼板查看器鏈中的下一個窗口。如果出現(xiàn)錯誤或剪貼板查看器鏈中沒有其他窗口，則返回值為空。( hwndNextViewer 將為 NULL。)  .參數(shù) 窗口句柄, 整數(shù)型, , hwnd 加入剪切板監(jiān)視鏈中窗口句柄.DLL命令 設(shè)置窗口信息_d, 整數(shù)型, "user32", "SetWindowLongA", 公開, 在窗口結(jié)構(gòu)中為指定的窗口設(shè)置信息 指定數(shù)據(jù)的前一個值  .參數(shù) 窗口句柄, 整數(shù)型, , hwnd，欲為其取得信息的窗口的句柄  .參數(shù) 窗口信息值, 整數(shù)型, , nIndex，請參考GetWindowLong函數(shù)的nIndex參數(shù)的說明  .參數(shù) 窗口信息新值, 整數(shù)型, , dwNewLong，由nIndex指定的窗口信息的新值.DLL命令 發(fā)送消息_d, 整數(shù)型, "user32", "SendMessageA", 公開, 調(diào)用一個窗口的窗口函數(shù)，將一條消息發(fā)給那個窗口。  .參數(shù) 窗口句柄, 整數(shù)型, , hwnd,要接收消息的那個窗口的句柄  .參數(shù) 信息值, 整數(shù)型, , wMsg,消息的標(biāo)識符  .參數(shù) 參數(shù)一, 整數(shù)型, , wParam,具體取決于消息  .參數(shù) 參數(shù)二, 整數(shù)型, , lParam,具體取決于消息;.DLL命令 消息信息傳送_d, 整數(shù)型, "user32", "CallWindowProcA", 公開, 返回值指定了消息處理結(jié)果，它與發(fā)送的消息有關(guān)。  .參數(shù) lpPrevWndFunc, 整數(shù)型, , 前一窗口函數(shù)地址  .參數(shù) hwnd, 整數(shù)型, , 指向接收消息的窗口過程的句柄  .參數(shù) msg, 整數(shù)型, , 消息類型  .參數(shù) wParam, 整數(shù)型, , 指定其余的、消息特定的信息。該參數(shù)的內(nèi)容與Msg參數(shù)值有關(guān)  .參數(shù) lParam, 整數(shù)型, , 指定其余的、消息特定的信息。該參數(shù)的內(nèi)容與Msg參數(shù)值有關(guān)。.DLL命令 移除剪貼板監(jiān)視鏈_d, 整數(shù)型, "user32.dll", "ChangeClipboardChain", 公開, 從剪貼板查看窗口上刪除一個窗口 將剪貼的連接從一個句柄轉(zhuǎn)到下一個句柄。  .參數(shù) 窗口句柄, 整數(shù)型, , hWndRemove表示從剪貼板監(jiān)視鏈中移除的窗口句柄。   .參數(shù) 下一個窗口句柄, 整數(shù)型, , hWndNewNext表示觀察鏈中下一個窗口的句柄。 SetClipboardViewer 的返回值

.版本 2.程序集 窗口程序集_啟動窗口.程序集變量 下一個窗口1, 整數(shù)型.程序集變量 前一窗口1, 整數(shù)型.程序集變量 窗口句柄1, 整數(shù)型.程序集變量 下一個窗口2, 整數(shù)型.程序集變量 前一窗口2, 整數(shù)型.程序集變量 窗口句柄2, 整數(shù)型.程序集變量 下一個窗口3, 整數(shù)型.程序集變量 前一窗口3, 整數(shù)型.程序集變量 窗口句柄3, 整數(shù)型.子程序 __啟動窗口_創(chuàng)建完畢窗口句柄1 ＝ 標(biāo)簽1.取窗口句柄 ()窗口句柄2 ＝ 標(biāo)簽2.取窗口句柄 ()窗口句柄3 ＝ 標(biāo)簽3.取窗口句柄 ()前一窗口1 ＝ 設(shè)置窗口信息_d (窗口句柄1, -4, 到整數(shù) (&消息處理子程序1))前一窗口2 ＝ 設(shè)置窗口信息_d (窗口句柄2, -4, 到整數(shù) (&消息處理子程序2))前一窗口3 ＝ 設(shè)置窗口信息_d (窗口句柄3, -4, 到整數(shù) (&消息處理子程序3))標(biāo)簽1.標(biāo)題 ＝ “窗口句柄; ” ＋ 到文本 (窗口句柄1) ＋ #換行符標(biāo)簽2.標(biāo)題 ＝ “窗口句柄; ” ＋ 到文本 (窗口句柄2) ＋ #換行符標(biāo)簽3.標(biāo)題 ＝ “窗口句柄; ” ＋ 到文本 (窗口句柄3) ＋ #換行符.子程序 監(jiān)視剪貼板1下一個窗口1 ＝ 加入剪貼板監(jiān)視鏈_d (窗口句柄1)標(biāo)簽1.標(biāo)題 ＝ 標(biāo)簽1.標(biāo)題 ＋ #換行符 ＋ “下一個窗口; ” ＋ 到文本 (下一個窗口1)標(biāo)簽1.文本顏色 ＝ #紅褐.子程序 取消剪貼板監(jiān)視1移除剪貼板監(jiān)視鏈_d (窗口句柄1, 下一個窗口1) ' 從觀察鏈中刪除本觀察窗口標(biāo)簽1.文本顏色 ＝ #黑色.子程序 監(jiān)視剪貼板2下一個窗口2 ＝ 加入剪貼板監(jiān)視鏈_d (窗口句柄2)標(biāo)簽2.標(biāo)題 ＝ 標(biāo)簽2.標(biāo)題 ＋ #換行符 ＋ “下一個窗口; ” ＋ 到文本 (下一個窗口2)標(biāo)簽2.文本顏色 ＝ #紅褐.子程序 取消剪貼板監(jiān)視2移除剪貼板監(jiān)視鏈_d (窗口句柄2, 下一個窗口2) ' 從觀察鏈中刪除本觀察窗口標(biāo)簽2.文本顏色 ＝ #黑色.子程序 監(jiān)視剪貼板3下一個窗口3 ＝ 加入剪貼板監(jiān)視鏈_d (窗口句柄3)標(biāo)簽3.標(biāo)題 ＝ 標(biāo)簽3.標(biāo)題 ＋ #換行符 ＋ “下一個窗口; ” ＋ 到文本 (下一個窗口3)標(biāo)簽3.文本顏色 ＝ #紅褐.子程序 取消剪貼板監(jiān)視3移除剪貼板監(jiān)視鏈_d (窗口句柄3, 下一個窗口3) ' 從觀察鏈中刪除本觀察窗口標(biāo)簽3.文本顏色 ＝ #黑色.子程序 消息處理子程序1, 整數(shù)型, , 消息處理子程序，.參數(shù) 窗口句柄_, 整數(shù)型, , hwnd 接收該消息的窗口句柄。.參數(shù) 消息_, 整數(shù)型, , uMsg 消息標(biāo)識 消息值.參數(shù) 消息參數(shù)1, 整數(shù)型, , wParam.參數(shù) 消息參數(shù)2, 整數(shù)型, , lParam.判斷開始 (消息_ ＝ 2) ' 判斷父窗口是否將被銷毀 ( WM_DESTROY 2 2 )  移除剪貼板監(jiān)視鏈_d (窗口句柄1, 下一個窗口1).判斷 (消息_ ＝ 776) ' 判斷剪貼板內(nèi)容是否發(fā)生變化 WM_DRAWCLIPBOARD  .如果真 (下一個窗口1 ≠ 0) ' 將 #WM_DRAWCLIPBOARD 消息傳遞給下一個觀察鏈中的窗口    發(fā)送消息_d (下一個窗口1, 消息_, 消息參數(shù)1, 消息參數(shù)2)  .如果真結(jié)束  標(biāo)簽11.標(biāo)題 ＝ 取剪輯板文本 ().判斷 (消息_ ＝ 781) ' WM_CHANGECBCHAIN  ' 當(dāng)程序調(diào)用 ChangeClipboardChain 時，Windows 會向當(dāng)前剪貼板查看器發(fā)送一個 WM_CHANGECBCHAIN 消息。該消息的 wParam 參數(shù)是要從鏈里退出的窗口的句柄(即 ChangeClipboardChain 的第一個參數(shù))，lParam 是將要退出的窗口的下一個剪貼板查看器的窗口句柄(即 ChangeClipboardChain 的第二個參數(shù)）。  ' 當(dāng)你的程序收到了 WM_CHANGECBCHAIN 消息，則必須檢查 wParam 是否等于你保存的 hwndNextViewer 值。如果相等，你的程序必須把 hwndNextViewer 設(shè)為 lParam。這個操作確保將來你得到的任何 WM_CHANGECBCHAIN 消息不會被發(fā)送給從鏈里退出的那個窗口。如果 wParam 不等于 hwndNextViewer，并且 hwndNextViewer 不為 NULL，就把消息發(fā)送給下一個剪貼板查看器：  .判斷開始 (消息參數(shù)1 ＝ 下一個窗口1)    下一個窗口1 ＝ 消息參數(shù)2  .判斷 (下一個窗口1 ≠ 0)    發(fā)送消息_d (下一個窗口1, 消息_, 消息參數(shù)1, 消息參數(shù)2)  .默認(rèn)  .判斷結(jié)束.默認(rèn).判斷結(jié)束返回 (消息信息傳送_d (前一窗口1, 窗口句柄_, 消息_, 消息參數(shù)1, 消息參數(shù)2)) ' 將未處理的消息交由原窗口程序處理.子程序 消息處理子程序2, 整數(shù)型, , 消息處理子程序，.參數(shù) 窗口句柄_, 整數(shù)型, , hwnd 接收該消息的窗口句柄。.參數(shù) 消息_, 整數(shù)型, , uMsg 消息標(biāo)識 消息值.參數(shù) 消息參數(shù)1, 整數(shù)型, , wParam.參數(shù) 消息參數(shù)2, 整數(shù)型, , lParam.判斷開始 (消息_ ＝ 2) ' 判斷父窗口是否將被銷毀  移除剪貼板監(jiān)視鏈_d (窗口句柄2, 下一個窗口2).判斷 (消息_ ＝ 776) ' 判斷剪貼板內(nèi)容是否發(fā)生變化 WM_DRAWCLIPBOARD  .如果真 (下一個窗口2 ≠ 0)    發(fā)送消息_d (下一個窗口2, 消息_, 消息參數(shù)1, 消息參數(shù)2)  .如果真結(jié)束  標(biāo)簽22.標(biāo)題 ＝ 取剪輯板文本 ().判斷 (消息_ ＝ 781) ' WM_CHANGECBCHAIN  .判斷開始 (消息參數(shù)1 ＝ 下一個窗口2)    下一個窗口2 ＝ 消息參數(shù)2  .判斷 (下一個窗口2 ≠ 0)    發(fā)送消息_d (下一個窗口2, 消息_, 消息參數(shù)1, 消息參數(shù)2)  .默認(rèn)  .判斷結(jié)束.默認(rèn).判斷結(jié)束返回 (消息信息傳送_d (前一窗口2, 窗口句柄_, 消息_, 消息參數(shù)1, 消息參數(shù)2)) ' 將未處理的消息交由原窗口程序處理.子程序 消息處理子程序3, 整數(shù)型, , 消息處理子程序，.參數(shù) 窗口句柄_, 整數(shù)型, , hwnd 接收該消息的窗口句柄。.參數(shù) 消息_, 整數(shù)型, , uMsg 消息標(biāo)識 消息值.參數(shù) 消息參數(shù)1, 整數(shù)型, , wParam.參數(shù) 消息參數(shù)2, 整數(shù)型, , lParam.判斷開始 (消息_ ＝ 2) ' 判斷父窗口是否將被銷毀  移除剪貼板監(jiān)視鏈_d (窗口句柄3, 下一個窗口3).判斷 (消息_ ＝ 776) ' 判斷剪貼板內(nèi)容是否發(fā)生變化 WM_DRAWCLIPBOARD  .如果真 (下一個窗口3 ≠ 0)    發(fā)送消息_d (下一個窗口3, 消息_, 消息參數(shù)1, 消息參數(shù)2)  .如果真結(jié)束  標(biāo)簽33.標(biāo)題 ＝ 取剪輯板文本 ().判斷 (消息_ ＝ 781) ' WM_CHANGECBCHAIN  .判斷開始 (消息參數(shù)1 ＝ 下一個窗口3)    下一個窗口3 ＝ 消息參數(shù)2  .判斷 (下一個窗口3 ≠ 0)    發(fā)送消息_d (下一個窗口3, 消息_, 消息參數(shù)1, 消息參數(shù)2)  .默認(rèn)  .判斷結(jié)束.默認(rèn).判斷結(jié)束返回 (消息信息傳送_d (前一窗口3, 窗口句柄_, 消息_, 消息參數(shù)1, 消息參數(shù)2)) ' 將未處理的消息交由原窗口程序處理.子程序 _按鈕監(jiān)視1_被單擊監(jiān)視剪貼板1 ()按鈕監(jiān)視1.禁止 ＝ 真按鈕取消監(jiān)視1.禁止 ＝ 假.子程序 _按鈕取消監(jiān)視1_被單擊取消剪貼板監(jiān)視1 ()按鈕監(jiān)視1.禁止 ＝ 假按鈕取消監(jiān)視1.禁止 ＝ 真.子程序 _按鈕監(jiān)視2_被單擊監(jiān)視剪貼板2 ()按鈕監(jiān)視2.禁止 ＝ 真按鈕取消監(jiān)視2.禁止 ＝ 假.子程序 _按鈕取消監(jiān)視2_被單擊取消剪貼板監(jiān)視2 ()按鈕監(jiān)視2.禁止 ＝ 假按鈕取消監(jiān)視2.禁止 ＝ 真.子程序 _按鈕監(jiān)視3_被單擊監(jiān)視剪貼板3 ()按鈕監(jiān)視3.禁止 ＝ 真按鈕取消監(jiān)視3.禁止 ＝ 假.子程序 _按鈕取消監(jiān)視3_被單擊取消剪貼板監(jiān)視3 ()按鈕監(jiān)視3.禁止 ＝ 假按鈕取消監(jiān)視3.禁止 ＝ 真