複製內容到剪貼板
代碼:
'作者:ymlk http://ymlk.myweb.hinet.net
'***沒有加裝反鍵支援***
'解析度 全螢幕 16位元色彩
'等級1 Z鍵
'等級2 X鍵
'等級3 C鍵
'等級4 A鍵
'等級5 S鍵
'等級6 D鍵
'等級7 Q鍵
'等級8 W鍵
'等級9 E鍵
'等級E E鍵
'自動偵測等級 [ ` ] 鍵 注意,不一定準!! 請改手動 Z X C A S D Q W E 鍵
$Cn{1} = 1
$Cn{2} = 180 '黑白值比率
Speed 1
:再重次
Do
Select Case GetKey
Case 192 '自動偵測等級 [ ` ] 鍵 注意,不一定準!! 請改手動 Z X C A S D Q W E 鍵
If GetPixel[ 232 , 407 , 206.B ] = 16777215 : Test = 232 : $Cn{0} = 9 : Exit Do
ElseIf GetPixel[ 253 , 407 , 206.B ] = 16777215 : Test = 253 : $Cn{0} = 8 : Exit Do
ElseIf GetPixel[ 274 , 407 , 206.B ] = 16777215 : Test = 274 : $Cn{0} = 7 : Exit Do
ElseIf GetPixel[ 295 , 407 , 206.B ] = 16777215 : Test = 295 : $Cn{0} = 6 : Exit Do
ElseIf GetPixel[ 316 , 407 , 206.B ] = 16777215 : Test = 316 : $Cn{0} = 5 : Exit Do
ElseIf GetPixel[ 337 , 407 , 206.B ] = 16777215 : Test = 337 : $Cn{0} = 4 : Exit Do
ElseIf GetPixel[ 358 , 407 , 206.B ] = 16777215 : Test = 358 : $Cn{0} = 3 : Exit Do
ElseIf GetPixel[ 379 , 407 , 206.B ] = 16777215 : Test = 379 : $Cn{0} = 2 : Exit Do
ElseIf GetPixel[ 400 , 407 , 206.B ] = 16777215 : Test = 400 : $Cn{0} = 1 : Exit Do
End If
Case 90 : Test = 400 : $Cn{0} = 1 : Exit Do 'Z
Case 88 : Test = 379 : $Cn{0} = 2 : Exit Do 'X
Case 67 : Test = 358 : $Cn{0} = 3 : Exit Do 'C
Case 65 : Test = 337 : $Cn{0} = 4 : Exit Do 'A
Case 83 : Test = 316 : $Cn{0} = 5 : Exit Do 'S
Case 68 : Test = 295 : $Cn{0} = 6 : Exit Do 'D
Case 81 : Test = 274 : $Cn{0} = 7 : Exit Do 'Q
Case 87 : Test = 253 : $Cn{0} = 8 : Exit Do 'W
Case 69 : Test = 232 : $Cn{0} = 9 : Exit Do 'E
End Select
Loop
:重複
If GetPixel[ Test - 7 , 407 - 4 , $Cn{2}.B ] <> 0 And GetPixel[ Test - 7 , 407 + 5 , $Cn{2}.B ] <> 0 And GetPixel[ Test - 12 , 407 , $Cn{2}.B ] <> 0 '左
Keybd_KeyDown[ 37 ] : Delay 1 : Keybd_KeyUp[ 37 ] : GoTo 加設定
ElseIf GetPixel[ Test + 6 , 407 - 5 , $Cn{2}.B ] <> 0 And GetPixel[ Test + 6 , 407 + 6 , $Cn{2}.B ] <> 0 And GetPixel[ Test + 11 , 407 , $Cn{2}.B ] <> 0 '右
Keybd_KeyDown[ 39 ] : Delay 1 : Keybd_KeyUp[ 39 ] : GoTo 加設定
ElseIf GetPixel[ Test - 5 , 407 + 6 , $Cn{2}.B ] <> 0 And GetPixel[ Test + 6 , 407 + 6 , $Cn{2}.B ] <> 0 And GetPixel[ Test , 407 + 12 , $Cn{2}.B ] <> 0 '下
Keybd_KeyDown[ 40 ] : Delay 1 : Keybd_KeyUp[ 40 ] : GoTo 加設定
ElseIf GetPixel[ Test - 5 , 407 - 5 , $Cn{2}.B ] <> 0 And GetPixel[ Test + 6 , 407 - 5 , $Cn{2}.B ] <> 0 And GetPixel[ Test , 407 - 11 , $Cn{2}.B ] <> 0 '上
Keybd_KeyDown[ 38 ] : Delay 1 : Keybd_KeyUp[ 38 ] : GoTo 加設定
ElseIf GetPixel[ Test , 407 - 7 , $Cn{2}.B ] <> 0 And GetPixel[ Test + 7 , 407 , $Cn{2}.B ] <> 0 And GetPixel[ Test + 7 , 407 - 7 , $Cn{2}.B ] <> 0 '9
Keybd_KeyDown[ 33 ] : Delay 1 : Keybd_KeyUp[ 33 ] : GoTo 加設定
ElseIf GetPixel[ Test + 7 , 407 , $Cn{2}.B ] <> 0 And GetPixel[ Test , 407 + 8 , $Cn{2}.B ] <> 0 And GetPixel[ Test + 7 , 407 + 7 , $Cn{2}.B ] <> 0 '3
Keybd_KeyDown[ 34 ] : Delay 1 : Keybd_KeyUp[ 34 ] : GoTo 加設定
ElseIf GetPixel[ Test - 8 , 407 , $Cn{2}.B ] <> 0 And GetPixel[ Test , 407 - 7 , $Cn{2}.B ] <> 0 And GetPixel[ Test - 7 , 407 - 7 , $Cn{2}.B ] <> 0 '7
Keybd_KeyDown[ 36 ] : Delay 1 : Keybd_KeyUp[ 36 ] : GoTo 加設定
ElseIf GetPixel[ Test - 7 , 407 , $Cn{2}.B ] <> 0 And GetPixel[ Test , 407 + 8 , $Cn{2}.B ] <> 0 And GetPixel[ Test - 7 , 407 + 7 , $Cn{2}.B ] <> 0 '1
Keybd_KeyDown[ 35 ] : Delay 1 : Keybd_KeyUp[ 35 ] : GoTo 加設定
End If
:加設定
If $Cn{0} = $Cn{1}
$Cn{1} = 1 : GoTo 再重次
End If
Test += 42 : $Cn{1} += 1
GoTo 重複[
本帖最後由 ymlk 於 2008-7-11 14:58 編輯 ]
