1. 注释：由于是刚开始学的，所以代码繁乱 不简洁请见谅啦
2. 注释：谁看不爽可以帮我修改下的~~~~(>_<)~~~ 偶会感激不尽
3. 注释：仅供娱乐= =~!交流 部分代码网络上载的
4. 注释： 使用注意 由于是测试脚本所以：
5. 注释： 本脚本只给人加血 请把加血用药放在背包第一个位置，
6. 注释：一定要大量的存储血药如 红碗 什么的 用完没有提示并且脚本
7. 注释：会不断的重复点背包第一个位置 造成死循环
8. 注释：切不要吧行囊打开 不要遮住梦幻窗口 由于本脚本纯绿色的非读写内存..所以你懂得
9. 注释：下面是注释
10. 注释： 找到最顶层的窗口 并移动至0.0位置
11. 令 Hwnd = Window.Foreground()
12. 令 sRect = Window.GetClientRect(Hwnd)
13. 定义变量 MyArray
14. 令 MyArray = Split(sRect,"|")
15. 令 Ux = CLng(MyArray(0))
16. 令 Uy = CLng(MyArray(1))
17. 调用 Window.Move(Hwnd,0,0)
18. 注释：隐藏 梦幻西游聊天窗口
19. 令 Hwndck = Window.Find(0,"梦幻西游 聊天窗口")
20. 调用 Window.Hide(Hwndck)
21. 注释：进行循环找怪操作
22. 标记 aa
23. 调用 找怪()
24. 跳转到标记 aa
25. 子程序 找怪()
26.     注释：打开地图 并且随机在地图内移动鼠标 (可能部分地图会出现越出地图的情况)并点击
27.     注释：如果出现怪物 则会切换到战斗
28.     （键盘）按 "Tab" 键, 1次
29.     延时 200 毫秒
30.     标记 zhaoguai(子程序 找怪)
31.     从左上到右下查找图片 "Attachment:\ditu.bmp"，把找到的坐标保存到 (ditux, dituy)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.9
32.     如果 ditux > 0 并且 dituy > 0 则
33.         Randomize
34.         令 rx = Int((ditux + 150 - ditux + 95 + 1) * Rnd + ditux + 95)
35.         Randomize
36.         令 ry = Int((dituy + 200 - dituy + 26 + 1) * Rnd + dituy + 26)
37.         调用 鼠标移动(rx,ry)
38.         延时 200 毫秒
39.         （鼠标）左键单击, 1次
40.         延时 2000 毫秒
41.         从左上到右下查找图片 "Attachment:\zhandou.bmp"，把找到的坐标保存到 (zdx, zdy)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.9
42.         如果 zdx > 0 并且 zdy > 0 则
43.             调用 战斗()
44.         否则
45.             跳转到标记 zhaoguai(子程序 找怪)
46.         条件结束
47.     否则
48.         （键盘）按 "Tab" 键, 1次
49.         延时 200 毫秒
50.         跳转到标记 zhaoguai(子程序 找怪)
51.     条件结束
52. 子程序结束
53. 注释：此代码为防止鼠标飘逸 具体不多说了
54. 子程序 鼠标移动(w,z)
55.     定义变量 n, h, zx, zy, zzx, zzy
56.     令 htt = 0
57.     令 n = 1
58.     令 h = 0
59.     令 zx = w
60.     令 zy = z
61.     如果 zx < 50 或者 zx > 540 则
62.         如果 zx < 50 则
63.             令 zzx = zx + 40
64.         条件结束
65.         如果 zx > 540 则
66.             令 zzx = zx - 40
67.         条件结束
68.     否则
69.         令 zzx = zx
70.     条件结束
71.     如果 zy < 50 或者 zy > 400 则
72.         如果 zy < 50 则
73.             令 zzy = zy + 40
74.         条件结束
75.         如果 zy > 400 则
76.             令 zzy = zy - 40
77.         条件结束
78.     否则
79.         令 zzy = zy
80.     条件结束
81.     （鼠标）移动到 (zzx, zzy)
82.     延时 100 毫秒
83.     标记 py(子程序 鼠标移动)
84.     把当前鼠标所在的位置保存到 (x, y)
85.     令 mz = 0
86.     从中心到四周查找颜色 "78F4F0"，把找到的坐标保存到 (x1, y1)，指定区域（左：x - 110 上：y - 110 右：x + 110 下：y + 110）
87.     如果 x1 > 0 并且 y1 > 0 则
88.         令 a = zx - x1 + 20
89.         令 b = zy - y1 + 10
90.         跳转到标记 OK(子程序 鼠标移动)
91.     条件结束
92.     令 XY = Color.FindMutiColor(x - 110,y - 110,x + 110,y + 110,"78A4B0","-2|4|C0C8D8,-3|5|C0C8D8,-4|6|C0C8D8,-5|7|C0C4D0,-9|9|98C0C8",1)
93.     令 sbwz = Split(XY,"|")
94.     令 x1 = Clng(sbwz(0)) - 18
95.     令 y1 = Clng(sbwz(1)) - 9
96.     如果 x1 > 0 并且 y1 > 0 则
97.         令 a = zx - x1
98.         令 b = zy - y1
99.         跳转到标记 OK(子程序 鼠标移动)
100.     条件结束