枣糕ちゃん » 日志
自制P站的半自动一键打十分打开大图关闭当前标签页跳转下一标签页的按键精灵脚本

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