按键精灵

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