1. 用户定义变量 num=1 "卖几种商品"
2. 用户定义变量 price=1 "出售数量"
3. 令 hwnd = Window.Foreground()
4. 令 Rect = Window.GetClientRect(Hwnd)
5. 注释：下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
6. 令 MyArray = Split(Rect,"|")
7. 注释：下面这句将字符串转换成数值(左|上|右|下)
8. 令 L = Clng(MyArray(0))
9. 令 T = Clng(MyArray(1))
10. 令 R = Clng(MyArray(2))
11. 令 B = Clng(MyArray(3))
12. 注释：MessageBox "得到窗口句柄的客户区坐标 左上："&L&","&T&" 右下："&R&","&B
13. 令 StopScript = 0
14. 注释：定义变量，是否停止脚本控制
15. 循环当 StopScript = 0 时
16.     （鼠标）移动到 (685 + L, 357 + T)
17.     注释：点出售按钮
18.     （鼠标）左键单击, 1次
19.     令 pColor = 得到指定点 (92 + L, 94 + T) 的颜色
20.     如果 pColor = "BBBBBB" 则
21.         令 i = 0
22.         循环当 i < num 时
23.             令 pX = 115 + 55 * i
24.             （鼠标）移动到 (pX + L, 115 + T)
25.             注释： 移动到第i个商品
26.             延时 100 毫秒
27.             （鼠标）左键单击, 1次
28.             延时 100 毫秒
29.             （鼠标）移动到 (170 + L, 210 + T)
30.             注释： 点一下价格输入窗
31.             （鼠标）左键单击, 1次
32.             延时 100 毫秒
33.             调用 InputText4KeyPress(price)
34.             延时 100 毫秒
35.             令 pColor = 得到指定点 (190 + L, 302 + T) 的颜色
36.             如果 pColor <> "FFFFFF" 则
37.                 注释：如果无法点击计算器确定按钮，则点击MAX按钮
38.                 （键盘）按 "Num +" 键, 1次
39.                 令 pColor = 得到指定点 (148 + L, 94 + T) 的颜色
40.                 如果 pColor <> "BBBBBB" 则
41.                     注释：如果第二格商品不存在，则卖完暂停脚本
42.                 条件结束
43.                 令 StopScript = 1
44.             条件结束
45.         条件结束
46.         延时 100 毫秒
47.         （键盘）按 Enter 键, 1次
48.         令 i = i + 1
49.     循环结束
50.     （鼠标）移动到 (631 + L, 411 + T)
51.     （鼠标）左键单击, 1次
52.     注释： 点确认出售
53.     延时 500 毫秒
54. 条件结束
55. 循环结束
56. 函数 InputText4KeyPress(y)
57.     令 y = CStr(y)
58.     循环当 Len(y) > 0 时
59.         令 ch = Left(y,1)
60.         令 y = Right(y,Len(y) - 1)
61.         （键盘）按 ch 键, 1次
62.     循环结束
63. 函数结束