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)