自动打怪实战脚本(3D网游篇)

mimi_rice

  自动打怪实战脚本(3D网游篇)

本文由按键学院提供技术支持

按键学院交流群（1群已满）：376122403

零基础学按键精灵群（2群）：372671254

按键学院院刊【201407期】给大家分享的是，自动打怪实战脚本的技术交流贴~~{:5_135:}
3D角色扮演网游如《寻仙》，《口袋西游》等，其打怪流程其实是非常简单的，看完视频，大家就明白怎么写一个简单的自动挂机的脚本了~~

如无法观看，请点击下载:

游客，如果您要查看本帖隐藏内容请回复

[flash]该链接无法确定安全[/flash]

源代码

1. Hwnd = Plugin.Window.Find(0, "口袋西游")
   
2. sRect = Plugin.Window.GetClientRect(Hwnd)
   
3. Dim MyArray
   
4. MyArray=Split(sRect,"|")
   
5. Ux=CLng(MyArray(0))
   
6. Uy = CLng(MyArray(1))
   
7. MessageBox Ux
   
8. Rem xuanze
   
9. Call chiyao()
   
10. KeyPress "2", 1
    
11. Delay 300
    
12. KeyPress "Tab", 1
    
13. Delay 1000
    
14. IfColor 384+Ux,33+Uy,"2D28BE",0 Then
    
15.     Rem gongji
    
16.     Call chiyao()
    
17. KeyPress "1", 1
    
18.     Delay 1000
    
19.     IfColor 385+Ux,37+Uy,"E29621",0 Then
    
20.     Goto gongji
    
21. Else
    
22.     Goto xuanze
    
23. End If
    
24. Else
    
25. Goto xuanze
    
26. End If
    
27. Sub chiyao()
    
28. IfColor 122+Ux,22+Uy,"9D640B",0 Then
    
29.     KeyPress "3", 1
    
30.         Delay 300
    
31. End If
    
32. End Sub

复制代码

本文由按键学院提供技术支持

游客，如果您要查看本帖隐藏内容请回复

游客，如果您要查看本帖隐藏内容请回复

联系我时，请说是在 挂海论坛 上看到的，谢谢！

作废游戏

希望越办越好， 海加油

ffx530

楼主真给力,都来赞一个,要一直给力哈~

往事如风

我只是看看这个是什么

孤独无名

激动人心啊,飞呀飞~不知道说什么好,反正不错!

godpower

一如既往的给你加油..努力努力再加油。

dtok2015

学习一下看看的呢。。。。

beibeixin1

看帖回帖是美德，大家要保持，回帖还可以得积分！

min722922

你好 我只是看看不说话，看我就走。

xianzhen

看起来还可以的，支持下。