完成抓滑鼠座標取得顏色。
HotKeySet( "{PGUP}", "MouseRun" ) ; 按 Page UP 啟動 MouseRun
HotKeySet( "{PGDN}", "Quit" ) ; 按 Page Down 啟動 Quit
While 1
sleep(100) ;為了壤視窗程式一直保持著
ToolTip( "目前狀態[暫停中]使用說明啟用跟暫停[PageUP]離開[PageDown]" ,0,0)
WEnd
Func MouseRun()
$pos = MouseGetPos() ;取得滑鼠的點
MsgBox(0, "Mouse x,y:", $pos[0] & "," & $pos[1])
$var = PixelGetColor( $pos[0] , $pos[1]) ;用滑鼠的X Y 座標取得螢幕目前的 X Y 的點顏色
MsgBox(0,"The decimal color is", Hex($var, 6))
If Hex($var, 6) == "FFFFFF" Then
MsgBox(0,"Yes","White")
EndIf
EndFunc
Func Quit( )
Exit 0 ;關閉程式
EndFunc
感謝,已經試過,很好用,謝謝!
回覆刪除感謝。分享。
回覆刪除