Call Getnum()
        numbc= numb-3
        If numbc > keynum Then 
            Call Shuaxin()
            Call jy()
        Else 
            Call Plugin.Window.Hide(hw)
            Delay 5000
        End If
        i=i+1
    Next
End Sub



//进行交易
Sub jy()
	
    //找好友
    MoveTo 330, 763
    Delay 300
    LeftClick 1
    Delay 500
    //找人名字
    Rem zhaoren
    FindPic 0,0,1024,768,"Attachment:\renming.bmp",1,rX,rY    
    If rX > 0 Then 
        MoveTo rX+50, rY+5	
        Delay 1000
        LeftClick 1

    Else 
        Delay 500
        Goto zhaoren
    End If
    //找交易按钮
    Rem zhaojy   
    FindPic 0,0,1024,768,"Attachment:\jy.bmp",0.9,X,Y    
    If X > 0 Then 
        MoveTo X+50, Y+5		
        Delay 1000
        LeftClick 1
    Else 
        Delay 500
        MoveTo rX+50, rY+5	
        Delay 300
        LeftClick 1
        Goto zhaojy
    End If
    MoveTo 330, 763
    Delay 300
    LeftClick 1
    Delay 500
    //主窗体
    
    Call Plugin.Window.Hide(hw)
    Delay 500
    Call Plugin.Window.Show(HWz)
    Delay 500
    Call Getnum()
    numbz=64-numb
    //交易量
    If numbz >30 Then 
        jyl = 30
        baoguoman=0
    Else 
        jyl = numbz
        baoguoman=1	
    End If
  
    //接受
    Rem zhaojs   
    FindPic 0,0,1024,768,"Attachment:\js.bmp",0.9,X,Y    
    If X > 0 Then 
        MoveTo X+50, Y+5		
        Delay 300
        LeftClick 1
    Else 
        Delay 500
        Goto zhaojs
    End If
    Call Plugin.Window.Hide(HWz)
    Call Plugin.Window.Show(hw)
    Delay 1000
    
    
    // 交易过去矿
    Rem keyijy  
    FindPic 0, 0, 1024, 768, "Attachment:\sryl.bmp", 0.7, X, Y
    k = 1
    If X > 0 Then 
        //移动到包裹第一位置
        Rem huodebguo
        FindPic 0, 0, 1024, 768, "Attachment:\baoguo.bmp", 0.9, intX, intY
        If intX > 0 Then 
            MoveTo intX - 127, intY + 98
        Else 
            Goto huodebguo