顔文字YAMERO!!
ぁなたのお友達と話してるわけぢゃないんだから、
顔文字はやめましょうね。(^q^)
スクリプトは見てないけれど、
インデントぐらいちゃんとシヨウ。
#uselib "gdi32.dll"
#cfunc CreateDC "CreateDCA" sptr,sptr,sptr,int
#func DeleteDC "DeleteDC" int
#func BitBlt "BitBlt" int,int,int,int,int,int,int,int,int
#define NULL 0
#define SRCCOPY 0x00CC0020
#define CAPTUREBLT 0x40000000
#include "hspcv.as"
sx = ginfo_dispx : sy = ginfo_dispy
screen 0, 150, 50
repeat
getkey ka,120 //キャプチャースタートキー
if ka=1 {
repeat
getkey kb,121 //キャプチャーエンドキー
if kb=1 : pina=1 : break
gosub *scpy //キャプチャー処理ルーチンへ
wait 1
loop
}
wait 5
if pina=1 : break
loop
repeat chka //保存した画像ファイル分だけループ
chkd+ //一時的に保存したファイルを削除するカウンター
cvload "test"+chkd+".bmp",0
cvbuffer 1,sx,sy
repeat 3 //簡易フレーム処理ループ回数
cvmakeavi "test.avi",,,1 //AVI変換処理
cvcopy 0,0,0,1
cvputavi
cvgetimg 1
wait 2
loop
delete "test"+chkd+".bmp" //処理済のファイルの削除
loop
end
*scpy
//定番のキャプチャー処理
chka+
buffer 2, sx, sy
hdcScreen = CreateDC("DISPLAY", NULL, NULL, NULL)
BitBlt hdc, 0, 0, sx, sy, hdcScreen, 0, 0, SRCCOPY | CAPTUREBLT
DeleteDC hdcScreen
bmpsave "test"+chka+".bmp"
wait 2
return