KeyPress "Space", 1
Delay 50
KeyPress "Enter", 1	
End Sub






Sub 确认交易
i1 = 1

Do  While 1

Call 确认交易框存在
If jyzt1 = 0 and jyzt2 = 0 Then 
	Else 
	Goto 开始
End If
For 10
	


jyX = 0
jyY = 0
jjqqX = 0
jjqqY = 0
qrx = 0
qry = 0
MoveTo 36, 429
LeftClick 1

FindPic 113,387,260,436,"Attachment:\交易.bmp",0.9,jyX,jyY // 正确的坐标

FindPic 213, 130, 417, 350, "Attachment:\是.bmp", 0.9, jjqqX, jjqqY

FindPic 199,293,439,348,"Attachment:\金币确定.bmp",0.9,qrX,qrY
Call 确认交易框存在
If jyx > 0 and jyy > 0 Then 
	MoveTo jyx+5, jyy+5
	Delay 200
	LeftClick 1
ElseIf jjqqx > 0 and jjqqy > 0 Then
MoveTo jjqqx + 5, jjqqy + 5
//MessageBox "jixu"
Delay 150
LeftClick 1
ElseIf qrx > 0 and qry > 0 Then
Call 日志
Call lib.图像.无限屏幕截图(199,119,442,386,jtlj,aa) //截图并保存 ，坐标正确
MoveTo qrX+2, qrY+2
Delay 200
LeftClick 2
sDate = Plugin.Sys.GetDateTime()



//call plugin。file 是记录的日志
Call 取消所有
Goto 开始

elseIf jyzt1 < 0 and jyzt2 < 0 Then 
	
Call 取消所有
	Goto 开始		
End If
Delay 500
i1 = i1 + 1
If i1 > 42 Then 
Call 取消所有
	Goto 开始	
End If

Next
//MessageBox "xunhuan"
Loop

End Sub




Sub 取消所有
	jsX = 0
	jsY = 0
	KeyPress "Esc", 1
    Delay 30
    KeyPress "Esc", 1
    Delay 30
    KeyPress "Esc", 1
    Delay 100
   FindPic 258,299,290,331,"Attachment:\结束.bmp",0.9,jsX,jsY
If jsX > 0 And jsY > 0 Then
Delay 50
KeyPress "Esc", 1
End If

End Sub