1. 令 n = 0
2. 循环 Clng(Form1.NuberSum.text) 次
3.     令 Hwnd = （命令库 API）查找窗口句柄("地下城与勇士","地下城与勇士")
4.     令 sRect = Window.GetClientRect(Hwnd)
5.     令 MyArray = Split(sRect,"|")
6.     令 x = Clng(MyArray(0))
7.     令 y = Clng(MyArray(1))
8.     调用 sellThing(Form1.myThingClass.Text,Form1.myThingName.Text,Form1.myThingPrice.Text,Form1.Number1.Text)
9.     注释：Call sellThing("材料","无色小晶块","159","7")
10.     令 n = n + 1
11.     如果 n > Clng(Form1.getEmailNumber.text) 或者 n = Clng(Form1.getEmailNumber.text) 则
12.         调用 getEmail()
13.         令 n = 0
14.     条件结束
15. 循环结束
16. 函数 sellThing(ThingClass,ThingName,ThingPrice,ThingNumber)
17.     标记 start(函数 sellThing)
18.     注释：如果找不到上架按钮就重新打开拍卖行
19.     从左上到右下查找图片 "Attachment:\上架.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：x + 25 上：y + 527 右：x + 131 下：y + 568），相似度 0.9
20.     如果 intX > 0 并且 intY > 0 则
21.     否则
22.         （键盘）按 "Esc" 键, 1次
23.         延时 300 毫秒
24.         （鼠标）移动到 (x + 431, y + 582)
25.         延时 250 毫秒
26.         （鼠标）左键单击, 1次
27.         延时 250 毫秒
28.         （鼠标）移动到 (x + 380, y + 508)
29.         延时 250 毫秒
30.         （鼠标）左键单击, 1次
31.         延时 250 毫秒
32.     条件结束
33.     （鼠标）移动到 (x + 90, y + 555)
34.     延时 200 毫秒
35.     （鼠标）左键单击, 1次
36.     延时 200 毫秒
37.     根据 ThingClass 选择
38.     情况 "消耗品":
39.         (语句无法识别，可能有错误): MoveTo x + 546, y +293 '消耗品位置
40.     情况 "材料":
41.         (语句无法识别，可能有错误): MoveTo x + 592, y +293 '材料位置
42.     情况 "副职业":
43.         (语句无法识别，可能有错误): MoveTo x + 538, y +293 '副职业位置
44.     情况 :
45.         (语句无法识别，可能有错误): MoveTo x + 592, y +293 '材料位置
46.     选择结束
47.     注释： If ThingClass = "消耗品" Then
48.     注释： MoveTo x + 546, y +293 '消耗品位置
49.     注释： ElseIf thingClass = "材料" Then
50.     注释： MoveTo x + 592, y +293 '材料位置
51.     注释： End If
52.     延时 60 毫秒
53.     （鼠标）左键单击, 1次
54.     延时 500 毫秒
55.     令 flag = true
56.     令 fn = 0
57.     循环当 flag 时
58.         从左上到右下查找图片 "Attachment:\" & ThingName & ".bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：x + 462 上：y + 296 右：x + 716 下：y + 432），相似度 0.9
59.         如果 intX > 0 并且 intY > 0 则
60.             （鼠标）移动到 (intX, intY)
61.             令 flag = false
62.         条件结束
63.         令 fn = fn + 1
64.         如果 fn > 40 则
65.             延时 100 毫秒
66.             （键盘）按 "Esc" 键, 1次
67.             延时 200 毫秒
68.             跳转到标记 start(函数 sellThing)
69.         条件结束
70.         延时 100 毫秒
71.     循环结束
72.     延时 300 毫秒
73.     （鼠标）左键按下
74.     延时 300 毫秒
75.     (语句无法识别，可能有错误): mX = intX - x '物品当前位置X相对坐标
76.     (语句无法识别，可能有错误): mY = intY - y '物品当前位置Y相对坐标
77.     (语句无法识别，可能有错误): Xlong = 229 - mX '要移动的X长度
78.     (语句无法识别，可能有错误): Ylong = 307 - mY '要移动的Y长度
79.     注释：下面循环是智能托到物品到拍卖框 (229, 307)
80.     令 tempX = 0
81.     令 tempY = 0
82.     循环 XLong / 20 次
83.         令 temp = temp + 20
84.         （鼠标）移动到 (x + mX - tempX, 307)
85.         延时 15 毫秒
86.     循环结束
87.     循环 XLong / 20 次
88.         令 temp = temp + 20
89.         （鼠标）移动到 (229, y + mX - tempY)
90.         延时 15 毫秒
91.     循环结束
92.     (语句无法识别，可能有错误): MoveTo x+229, y+307 //最终移动到准确位置
93.     延时 253 毫秒
94.     （鼠标）左键弹起
95.     延时 311 毫秒
96.     （键盘）按 BackSpace 键, 10次
97.     令 i = 0
98.     循环 len(ThingNumber) 次
99.         输入文本 (Mid(ThingNumber,i + 1,1))
100.         令 i = i + 1