HSPTV!掲示板

プロセス間通信について調べています。
一定時間(10秒等)プロセス間で通信がなければエラーを起こしたいと思っております。
どのようなソースを組んだらよろしいんでしょうか。サンプルを作って頂けるとありがたいです。
よろしくお願いします。

/*送信側のプロセス*/
#uselib "user32.dll"
#func RegisterWindowMessage "RegisterWindowMessageA" str
#define WM_USER       0x0400
#define MYWM_RECEIVE  (WM_USER+0x0101)

title "送信側"

*Send
repeat : wait 100
RegisterWindowMessage "Message"
msgcode = stat
sendmsg 0xFFFF, msgcode, 0, hwnd
loop





/*受信側のプロセス*/
#uselib "user32.dll"
#func RegisterWindowMessage "RegisterWindowMessageA" str
#define WM_USER       0x0400
#define MYWM_RECEIVE  (WM_USER+0x0101)

title "受信"
RegisterWindowMessage "Message"
msgcode = stat
oncmd gosub *OnReceiveBroadcast, msgcode
stop
*OnReceiveBroadcast
mes "通信OK"
return

自己解決しましたが、もっと短くて簡潔なソースがほしいいいです。。

/*送信*/
 #uselib "user32.dll"
 #func RegisterWindowMessage "RegisterWindowMessageA" str
 #define WM_USER 0x0400
 #define MYWM_RECEIVE (WM_USER+0x0101)

 title "送信側"

 *Send
 repeat : wait 100
 RegisterWindowMessage "Message"
 msgcode = stat
 sendmsg 0xFFFF, msgcode, 0, hwnd
 loop




/*受信側*/
#uselib "user32.dll"
#func RegisterWindowMessage "RegisterWindowMessageA" str
#define WM_USER       0x0400
#define MYWM_RECEIVE  (WM_USER+0x0101)

#uselib "winmm.dll"
#cfunc timeGetTime "timeGetTime"

title "受信"
RegisterWindowMessage "Message"
msgcode = stat
oncmd gosub *OnReceiveBroadcast, msgcode
gosub*tuusinzikan
stop
*OnReceiveBroadcast
tuusinflug+1
mes tuusinflug
return

*tuusinzikan
開始時間 = timeGetTime()
	repeat
	oncmd gosub *OnReceiveBroadcast, msgcode
		現在時間 = timeGetTime()
		経過時間 = (現在時間-開始時間)/1000
		if 経過時間>10:break
		title ""+ 経過時間 +"秒"
		wait 12
	loop
if tuusinflug=0 : end
tuusinflug=0
goto*tuusinzikan
	oncmd gosub *OnReceiveBroadcast, msgcode
return

ウィンドウメッセージを使ってプロセス間でやりとりする場合、
送信側が受信側のウィンドウハンドルを知っている必要があるぞ。
このソースだと自分自身にウィンドウメッセージを送っている。

あれ。。
できてませんか？

受信側のプロセスと
送信側のプロセスを用意してやったらちゃんとできてる気がしたんですけどね。。

プロセス間通信の説明なら、普通に検索すれば出てくるはずだけど
URL - http://chokuto.ifdef.jp/advanced/copydata.html

>このソースだと自分自身にウィンドウメッセージを送っている。
HWND_BROADCAST(0xffff)は全トップレベルウインドウに送信するハンドルなのでちゃんと相手に届きます。

>もっと短くて簡潔なソースがほしいいいです。。
こんなのでどうでしょう

/*受信側*/
#uselib "user32.dll"
#func RegisterWindowMessage "RegisterWindowMessageA" str
#func SetTimer "SetTimer" sptr,sptr,sptr,sptr
#define WM_USER       0x0400
#define MYWM_RECEIVE  (WM_USER+0x0101)
#define  WM_TIMER    0x0113


title "受信"
RegisterWindowMessage "Message"
msgcode = stat
SetTimer hwnd,100,1000,0
oncmd gosub *OnReceiveBroadcast, msgcode
oncmd gosub *OnTimer,WM_TIMER
stop
*OnReceiveBroadcast
tuusinflug++
mes tuusinflug
SetTimer hwnd,100,1000,0
timer=0
title ""+timer
return
*OnTimer
	timer+=1
	title ""+timer
	if timer==10:end
	return

>HWND_BROADCAST(0xffff)は全トップレベルウインドウに送信するハンドルなのでちゃんと相手に届きます。
そこまで確認していなかった……
ただアプリケーションによっては特定のウィンドウメッセージで反応するものがあるから、
あまりいい方法とは言えないかな。

送りたいウィンドウのハンドルのみにメッセージを送信するのがいいかと。

おおっ、簡潔なソースありがとうー！
解決しました！

>ただアプリケーションによっては特定のウィンドウメッセージで反応するものがあるから、
そうならないためにRegisterWindowMessagenoが使用されてます。