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

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