自动化网页操作流程

FindPic 0,0,200,200,"Attachment:\sqgl.bmp",0.9,intX,intY If intX > 0 And intY > 0 ThenFor i = 0 To 100//h = 178 + i * 22//MoveTo 280, hIf i = 0 ThenMoveTo 280, 178LeftClick 1End IfIf i <> 0 ThenKeyPress "Down", 1End If/*打开新的页面*/KeyPress "Enter", 1Delay 500/*死循环在这里等待判断条件的出现*/While j = 0/*判断打开是否成功*/FindPic 0,0,300,165,"Attachment:\90sj.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Thenj=1Delay 1000/anzhongMoveTo 242, 196LeftDown 1Delay 300MoveTo 600, 196Delay 300LeftUp 1//fuzhiKeyDown 17, 1KeyPress 67, 1KeyUp 17, 1Delay 300Randomize //初始化随机数生成器d=int(Rnd()*100+100)//d的值为随机数12-22//MessageBox CStr(d)mingzi = Plugin.Sys.GetCLB()+CStr(d)//MessageBox mingziCall Plugin.Sys.SetCLB(mingzi)Delay 500/*点击下载*/FindPic 950,200,1300,500,"Attachment:\mfxz.bmp",0.9,intX,intYIf intX > 0 And intY > 0 ThenMoveTo intX, intYDelay 300LeftClick 1Delay 1000End If//点击下载2MoveTo 727, 317Delay 300LeftClick 1/*黏贴名字*/While jb = 0FindPic 600,600,750,750,"Attachment:\baocun.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Thenjb = 1Delay 500KeyDown 17, 1KeyPress 86, 1KeyUp 17, 1Delay 1000KeyPress "Enter", 1Delay 500End IfWendjb = 0While jj = 0FindPic 0,0,1111,650,"Attachment:\jiao.bmp",0.9,intX,intYIf intX > 0 And intY > 0 ThenKeyDown 17, 1KeyPress 115, 1KeyUp 17, 1Delay 1000jj = 1End IfWendjj = 0While jjj = 0FindPic 0,0,300,165,"Attachment:\90sj.bmp",0.9,intX,intYIf intX > 0 And intY > 0 ThenKeyDown 17, 1KeyPress 115, 1KeyUp 17, 1Delay 1000jjj = 1End IfWend jjj = 0End IfWendj=0Next End If