[uwsc]マウス下の情報(位置&色)を得る

マウスのx,y、
マウス下の色、
マウス下のウインドウのx,y、
マウス下のウインドウの左上x,y、
マウス下のウインドウの中央点x,y
マウス下のウインドウの右下x,y、
マウス下のウインドウタイトル

マウスの位置や色を調べる機会が多いので、よく使います。

While True
	if GETKEYSTATE(VK_1) then exit
	x = g_mouse_x
	y = g_mouse_y

	print "x:"+x+" y:"+y

	print_color(x,y)
	print_status()
	print "--------------"

	sleep(0.5);
wend
procedure print_color(x,y)
	RGB=PEEKCOLOR(x,y)
	r=RGB AND $0000FF
	g=(RGB AND $00FF00)/$100
	b=(RGB AND $FF0000)/$10000
	print "r:"+r+" g:"+g+" b:"+b
fend
procedure print_status()
	id = getid(GET_FROMPOINT_WIN);
	x1 = STATUS(id,ST_CLX)
	y1 = STATUS(id,ST_CLY)
	width = STATUS(id,ST_CLWIDTH)
	height = STATUS(id,ST_CLHEIGHT)
	center_x = x1 + width/2
	center_y = y1 + height/2
	x2 = x1 + width
	y2 = y1 + height
	title = STATUS(id,ST_TITLE)

	print "x1:"+x1+" y1:"+y1
	print "width:"+ width+" height: "+height
	print "center_x: "+center_x+" center_y: "+center_y
	print "x2: "+x2+" y2:"+y2
	print "title: "+title
fend