您好,登錄后才能下訂單哦!
小編給大家分享一下易語言如何調用SetClipboardViewer的api實現剪貼版的內容監控,希望大家閱讀完這篇文章之后都有所收獲,下面讓我們一起去探討吧!
DLL命令表
.版本 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.禁止 = 真
運行結果:
看完了這篇文章,相信你對“易語言如何調用SetClipboardViewer的api實現剪貼版的內容監控”有了一定的了解,如果想了解更多相關知識,歡迎關注億速云行業資訊頻道,感謝各位的閱讀!
免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。