MoveTo 5,5
     Delay 3000
    Call 确认交易框存在
   
    If jyzt1 = 0 and jyzt2=0 Then
      Goto 开始交易
     End If	
	
End Sub

Sub 确认交易框存在
jyzt1 = dm.CmpColor(166, 121, "ffffff-000000", 0.9)	
jyzt2 = dm.CmpColor(303, 123, "ffed8d-000000", 0.9)
	
End Sub


Sub 确认交易框存在xp
	FindPic 0,0,644,644,"Attachment:\交易框.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
jyzt1 = 0
jyzt2 = 0
End If
	
End Sub


Sub 输入金币7
	
FindPic 176,270,217,321,"Attachment:\金币.bmp",0.9,jbX,jbY  //金币的坐标
      If jbX > 0 And jbY > 0 Then 
      MoveTo jbx, jby
	  Delay 150
	   LeftClick 1
	   Delay 55
	 MoveTo 6,5
	   	
End If
	
 Rem a1
 
  jbs = dm.Ocr(158, 264, 295, 303, "ffe3ab-000000", 1.0) //再次输入时确保金币框里边没有钱
          If jbs > 0 Then //jbs确保再次输入时 金币框里数字为0
 	          Call Plugin.Window.Active(Hwnd)
 	          KeyPress "BackSpace", 2
              Delay 20
             Goto a1    //对金币框进行初始 回到标记a1
           End If
 
	For 6
		KeyPress "BackSpace", 1
		Delay 50
	Next
	    i=1
     For len(zj)
        anjian=Mid(zj,i,1)
        KeyDown asc(anjian),1
        Delay 20
        KeyUp asc(anjian),1
        i=i+1
        Delay 50
     Next  //输入钱数
 Do  While 1
 jbdqx = 0
jbqdy = 0

 FindPic 135,261,235,330,"Attachment:\金币确定.bmp",0.9,jbqdX,jbqdY
If jbqdX > 0 And jbqdY > 0 Then
MoveTo jbqdX, jbqdY
//MessageBox "zhaodao"
Delay 300
LeftClick 1
Delay 200
MoveTo 5, 5
Delay 300
End If
jbdqx = 0
jbqdy = 0
FindPic 135,261,235,330, "Attachment:\金币确定.bmp", 0.9, jbqdX, jbqdY
If jbdqx >0 and jbqdy > 0 Then 

	Else
	Exit Do
End If
Loop
	
//MessageBox "金币输入完毕"

End Sub

Sub 输入金币 //xp
	dm_ret = dm.FindPic(176,270,217,321,"c:\材料字库\金币确定.bmp","000000",0.9,0,jbX,jbY)  //金币的坐标
      If jbX > 0 And jbY > 0 Then 
      MoveTo jbx, jby
	  Delay 150
	   LeftClick 1
	   Delay 55
	 MoveTo 6,5
	   	
End If