2012-12-13 00:25 /
Version.1
原始版本
SaveMousePos
FindPic 0,0,1024,768,"C:\Documents and Settings\Administrator\桌面\123.bmp",0.9,x,y
If x > 0 And y > 0 Then
MoveTo x + 948, y + 260
Delay 50
LeftClick 1
MoveTo 1028, 791
GetCursorPos x, y
UserVar isWhite=2 "设置内容"
Do Until (isWhite=0) //如果颜色为白色,则指针上移
isWhite = 0
IfColor x, y, "FFFFFF", 0 Then
isWhite = 1
y = y - 1
MoveTo x, y
Delay 10
End If
Loop
IfColor x, y, "F6F4F2", 0 Then
isWhite = 3 //测试用意
y = y+1
Goto DOWN
Rem OVER
End If
MiddleClick 1
Delay 100
KeyDown 17, 1
KeyPress 87, 1
KeyUp 17, 1
Delay 25
KeyDown 17, 1
KeyPress 9, 1
KeyUp 17, 1
End If
RestoreMousePos
ExitScript //如果没有下移,则指令结束
Rem DOWN
isWhite = 2
y = y +1
Do Until (isWhite=0) //如果移到Tag栏(颜色为灰色),则指针下移
isWhite = 0
IfColor x, y, "FFFFFF", 0 Then
isWhite = 1
y = y + 1
MoveTo x, y
Delay 10
End If
Loop
Goto OVER
Version.2
增强版,用了更先进的算法(笑)
SaveMousePos
FindPic 0,0,1024,768,"C:\Documents and Settings\Administrator\桌面\123.bmp",0.9,x,y
If x > 0 And y > 0 Then
MoveTo x + 948, y + 260
Delay 50
LeftClick 1
MoveTo 1028, 900//791
GetCursorPos x, y
Arr_Color = Array("E5DED6","D7CABE")
UserVar isWhite=2 "标志变量"
Rem temp1
Do Until (isWhite=0) //如果颜色为白色,则指针上移
isWhite = 0
IfColor x, y, "FFFFFF", 0 Then
isWhite = 1
y = y - 1
MoveTo x, y
//Delay 1
End If
Loop
Select Case GetPixelColor(x, y)
Case "E5DED6", "D7CABE"
Goto OVERUP
Case "F6F4F2"
Goto DOWN
End Select
Rem OVER
/*IfColor x, y, "F6F4F2", 0 Then
isWhite = 3 //测试用意
y = y+1
Goto DOWN
Rem OVER
End If*/
MiddleClick 1
Delay 100
KeyDown 17, 1
KeyPress 87, 1
KeyUp 17, 1
Delay 25
KeyDown 17, 1
KeyPress 9, 1
KeyUp 17, 1
End If
RestoreMousePos
ExitScript //如果没有下移,则指令结束
Rem DOWN //如果移到Tag栏(颜色为灰色),则指针下移
isWhite = 2
y = y + 1
Do Until (isWhite=0)
isWhite = 0
IfColor x, y, "FFFFFF", 0 Then
isWhite = 1
y = y + 1
MoveTo x, y
Delay 10
End If
Loop
Goto OVER
Rem OVERUP //如果上移时遇到恼人的分割线,则指针持续上移
isWhite = 2
Do Until (isWhite=3)
isWhite = 3
preclor=GetPixelColor(x,y)
y = y - 1
MoveTo x, y
If GetPixelColor(x,y)=preclor
isWhite = 1
End If
Delay 10
Loop
Goto temp1
Part2
配合以上脚本使用的奇怪的东西....
KeyDown 17, 1
KeyPress 9, 1
KeyUp 17, 1
Delay 100
Rem A
IfColor 33, 20, "431316", 0 Then
KeyDown 17, 1
KeyPress 9, 1
KeyUp 17, 1
ExitScript
Else
Delay 100
KeyPress "W", 1
Delay 750
KeyDown 17, 1
KeyPress 9, 1
KeyUp 17, 1
Delay 100
Goto A
End If
原始版本
SaveMousePos
FindPic 0,0,1024,768,"C:\Documents and Settings\Administrator\桌面\123.bmp",0.9,x,y
If x > 0 And y > 0 Then
MoveTo x + 948, y + 260
Delay 50
LeftClick 1
MoveTo 1028, 791
GetCursorPos x, y
UserVar isWhite=2 "设置内容"
Do Until (isWhite=0) //如果颜色为白色,则指针上移
isWhite = 0
IfColor x, y, "FFFFFF", 0 Then
isWhite = 1
y = y - 1
MoveTo x, y
Delay 10
End If
Loop
IfColor x, y, "F6F4F2", 0 Then
isWhite = 3 //测试用意
y = y+1
Goto DOWN
Rem OVER
End If
MiddleClick 1
Delay 100
KeyDown 17, 1
KeyPress 87, 1
KeyUp 17, 1
Delay 25
KeyDown 17, 1
KeyPress 9, 1
KeyUp 17, 1
End If
RestoreMousePos
ExitScript //如果没有下移,则指令结束
Rem DOWN
isWhite = 2
y = y +1
Do Until (isWhite=0) //如果移到Tag栏(颜色为灰色),则指针下移
isWhite = 0
IfColor x, y, "FFFFFF", 0 Then
isWhite = 1
y = y + 1
MoveTo x, y
Delay 10
End If
Loop
Goto OVER
Version.2
增强版,用了更先进的算法(笑)
SaveMousePos
FindPic 0,0,1024,768,"C:\Documents and Settings\Administrator\桌面\123.bmp",0.9,x,y
If x > 0 And y > 0 Then
MoveTo x + 948, y + 260
Delay 50
LeftClick 1
MoveTo 1028, 900//791
GetCursorPos x, y
Arr_Color = Array("E5DED6","D7CABE")
UserVar isWhite=2 "标志变量"
Rem temp1
Do Until (isWhite=0) //如果颜色为白色,则指针上移
isWhite = 0
IfColor x, y, "FFFFFF", 0 Then
isWhite = 1
y = y - 1
MoveTo x, y
//Delay 1
End If
Loop
Select Case GetPixelColor(x, y)
Case "E5DED6", "D7CABE"
Goto OVERUP
Case "F6F4F2"
Goto DOWN
End Select
Rem OVER
/*IfColor x, y, "F6F4F2", 0 Then
isWhite = 3 //测试用意
y = y+1
Goto DOWN
Rem OVER
End If*/
MiddleClick 1
Delay 100
KeyDown 17, 1
KeyPress 87, 1
KeyUp 17, 1
Delay 25
KeyDown 17, 1
KeyPress 9, 1
KeyUp 17, 1
End If
RestoreMousePos
ExitScript //如果没有下移,则指令结束
Rem DOWN //如果移到Tag栏(颜色为灰色),则指针下移
isWhite = 2
y = y + 1
Do Until (isWhite=0)
isWhite = 0
IfColor x, y, "FFFFFF", 0 Then
isWhite = 1
y = y + 1
MoveTo x, y
Delay 10
End If
Loop
Goto OVER
Rem OVERUP //如果上移时遇到恼人的分割线,则指针持续上移
isWhite = 2
Do Until (isWhite=3)
isWhite = 3
preclor=GetPixelColor(x,y)
y = y - 1
MoveTo x, y
If GetPixelColor(x,y)=preclor
isWhite = 1
End If
Delay 10
Loop
Goto temp1
Part2
配合以上脚本使用的奇怪的东西....
KeyDown 17, 1
KeyPress 9, 1
KeyUp 17, 1
Delay 100
Rem A
IfColor 33, 20, "431316", 0 Then
KeyDown 17, 1
KeyPress 9, 1
KeyUp 17, 1
ExitScript
Else
Delay 100
KeyPress "W", 1
Delay 750
KeyDown 17, 1
KeyPress 9, 1
KeyUp 17, 1
Delay 100
Goto A
End If
#1 - 2012-12-13 13:36
□ (for Necessity)
#1-1 - 2012-12-13 13:43
枣糕ちゃん
按键精灵的专用语言,着实没什么技术含量orz,因为不能调用函数,中间用goto绕来绕去差点绕晕了-_-|||