HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0202
(´・ω・`)知らんがなクリップボードを監視したいんですが。。。3解決


(´・ω・`)知らんがな

リンク

2008/2/2(Sat) 19:40:14|NO.13378

SetClipboardViewer関数使ってクリップボード監視したいんですがね。
どうも定義がうまくいかなくて・・・
誰か助けてください><



この記事に返信する


Kpan

リンク

2008/2/2(Sat) 20:17:05|NO.13380

扱ったことないので、↓を元にHSP3スクリに
http://www.kct.ne.jp/~okuda/tips/tips17.html


#include "user32.as" #include "hspext.as" onexit gosub *exit oncmd gosub *drawclipboard, $308 sdim buf, 256 SetClipboardViewer hwnd hWndNewNext = stat stop ; WM_DRAWCLIPBOARD *drawclipboard clipget buf, 256 mes buf return *exit ChangeClipboardChain hwnd, hWndNewNext end



(´・ω・`)知らんがな

リンク

2008/2/2(Sat) 20:27:03|NO.13381

あ、user32.asなんて最強なものがありましたねw
ありがとうございました。



a

リンク

2008/2/2(Sat) 20:40:36|NO.13382

SetClipboardViewerでぐぐったら、
最初に見つかった↓のC言語のソースを、HSP3でやってみた
http://nienie.com/~masapico/api_SetClipboardViewer.html

#include "user32.as" #include "kernel32.as" #const WM_DRAWCLIPBOARD $00000308 #const WM_CHANGECBCHAIN $0000030D #const CF_TEXT $00000001 title "クリップボード監視中・・・(TEXTデータのみ)" txt = "" mesbox txt, 600, 400, 5, 0 : oi_txt = stat onexit gosub *on_exit SetClipboardViewer hwnd hNextWnd = stat oncmd gosub *on_WM_DRAWCLIPBOARD, WM_DRAWCLIPBOARD oncmd gosub *on_WM_CHANGECBCHAIN, WM_CHANGECBCHAIN stop *on_exit ChangeClipboardChain hwnd, hNextWnd end *on_WM_DRAWCLIPBOARD OpenClipboard hwnd GetClipboardData CF_TEXT hText = stat if( hText ) { GlobalLock hText pText = stat txt += strf("%s", pText) + "\n" GlobalUnlock hText } CloseClipboard if( hNextWnd ) { sendmsg hNextWnd, WM_DRAWCLIPBOARD, wParam, lParam } if( hText ) { objprm oi_txt, txt } return *on_WM_CHANGECBCHAIN if( wParam == hNextWnd ) { hNextWnd = lParam } else { if( hNextWnd ) { sendmsg hNextWnd, WM_CHANGECBCHAIN, wParam, lParam } } return



ONION software Copyright 1997-2023(c) All rights reserved.