设为首页收藏本站
切换到宽版

中国黑防联盟

搜索
快捷导航
中国黑防联盟»黑防论坛 › 资源共享区 › 易语言源码 › 存档 1 › 按键精灵脚本源码 梦幻西游自动打怪
12下一页
返回列表
查看: 1093|回复: 17

[其它源码] 按键精灵脚本源码 梦幻西游自动打怪

[复制链接]
发表于 2021-1-28 14:07:24 | |阅读模式
脚本附件：ditu.bmp, zhandou.bmp, dajia.bmp, xuetiao.bmp, chiyao.bmp, djxn.bmp
运行环境：分辨率：1280x768 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.30.11233
  1. //由于是刚开始学的，所以代码繁乱 不简洁请见谅啦   
  2. //谁看不爽可以帮我修改下的~~~~(>_<)~~~ 偶会感激不尽  
  3. //仅供娱乐= =~!交流  部分代码网络上载的   
  4. // 使用注意 由于是测试脚本所以：  
  5. // 本脚本只给人加血 请把加血用药放在背包第一个位置，  
  6. //一定要大量的存储血药如 红碗 什么的 用完没有提示并且脚本  
  7. //会不断的重复点背包第一个位置 造成死循环  
  8. //切不要吧行囊打开 不要遮住梦幻窗口 由于本脚本纯绿色的非读写内存..所以你懂得    // 中国黑防 www.vcs6.com
  9. //下面是注释  
  10. // 找到最顶层的窗口 并移动至0.0位置  
  11. Hwnd = Plugin.Window.Foreground()  
  12. sRect = Plugin.Window.GetClientRect(Hwnd)  
  13. Dim MyArray  
  14. MyArray=Split(sRect,"|")  
  15. Ux=CLng(MyArray(0))  
  16. Uy=CLng(MyArray(1))  
  17. Call Plugin.Window.Move(Hwnd, 0, 0)  
  18. //隐藏 梦幻西游聊天窗口   
  19. Hwndck = Plugin.Window.Find(0, "梦幻西游 聊天窗口")  
  20. Call Plugin.Window.Hide(Hwndck)  
  21. //进行循环找怪操作  
  22. Rem aa  
  23. Call 找怪()  
  24. Goto aa  
  25. Sub 找怪()  
  26. //打开地图 并且随机在地图内移动鼠标 (可能部分地图会出现越出地图的情况)并点击  
  27. //如果出现怪物 则会切换到战斗  
  28.     KeyPress "Tab", 1  
  29.     Delay 200  
  30.     Rem zhaoguai  
  31.     FindPic 0,0,1024,768,"Attachment:\ditu.bmp",0.9,ditux,dituy  
  32.     If ditux > 0 And dituy > 0 Then  
  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.         Call 鼠标移动(rx, ry)  
  38.         Delay 200  
  39.         LeftClick 1  
  40.         Delay 2000  
  41.         FindPic 0,0,1024,768,"Attachment:\zhandou.bmp",0.9,zdx,zdy  
  42.         If zdx > 0 And zdy > 0 Then   
  43.             Call 战斗()  
  44.         Else   
  45.             Goto zhaoguai  
  46.         End If  
  47.     Else   
  48.         KeyPress "Tab", 1  
  49.         Delay 200  
  50.         Goto zhaoguai  
  51.     End If  
  52. End Sub  
  53. //此代码为防止鼠标飘逸 具体不多说了  
  54. Sub 鼠标移动(w,z)  
  55.     dim n,h,zx,zy,zzx,zzy  
  56.     htt=0  
  57.     n=1  
  58.     h=0  
  59.     zx=w  
  60.     zy=z  
  61.     If zx<50 or zx>540 Then  
  62.         If zx<50 Then  
  63.             zzx=zx+40  
  64.         End if  
  65.         If zx>540 Then  
  66.             zzx=zx-40  
  67.         End if  
  68.     Else  
  69.         zzx=zx  
  70.     End if  
  71.     If zy<50 or zy>400 Then  
  72.         If zy<50 Then  
  73.             zzy=zy+40  
  74.         End if  
  75.         If zy>400 Then  
  76.             zzy=zy-40  
  77.         End if  
  78.     Else  
  79.         zzy=zy  
  80.     End if  
  81.     MoveTo zzx, zzy  
  82.     Delay 100  
  83.     Rem py  
  84.     GetCursorPos x, y  
  85.     mz=0  
  86.     FindCenterColor x-110,y-110,x+110,y+110,"78F4F0",x1,y1  
  87.     If x1>0 and y1>0 Then  
  88.         a=zx-x1+20  
  89.         b=zy-y1+10  
  90.         Goto OK  
  91.     End if  
  92.     XY = Plugin.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: y1 = Clng(sbwz(1))-9  
  95.     If x1>0 and y1>0 Then  
  96.         a=zx-x1  
  97.         b=zy-y1  
  98.         Goto OK  
  99.     End if  
  100.     XY=Plugin.Color.FindMutiColor(x-110,y-110,x+110,y+110,"D0AC30","1|0|D0AC30,2|0|D0AC30,3|0|D0AC30,4|0|D0AC30,2|1|D0AC30,2|2|D0AC30,2|3|D0AC30,2|4|D0AC30,2|5|D0AC30,2|6|D0AC30,2|7|D0AC30,2|8|D0AC30,2|9|D0AC30,2|10|D0AC30,2|11|D0AC30,2|12|D0AC30,2|13|D0AC30,2|14|D0AC30,2|15|D0AC30,2|16|D0AC30,2|17|D0AC30,2|18|D0AC30,2|19|D0AC30,2|20|D0AC30,0|21|D0AC30,1|21|D0AC30,2|21|D0AC30,3|21|D0AC30,4|21|D0AC30",1)  
  101. 1 2 Next
  102.     sbwz=Split(XY,"|")  
  103.     x1=Clng(sbwz(0))+2: y1=Clng(sbwz(1))+11  
  104.     If x1>0 and y1>0 Then  
  105.         a=zx-x1  
  106.         b=zy-y1  
  107.         Goto OK  
  108.     End if  
  109.     mz=1  
  110.     MoveTo zzx ,zzy  
  111.     Delay 150  
  112.     Rem OK  
  113.     If htt=10 Then  
  114.         Goto NO  
  115.     End if  
  116.     If h=6 Then  
  117.         MoveTo 300 ,300  
  118.         Delay 500  
  119.         htt=htt+1  
  120.         h=0  
  121.         Goto py  
  122.     End if  
  123.     If mz=1 Then  
  124.         h=h+1  
  125.         Goto py  
  126.     Else  
  127.         If Abs(a)>n or Abs(b)>n Then  
  128.             MoveR a,b  
  129.             Delay 100  
  130.             h=h+1  
  131.             Goto py  
  132.         End if  
  133.     End if  
  134.     Rem NO  
  135. End Sub  
  136. //战斗子程序 会自动按且仅会按alt+a进行攻击 可以替换代码使用法术攻击  
  137. //战斗完毕后会判断人物血量 少于大约75%的时候自动打开背包使用背包的  
  138. //第一个位置的加血要（只会使用第一个位置的加血药 如果用完会导致脚本死循环 请暂停）  
  139. Sub 战斗()  
  140.     Rem dajia  
  141.     //寻找是否存在怪物的代码 请别按出最右边的人物菜单  
  142.     FindPic 0,0,1024,768,"Attachment:\dajia.bmp",0.9,djx,djy  
  143.     If djx > 0 And djy > 0 Then   
  144.     //如果找到 则按alt+a   
  145.         KeyDown 18, 1  
  146.         KeyPress 65, 1  
  147.         KeyUp 18, 1  
  148.         Delay 500  
  149.         KeyDown 18, 1  
  150.         KeyPress 65, 1  
  151.         KeyUp 18, 1  
  152.       //回到是否存在怪物的判断上  
  153.         Goto dajia  
  154.     End If  
  155.     Delay 500  
  156.     //如果怪物被打败 则会判断人物血量  
  157.     FindPic 0,0,1024,768,"Attachment:\zhandou.bmp",0.9,zdx,zdy  
  158.     If zdx > 0 And zdy > 0 Then   
  159.         Goto dajia  
  160.     Else   
  161.         Rem aaaa  
  162.          
  163.         FindPic 0,0,1024,768,"Attachment:\xuetiao.bmp",0.9,cxx,cxy  
  164.         If cxx > 0 And cxy > 0 Then   
  165.             gc=GetPixelColor(cxx+45,cxy)  
  166.             If gc = "8084A8" Then   
  167.             //进行加血操作  
  168.                 Call 鼠标移动(cxx-350,cxy+110)  
  169.                 FindPic 0,0,1024,768,"Attachment:\djxn.bmp",0.9,djx,djy  
  170.                 If djx > 0 And djy > 0 Then  
  171.                     call 鼠标移动(djx+59,djy+103)  
  172.                     Delay 500  
  173.                     RightClick 1  
  174.                     Delay 2000  
  175.                     KeyDown 18, 1  
  176.                     KeyPress 69, 1  
  177.                     KeyUp 18, 1  
  178.                     Delay 1000  
  179.                     //循环判断人物血量  
  180.                     Goto aaaa  
  181.                 Else   
  182.                     KeyDown 18, 1  
  183.                     KeyPress 69, 1  
  184.                     KeyUp 18, 1  
  185.                     Delay 2000  
  186.                     Goto aaaa  
  187.                 End If  
  188.             End If  
  189.         End if  
  190.     End If  
  191. End Sub
复制代码



永远支持中国黑防联盟论坛：www.vcs6.com
123457462
发表于 2021-5-3 14:27:40 |
感谢分享，收藏下载了
永远支持中国黑防联盟论坛：www.vcs6.com
123457782
发表于 2021-5-11 22:59:25 |
膜拜神贴，后面的请保持队形~
永远支持中国黑防联盟论坛：www.vcs6.com
smile929
发表于 2021-5-20 20:35:31 |
感谢分享，收藏下载了
永远支持中国黑防联盟论坛：www.vcs6.com
浪子孤女
发表于 2021-6-3 01:47:17 |
真的可以用，感谢楼主，顶一下
永远支持中国黑防联盟论坛：www.vcs6.com
发表于 2021-6-6 15:17:57 |
这么牛X，试试看
永远支持中国黑防联盟论坛：www.vcs6.com
邱见青
发表于 2021-6-15 13:03:10 |
永远支持中国黑防联盟论坛的发展，支持楼主！
永远支持中国黑防联盟论坛：www.vcs6.com
123457305
发表于 2021-7-9 16:56:13 |
本人正在闭关渡劫，飞升之后回复。
永远支持中国黑防联盟论坛：www.vcs6.com
ucbg634
发表于 2021-7-23 02:08:54 |
拿走用啦，谢谢分享
永远支持中国黑防联盟论坛：www.vcs6.com
发表于 2021-8-3 00:33:05 |
谢谢分享，真不错
永远支持中国黑防联盟论坛：www.vcs6.com
下一页 »
12下一页
返回列表
关闭

站长推荐上一条 /1 下一条

手机版|小黑屋|网站地图|( 蜀ICP备2020029785号 )

快速回复 返回顶部 返回列表