1. 用户定义变量 cishu=1 "上架次数"
2. 用户定义变量 sjsl=0 "每次上架数量"
3. 用户定义变量 wpdj=0 "物品单价"
4. 用户定义变量 slsd=100 "输入数量速度（默认100毫秒）"
5. 令 s = 1
6. 令 sss = 1
7. 令 pmykj = wpdj * sjsl
8. 令 pmqsj = pmykj - 10
9. 令 HwndEx = Window.Search("地下城与勇士")
10. 令 MyArray = Split(HwndEx,"|")
11. 如果 UBound(MyArray) >= 0 则
12.     令 i = 0
13.     循环 UBound(MyArray) 次
14.         注释：下面这句将字符串转换成数值
15.         如果 i = 0 则
16.             令 hh = Clng(MyArray(0))
17.         否则如果 i = 1 则
18.             令 hh = Clng(MyArray(0))
19.             令 ha = Clng(MyArray(1))
20.         条件结束
21.         令 i = i + 1
22.     循环结束
23. 条件结束
24. 延时 200 毫秒
25. 调用 Window.Move(hh,0,0)
26. 调用 Window.Top(hh,0)
27. 调用 Window.Top(hh,1)
28. 标记 测试
29. （鼠标）移动到 (5, 468)
30. 延时 100 毫秒
31. （鼠标）左键单击, 1次
32. 循环 3 次
33.     从左上到右下查找图片 "Attachment:\拍卖.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：384 下：92），相似度 0.9
34.     如果 intX > 0 并且 intY > 0 则
35.         （鼠标）移动到 (5, 468)
36.     否则
37.         延时 20 毫秒
38.         （键盘）按 "B" 键, 1次
39.     条件结束
40. 循环结束
41. 从左上到右下查找图片 "Attachment:\识别上架.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.7
42. 如果 intX > 0 并且 intY > 0 则
43. 否则
44.     从左上到右下查找图片 "Attachment:\上架.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.9
45.     如果 intX > 0 并且 intY > 0 则
46.         （鼠标）移动到 (intX, intY)
47.         延时 200 毫秒
48.         （鼠标）左键双击, 1次
49.         延时 50 毫秒
50.     条件结束
51. 条件结束
52. 延时 50 毫秒
53. （鼠标）移动到 (96, 459)
54. （鼠标）左键按下
55. 延时 50 毫秒
56. （鼠标）移动到 (196, 206)
57. 延时 50 毫秒
58. （鼠标）左键弹起
59. 延时 100 毫秒
60. 如果 s = 1 则
61.     令 PSW = sjsl
62. 条件结束
63. 延时 100 毫秒
64. 跳转到标记 输入
65. 标记 拍卖一
66. 如果 s = 2 则
67.     （鼠标）移动到 (222, 261)
68.     延时 100 毫秒
69.     （鼠标）左键双击, 1次
70.     延时 50 毫秒
71.     令 PSW = pmqsj
72.     跳转到标记 输入
73. 条件结束
74. 标记 拍卖二
75. 延时 100 毫秒
76. （鼠标）移动到 (226, 285)
77. 延时 100 毫秒
78. （鼠标）左键双击, 1次
79. 延时 50 毫秒
80. 如果 s = 3 则
81.     令 PSW = pmykj
82.     跳转到标记 输入
83. 条件结束
84. 子程序 数量识别()
85.     令 ux = 88
86.     令 uy = 197
87.     令 group = ""
88.     令 x = ux
89.     令 y = uy
90.     定义变量 a(10)
91.     循环 5 次
92.         令 num = ""
93.         令 code = ""
94.         循环 4 次
95.             令 x = ux
96.             循环 4 次
97.                 令 GetColor = 得到指定点 (x, y) 的颜色
98.                 如果 GetColor = "FFFFFF" 则
99.                     令 i = "1"
100.                 否则