複製內容到剪貼板
代碼:
' 作者:ymlk http://ymlk.myweb.hinet
'《 舞嘻哈四方鍵 》差強人意
' 視窗化 F11 鍵 (不是全螢幕)
' 電腦配備夠強反應快，不夠強有可能失誤 MISS
' *** 沒有自動連按和按住，請自行手動！ ***
' $Cn{1} ~ Cn{6} 您自己抓圖後，圓方右上角星星中心點取得顏色值
' 顯示卡和您不同，請自行抓色！ 座標: x ??? : y 394
' -----> 按鍵精靈,EZ 請不要抄襲我寫的腳本
Speed 1
$Cn{1} = 26367 '上鍵
$Cn{2} = 16716032 '下鍵
$Cn{3} = 7798988 '左鍵
$Cn{4} = 34833 '右鍵
$Cn{5} = 255 '空白鍵
$Cn{6} = 13386752 '空白鍵
'---------------------------------------------------------------
:等待鍵
For $位置 = 420 To 462 Step 42
Select Case GetPixel[ $位置 , 394 ]
Case $Cn{1} , $Cn{2} , $Cn{3} , $Cn{4} , $Cn{5} , $Cn{6} : GoTo 按鍵
End Select
Next
GoTo 等待鍵
'---------------------------------------------------------------
:按鍵
For $讀取顏色位置 = 126 To 714 Step 42
Select Case GetPixel[ $讀取顏色位置 , 394 ]
Case $Cn{1}
While GetPixel[ $讀取顏色位置 , 394 ] = $Cn{1}
End While
Keybd_KeyDown[ 38 ] : Delay 1 : Keybd_KeyUp[ 38 ] '上
Case $Cn{2}
While GetPixel[ $讀取顏色位置 , 394 ] = $Cn{2}
End While
Keybd_KeyDown[ 40 ] : Delay 1 : Keybd_KeyUp[ 40 ] '下
Case $Cn{3}
While GetPixel[ $讀取顏色位置 , 394 ] = $Cn{3}
End While
Keybd_KeyDown[ 37 ] : Delay 1 : Keybd_KeyUp[ 37 ] '左
Case $Cn{4}
While GetPixel[ $讀取顏色位置 , 394 ] = $Cn{4}
End While
Keybd_KeyDown[ 39 ] : Delay 1 : Keybd_KeyUp[ 39 ] '右
Case $Cn{5} , $Cn{6}
While GetPixel[ $讀取顏色位置 , 394 ] = $Cn{5} Or GetPixel[ $讀取顏色位置 , 394 ] = $Cn{6}
End While
Keybd_KeyDown[ 32 ] : Delay 1 : Keybd_KeyUp[ 32 ] 'Space
End Select
Next
GoTo 等待鍵
