ありがとう御座います。
テストプログラムを書いてみました。
ペイントを起動して、赤、青、緑のボックスを書いて、動かしてみたのですが、
うまく動かないようです。
左と上のメニューの部分は考慮して、座標を見てるんですが。。。
度々すみません。。。
#include "hspext.as"
#uselib "user32"
#func keybd_event "keybd_event" int, nullptr, int
#cfunc FindWindow "FindWindowA" sptr, sptr
#cfunc GetDC "GetDC" int
#uselib "gdi32.dll"
#cfunc GetPixel "GetPixel" int, int, int
#define ctype GetRValue(%1) ((%1 ) & 0xff)
#define ctype GetGValue(%1) ((%1 >> 8) & 0xff)
#define ctype GetBValue(%1) ((%1 >> 16) & 0xff)
*main
screen 0,640,480
aplsel "無題 - ペイント"
if stat: {
mes "ペイントを起動してください"
wait 100
end
}
repeat 640
rgb = GetPixel(GetDC(FindWindow("無題 - ペイント", 0)), cnt+70, 100)
pos 0,0
cls
mes "x="+cnt
mes strf("R: %x", GetRValue(rgb))
mes strf("G: %x", GetGValue(rgb))
mes strf("B: %x", GetBValue(rgb))
wait 10
loop