FindPic 0,0,200,200,"Attachment:\sqgl.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
For i = 0 To 100
//h = 178 + i * 22
//MoveTo 280, h
If i = 0 Then
MoveTo 280, 178
LeftClick 1
End If
If i <> 0 Then
KeyPress "Down", 1
End If
/* open a new page */
KeyPress "Enter", 1
Delay 500
/*The infinite loop waits for the judgment condition to appear here*/
While j = 0
/* Determine if the opening is successful */
FindPic 0,0,300,165,"Attachment:\90sj.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
j=1
Delay 1000
/anzhong
MoveTo 242, 196
LeftDown 1
Delay 300
MoveTo 600, 196
Delay 300
LeftUp 1
//fuzhi
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
Delay 300
Randomize //Initialize the random number generator
d=int(Rnd()*100+100)//The value of d is a random number 12-22
//MessageBox CStr(d)
mingzi = Plugin.Sys.GetCLB()+CStr(d)
//MessageBox mingzi
Call Plugin.Sys.SetCLB(mingzi)
Delay 500
/*click to download*/
FindPic 950,200,1300,500,"Attachment:\mfxz.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 300
LeftClick 1
Delay 1000
End If
//Click to download 2
MoveTo 727, 317
Delay 300
LeftClick 1
/* paste the name */
While jb = 0
FindPic 600,600,750,750,"Attachment:\baocun.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
jb = 1
Delay 500
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
Delay 1000
KeyPress "Enter", 1
Delay 500
End If
Wend
jb = 0
While jj = 0
FindPic 0,0,1111,650,"Attachment:\jiao.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
KeyDown 17, 1
KeyPress 115, 1
KeyUp 17, 1
Delay 1000
jj = 1
End If
Wend
jj = 0
While jjj = 0
FindPic 0,0,300,165,"Attachment:\90sj.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
KeyDown 17, 1
KeyPress 115, 1
KeyUp 17, 1
Delay 1000
jjj = 1
End If
Wend
jjj = 0
End If
Wend
j=0
Next
End If