Text = Plugin.File.ReadFileEx("E:\1.txt")'读TXT
sp = split(text, "|")'分行
Dim iswrong
iswrong = 0
For d = 0 To ubound(sp) - 1'输出
Dim num3
num3 = 0
Rem flag6
FindPic 0,150,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+100, intY + 10
Else
num3 = num3 + 1
TracePrint num3
If num3 > 5 Then
iswrong = 1
Goto flag5
End If
Goto flag6
Delay 4000
End If
LeftClick 1
Delay 200
KeyDown "Ctrl", 1
KeyPress "A", 1
KeyUp "Ctrl", 1
Delay 200
KeyDown "Ctrl", 1
KeyPress "A", 1
KeyUp "Ctrl", 1
SayString sp(d)
Delay 300
MoveR 0, 50
Delay 100
LeftClick 1
Delay 100
LeftClick 1
b = sp(d)
a = Mid(b, 6, 10)
Delay 200
LeftClick 1
Delay 200
LeftClick 1
KeyDown "Ctrl", 1
KeyPress "A", 1
KeyUp "Ctrl", 1
Delay 500
KeyDown "Ctrl", 1
KeyPress "A", 1
KeyUp "Ctrl", 1
KeyDown "Ctrl", 1
KeyPress "A", 1
KeyUp "Ctrl", 1
SayString a
Delay 500
MoveR 0, 40
Delay 500
LeftClick 1
LeftClick 1
Delay 2000
FindPic 99,640,675,861,"Attachment:\5.bmp",1.0,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX + 10, intY + 10
Delay 500
LeftClick 1
End If
Delay 1000
FindPic 0,0,1024,768,"Attachment:\6.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX + 100, intY + 10
Delay 1000
LeftClick 1
LeftClick 1
End If
Delay 200
MoveR 175 ,-70
Delay 500
LeftClick 1
LeftClick 1
Delay 8000
Dim num1
num1 = 0
Rem flag2
FindPic 0,0,1024,768,"Attachment:\3.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX + 10, intY + 10
Delay 200
LeftClick 1
Delay 100
LeftClick 1
Delay 200
End If
If num1 > 5 Then
iswrong = 1
Goto flag5
End If
Dim num
num = 0
Rem flag1
FindPic 0,150,1024,768,"Attachment:\1.bmp",1.0,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+100, intY + 10
Else
Delay 2000
num = num + 1
TracePrint num
If num > 5 Then
Goto flag2
End If
Goto flag1
End If
Call Plugin.File.WriteFileEx("E:\2.txt", d)
Rem flag5
If iswrong = 1 Then
TracePrint "已经运行"
FindPic 0,0,675,861,"Attachment:\3.bmp",1.0,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX + 220 , intY + 10
Delay 500
LeftClick 1
Else
MoveTo 0,0
End If
Delay 1000
MoveTo 670, 496
Delay 500
LeftClick 1
Delay 10000
MoveTo 259, 317
Delay 200
LeftClick 1
iswrong = 0
End If
Next