由于对方的截卡行为过于猖狂,官方对其进行了限制,同时误伤到了正义的我方截卡器
这个程序就是为了修正这个bug
Text = Plugin.File.ReadFileEx("F:\id.txt")
my = split(Text, "|")
j = UBound(my)
For i= 1 to j-1
two = split(my(i), ",")
Rem Reload
Delay 1000
FindPic 0,0,1024,768,"Attachment:\登录.bmp",1.0,intX,intY
If intX > 1 And intY > 1 Then
MoveTo intX + 10, intY + 10
Delay 1000
LeftClick 1
Delay 3000
Call Plugin.Sys.SetCLB(two(0))
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
Delay 1000
KeyPress "Tab", 1
Delay 1000
Call Plugin.Sys.SetCLB(two(1))
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
Delay 500
FindPic 0,0,1024,768,"Attachment:\登入.bmp",0.9,intX,intY
If intX > 1 And intY > 1 Then
MoveTo intX + 10, intY + 10
Delay 500
LeftClick 1
End If
Else Goto Reload
End If
Delay 5000
KeyPress "PageDown", 1
Delay 1000
FindPic 0,0,1024,768,"Attachment:\开始.bmp",0.9,intX,intY
If intX > 1 And intY > 1 Then
MoveTo intX+20, intY+20
Delay 1000
LeftClick 1
Else Goto Reload
End If
Delay 5000
KeyPress "Up", 8
Delay 3000
Rem Recheck
FindPic 0,0,1024,768,"Attachment:\红叉.bmp",1.0,intX,intY
If intX > 1 And intY > 1 Then
MoveTo intX+5, intY+5
Delay 1000
LeftClick 1
Delay 1000
Goto Recheck
End If
Delay 1000
KeyPress "Home", 1
Delay 3000
FindPic 0,0,1024,768,"Attachment:\编成.bmp",1.0,intX,intY
If intX > 1 And intY > 1 Then
MoveTo intX+5, intY+5
Delay 1000
FindPic 0,0,1024,768,"Attachment:\交换所.bmp",1.0,intX,intY
If intX > 1 And intY > 1 Then
MoveTo intX+5, intY+5
Delay 1000
LeftClick 1
Delay 1000
For i= 1 to 100
Delay 500
FindPic 0,0,1024,768,"Attachment:\设置.bmp",0.8,intX,intY
If intX > 1 And intY > 1 Then
MoveTo intX + 5, intY + 5
Delay 100
LeftClick 1
Delay 700
Else Goto Reload
End If
FindPic 0,0,1024,768,"Attachment:\登用.bmp",1.0,intX,intY
If intX > 1 And intY > 1 Then
MoveTo intX + 5, intY + 5
Delay 400
LeftClick 1
Delay 100
FindPic 0,0,1024,768,"Attachment:\确认.bmp",0.8,intX,intY
If intX > 1 And intY > 1 Then
MoveTo intX + 5, intY + 5
Delay 500
LeftClick 1
End If
End If
Next
Else Goto Reload
End If
Else Goto Reload
End If
Next