自動化・効率化ならKTパソコンスクール

UWSCで画面上で右クリックした位置の色を取得（RGB値、16進数カラーコード）するプログラムです。⇓

//右クリックした位置の色を取得.uws

while true

	//右クリックしたとき

	if GETKEYSTATE(VK_RBUTTON) then

		//カーソル位置の色を表示

		x = G_MOUSE_X

		y = G_MOUSE_Y

		c = PeekColor(x, y)

		print "RGB"

		print G_赤(c) + "," + G_緑(c) + "," + G_青(c)

		print "16進数"

		print "#" + STRCONV(REPLACE(FORMAT(G_赤(c) ,2, -1) _

		+ FORMAT(G_緑(c) ,2, -1) _

		+ FORMAT(G_青(c) ,2, -1), " " , "0"), SC_LOWERCASE)

		break

	endif

wend



function G_赤(c)

	Result = c and $FF

fend



function G_緑(c)

	Result = (c and $FF00) / $100

fend



function G_青(c)

	Result = (c and $FF0000) / $10000

fend

使用方法：
①右クリックした位置の色を取得.uwsを起動
②取得したい色の位置をマウスで右クリック
③下のように表示される⇓

④取得したRGB値、または16進数カラーコードを選択してコピーして利用する

参考（UWSCのヘルプ）
//　カーソル位置の色を表示
x = G_MOUSE_X; y = G_MOUSE_Y
c = PeekColor(x, y)
PRINT "赤="+G_赤(c)+",緑="+G_緑(c)+",青="+G_青(c)

//　以下　関数
function G_赤(c)
　　Result = c and $FF
fend
function G_緑(c)
　　Result = (c and $FF00) / $100
fend
function G_青(c)
　　Result = (c and $FF0000) / $10000
fend