HSPTV!掲示板

どっかの記事で書いてあったことをまねしたのですが、
EXE化すると、正常に動作しなくらります。

解決法を示してください。

うんたら

#include "hsp3clmod.as"
#include "kernel32.as"

かんたら

	proc=$000001b8,$0000a300,$04c20000,$00000000
	lpoke proc,6,varptr(endflag)
	VirtualProtect varptr(proc),16,0x40,varptr(endflag)
	endflag=0
	SetConsoleCtrlHandler varptr(proc), 1

うんたら

引用もとの記事もあったほうがいいかと
元記事の説明などがあれば回答が
しめしやすいのでは

つhttp://hsp.tv/play/pforum.php?mode=pastwch&num=32636
です。

正常に動作しなくなったとは、具体的にどう正常にしなくなったのですか？

#runtime "hsp3cl"
#include "kernel32.as"

mes "test"

	proc=$000001b8,$0000a300,$04c20000,$00000000
	lpoke proc,6,varptr(endflag)
	VirtualProtect varptr(proc),16,0x40,varptr(endflag)
	endflag=0
	SetConsoleCtrlHandler varptr(proc), 1

repeat
	mes cnt
	wait 1
loop

私の環境では上記のコードは
　「CTRL+Cを受け付けない」
期待通りの動作をしています。

endflagをきちんと確認しているのに終了しない。
PauseがF5でうまくいくのに、EXE化すると失敗する。
（特に、異なるユーザーで起動した場合。）

pauseって具体的にどうやってるの？
回答者は超能力者じゃないんだからエラーになるスクリプトを出さないと何が悪いかとか分からないです。
とりあえず以下のやつではうまくいってるけど？

#runtime "hsp3cl"
#include "kernel32.as"
	proc=$000001b8,$0000a300,$04c20000,$00000000
	lpoke proc,6,varptr(endflag)
	VirtualProtect varptr(proc),16,0x40,varptr(endflag)
	endflag=0
	SetConsoleCtrlHandler varptr(proc), 1

repeat
	if endflag{
		mes "終了します"
		repeat 3
			mes 3-cnt
			wait 100
		loop
		end
	}
	mes cnt
	wait 1
loop