1. //借鉴 超级版主 wanghao19942 非常感谢
2. Dim hwnd,mp,sp,jinyan1,mpdz,spdz,jingyan1,jingyan2,jingyandz
3. //定义窗口句柄hwnd 自定义加红蓝底线mp，sp 红蓝内存地址 mpdz spdz
4. //经验值jingyan1 2（判断怪是否死亡）经验地址jingyandz
5. Dim jn1,jn2,jn3,jn4,jn5,jianwu
6. //定义技能建 捡物键（好像可以不要这句 知道的朋友麻烦告诉下谢谢）
7. //攻击技能 jn1 jn2 加蓝加红快捷键 3 4 选怪 5
8. 用户定义变量 hong=100 当血少于hong时加血(非百分比)
9. 用户定义变量 lan=100 当血少于lan时加血(非百分比)
10. 用户定义变量 mpdz=&h00000000 红内存地址
11. 用户定义变量 spdz=&h00000000 蓝内存地址
12. 用户定义变量 jingyandz=&h00000000 经验内存地址
13. //很多网友说想自定义内存地址 所以就弄出来了 也是的，网游经常换地址 麻烦
14. 用户定义变量 jn1=DropList{数字1:49|数字2:50|数字3:51|数字4:52|数字5:53|数字6:54|数字7:55|数字8:56|数字9:57}=50 攻击技能选择
15. 用户定义变量 jn2=2 攻击技能2设置
16. //技能1和2 区别设定是想练习2种用户自定义模式
17. 用户定义变量 jn3=DropList{E:69|数字2:50|数字3:51|数字4:52|数字5:53|数字6:54|数字7:55|数字8:56|数字9:57}=69 加红快捷键
18. 用户定义变量 jn4=DropList{R:82|数字2:50|数字3:51|数字4:52|数字5:53|数字6:54|数字7:55|数字8:56|数字9:57}=82 加蓝快捷键
19. //上面为加红蓝快捷键 默认 E R 建议不动
20. 用户定义变量 jn5=DropList{Q:81|数字2:50|数字3:51|数字4:52|数字5:53|数字6:54|数字7:55|数字8:56|数字9:57}=81 选怪快捷键
21. //上面为选怪快捷键 默认 Q 建议不动
22. 用户定义变量 jianwu=DropList{空格:32|选项2:值2}=32 捡物快捷键
23. //-----------------------转换键码---------------------------
24. key(0)=Asc(UCase(jn2))
25. //借鉴 超级版主 wanghao19942 非常感谢
26. //-----------------------主程序-----------------------------
27. 调用插件命令 hwnd=Window.Foreground()
28. 标记 开始打怪
29. 调用子程序 检查红蓝
30. 调用子程序 读经验
31. 调用子程序 抓怪
32. 调用子程序 打怪
33. 调用子程序 二次读经验
34. 调用子程序 捡物
35. 跳转到标记 开始打怪
36. //-----------------------红蓝-----------------------------
37. 子程序 检查红蓝
38.     标记 查红
39.     调用插件命令 mp=Memory.Read16Bit(hwnd,mpdz)
40.     如果表达式 (mp<hong) 为真,则
41.         调用插件命令 Bkgnd.KeyDown(hwnd,jn3)
42.         延时50毫秒
43.         调用插件命令 Bkgnd.KeyUp(hwnd,jn3)
44.     条件结束
45.     标记 查蓝
46.     调用插件命令 sp=Memory.Read16Bit(hwnd,spdz)
47.     如果表达式 (sp<lan) 为真,则
48.         调用插件命令 Bkgnd.KeyDown(hwnd,jn4)
49.         延时50毫秒
50.         调用插件命令 Bkgnd.KeyUp(hwnd,jn4)
51.     条件结束
52. 子程序结束,回到调用处
53. //-----------------------读经验-----------------------------
54. 子程序 读经验
55.     调用插件命令 jingyan1=Memory.Read16Bit(hwnd,jingyandz)
56. 子程序结束,回到调用处
57. //-----------------------抓怪-----------------------------
58. 子程序 抓怪
59.     调用插件命令 Bkgnd.KeyDown(hwnd,jn5)
60.     延时50毫秒
61.     调用插件命令 Bkgnd.KeyUp(hwnd,jn5)
62. 子程序结束,回到调用处
63. //-----------------------打怪-----------------------------
64. 子程序 打怪
65.     调用插件命令 Bkgnd.KeyDown(hwnd,jn1)
66.     延时50毫秒
67.     调用插件命令 Bkgnd.KeyUp(hwnd,jn1)
68.     延时2000毫秒
69. 子程序结束,回到调用处
70. //-----------------------二次检查红蓝------暂时先不用 测试下再看-----------------------
71. 子程序 二次检查红蓝
72. 子程序结束,回到调用处
73. //-----------------------二次读经验-----------------------------
74. 子程序 二次读经验
75.     调用插件命令 jingyan2=Memory.Read16Bit(hwnd,jingyandz)
76.     如果表达式 (jingyan2=jingyan1) 为真,则
77.         调用子程序 转动视角
78.         调用子程序 打怪
79.     条件结束
80. 子程序结束,回到调用处
81. //-----------------------捡物-----------------------------
82. 子程序 捡物
83.     循环 3 遍
84.         调用插件命令 Bkgnd.KeyDown(hwnd,jianwu)
85.         延时50毫秒
86.         调用插件命令 Bkgnd.KeyUp(hwnd,jianwu)
87.     循环结束
88. 子程序结束,回到调用处
89. //-----------------------转动视角----默认键为方向键右---------------
90. //-----------------------因为游戏特殊性 不转动的时候怪没刷出来 前面很远的怪不能选 后面很近的怪也不能选
91. 子程序 转动视角
92.     调用插件命令 Bkgnd.KeyDown(hwnd,39)
93.     延时1300毫秒
94.     调用插件命令 Bkgnd.KeyUp(hwnd,39)
95. 子程序结束,回到调用处