12

 


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

 

你可能感兴趣的:(12)