2011年6月30日 星期四

AutoIt 滑鼠抓點與判斷

完成抓滑鼠座標取得顏色。

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

2 則留言: