n=0
for Clng(Form1.NuberSum.text)
    Hwnd = Lib.API.查找窗口句柄("地下城与勇士","地下城与勇士")
    sRect = Plugin.Window.GetClientRect(Hwnd)
    MyArray = Split(sRect, "|")
    x = Clng(MyArray(0)) : y = Clng(MyArray(1))
    Call sellThing(Form1.myThingClass.Text,Form1.myThingName.Text,Form1.myThingPrice.Text,Form1.Number1.Text)	
    //Call sellThing("材料","无色小晶块","159","7")	
    n = n + 1
    If n > Clng(Form1.getEmailNumber.text) or n = Clng(Form1.getEmailNumber.text) Then 
        Call getEmail()
        n=0
    End If
Next

Function sellThing(ThingClass, ThingName, ThingPrice, ThingNumber)
	
    Rem start
    '如果找不到上架按钮就重新打开拍卖行
    FindPic x+25,y+527,x+131,y+568,"Attachment:\上架.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
    Else 
        KeyPress "Esc",1
        Delay 300
        MoveTo x+431, y+582
        Delay 250
        LeftClick 1
        Delay 250
        MoveTo x+380, y+508
        Delay 250
        LeftClick 1
        Delay 250
    End If
    MoveTo x+90,y+ 555
    Delay 200
    LeftClick 1
    Delay 200
    Select Case ThingClass
    Case "消耗品"
        MoveTo x + 546, y +293  '消耗品位置
    Case "材料"
        MoveTo x + 592, y +293  '材料位置
    Case "副职业"
        MoveTo x + 538, y +293  '副职业位置
    Case Else
        MoveTo x + 592, y +293  '材料位置
    End Select
    //    If ThingClass = "消耗品" Then 
    //        MoveTo x + 546, y +293  '消耗品位置
    //    ElseIf thingClass = "材料" Then
    //        MoveTo x + 592, y +293  '材料位置
    //    End If
    Delay 60
    LeftClick 1
    Delay 500
    flag = true
    fn=0
    While flag
        FindPic x+462,y+296,x+716,y+432,"Attachment:\"&ThingName&".bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            MoveTo intX, intY
            flag=false
        End If
        fn = fn + 1
        If fn > 40 Then 
            Delay  100
            KeyPress "Esc", 1
            Delay 200
            Goto start
        End If
        Delay 100
    Wend
    Delay 300

    LeftDown 1
    Delay 300
    mX = intX - x '物品当前位置X相对坐标
    mY = intY - y '物品当前位置Y相对坐标
    Xlong = 229 - mX  '要移动的X长度
    Ylong = 307 - mY '要移动的Y长度
    '下面循环是智能托到物品到拍卖框 (229, 307)
    tempX = 0
    tempY = 0
    For XLong / 20
        temp=temp+20
        MoveTo x + mX - tempX, 307
        Delay 15
    Next
    For XLong / 20
        temp=temp+20
        MoveTo 229, y+mX-tempY
        Delay 15
    Next
    MoveTo x+229, y+307  //最终移动到准确位置
    Delay 253
    LeftUp 1
    Delay 311
    KeyPress 8, 10 
    i = 0
    For len(ThingNumber)