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 /*打开新的页面*/ KeyPress "Enter", 1 Delay 500 /*死循环在这里等待判断条件的出现*/ While j = 0 /*判断打开是否成功*/ 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 //初始化随机数生成器 d=int(Rnd()*100+100)//d的值为随机数12-22 //MessageBox CStr(d) mingzi = Plugin.Sys.GetCLB()+CStr(d) //MessageBox mingzi Call Plugin.Sys.SetCLB(mingzi) Delay 500 /*点击下载*/ 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 //点击下载2 MoveTo 727, 317 Delay 300 LeftClick 1 /*黏贴名字*/ 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