HSPTV!掲示板

こんにちは。
ＨＳＰで作ったものとは別に動いているウインドウで、任意の座標にある１ドットのＲＧＢの値を
取得することはできないでしょうか。
よろしくお願いします。

不正の助長はしたくないから、先に具体的な目的を書いたほうがレス付くと思う。

用途は、株式チャートのローソク足から値を取得するためです。
その数値を計算して、投資するかどうかを判定するプログラムを組みたいと思っています。
よろしくお願い致します。

ウィンドウキャプチャして、pgetすれば？

プログラムでキャプチャできればそれでいいんですが、手でやるのだとプログラミングする意味が
なくなってしまうもので・・・
プログラムではキャプチャは無理ですよね。

キャプチャできるフリーソフトをみつけました。
ありがとうございました。

瑞穂って＠99円の？
ウインドウのハンドルを特定してキャプチャも出来るし
スクリーン全体キャプチャして位置特定するのも両方ともＨＳＰで出来るよ。

マケスビならＤＤＬで取得したデーター使うとか？
ＨＥＴは無理かな。

>>mamo氏
不正とは具体的に？

>プログラムでキャプチャできればそれでいいんですが、手でやるのだとプログラミングする意味が
>なくなってしまうもので・・・
可能かどうかはわかりませんが、
該当のウインドウキャプチャのキーをキーボードイベントを発生させることにより
クリップボードにコピーすることができます。
同様の方法で、自動でユーザーの切り替えをするプログラムを作りました。

キャプチャできるフリーソフトは存在するのだから、
HSPでもたぶん可能だと思うのは自然だと思うんですがねぇ。

WinAPI使うんならGetDCとかBitBltとか使えばできたはず。
作った気がする。

ウィンドウキャプチャの一例です。
詳しくは
http://chokuto.ifdef.jp/advanced/capturewindow.html

後は適当に。。。

; ======== API 関数の定義 ========
#uselib "user32.dll"
#func GetDC "GetDC" int
#func ReleaseDC "ReleaseDC" int,int
#func GetForegroundWindow "GetForegroundWindow"
#func GetClientRect "GetClientRect" int,int
#func GetWindowRect "GetWindowRect" int,int
#func MoveWindow "MoveWindow" int,int,int,int,int,int
#func SetWindowLong "SetWindowLongA" int, int, int
#func _EnableWindow "EnableWindow" int,int
;#cfunc GetWindowLong "GetWindowLongA" int, int
#define objctl(%1,%2) _EnableWindow objinfo_hwnd(%1),%2
#uselib "gdi32.dll"
#func BitBlt "BitBlt" int,int,int,int,int,int,int,int,int

button "capture",*cap
mes "キャプチャーしたいウィンドウをアクティブにしてから「capture」ぼたんを押す。”
stop


*cap
gosub *preget
BitBlt hdc2, 0, 0, sx, sy, hdcActive, 0, 0, $CC0020 ;buffer2にActWindowをcopy
wx=ginfo_winx :wy=ginfo_winy
screen 1,wx,wy
gcopy 2,0,0,wx,wy
title "キャプチャー画面"

gsel 0,1
stop


*preget
	gsel 0, -1     
	buffer 2,1,1    
	wait 50 
	GetForegroundWindow 
	hwndActive = stat
	dim rectw, 4 
	GetWindowRect hwndActive, varptr(rectw)
	wx = rectw(2) - rectw(0) : wy = rectw(3) - rectw(1)
	dim rect, 4     ; RECT構造体
	GetClientRect hwndActive, varptr(rect);FGWのクライアントエリア取得
	sx = rect(2) - rect(0) : sy = rect(3) - rect(1) 
	if sx=0:cy=0:else:cy=sy*320/sx
	if cy>265:cy=265
	buffer 2, sx, sy, 0;現在の描画先バッファウィンドウをコピー先として初期化
	GetDC hwndActive
	hdcActive = stat;ディバイスコンテキストのハンドル取得(hdc)
	hdc2=hdc	;buff2のhdc
	return

>>ken2さん
ReleaseDC忘れてますよ〜

任意の座標にある1ドットのRGBの値を取得するだけなら実はこんな簡単にできます。
CreateDCとDISPLAYで検索してみると詳細がわかると思います。

#module
#uselib "gdi32.dll"
#cfunc PixelCreateDC "CreateDCA" sptr,nullptr,nullptr,nullptr
#cfunc PixelGetPixel "GetPixel" sptr,sptr,sptr
#func PixelDeleteDC "DeleteDC" sptr
#deffunc getPixel int x,int y,local hdcDesktop,local colorref
	hdcDesktop  = PixelCreateDC("DISPLAY")
	colorref = PixelGetPixel(hdcDesktop,x,y)
	color (colorref>>16)&0xff,(colorref>>8)&0xff,colorref&0xff
	PixelDeleteDC hdcDesktop
	return
#global
repeat
	wait 1
	getPixel ginfo_mx, ginfo_my
	boxf
loop

>なたでさん

オー、スマートですね。
getPixel使わせていただきます。

でもRとBは逆じゃないですか？

おお本当だ！
COLORREF型が0xRRGGBBだと勘違いしました。

こうですね。

color colorref&0xff,(colorref>>8)&0xff,(colorref>>16)&0xff

ご指摘ありがとうございます。

別の瑞穂です（笑）

ソースありがとうございました。
使わせて戴きます。
ありがとうございました。