mimi_rice 发表于 2015-3-16 09:36:43

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

自动打怪实战脚本(3D网游篇)本文由按键学院提供技术支持






按键学院交流群（1群已满）：376122403零基础学按键精灵群（2群）：372671254

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


如无法观看，请点击下载:**** Hidden Message *****
http://bbs.vrbrothers.com/ajjl-jc-source/flash/vipjc/ajjl-jc-0021.swf

源代码Hwnd = Plugin.Window.Find(0, "口袋西游")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(sRect,"|")
Ux=CLng(MyArray(0))
Uy = CLng(MyArray(1))
MessageBox Ux
Rem xuanze
Call chiyao()
KeyPress "2", 1
Delay 300
KeyPress "Tab", 1
Delay 1000
IfColor 384+Ux,33+Uy,"2D28BE",0 Then
    Rem gongji
    Call chiyao()
KeyPress "1", 1
    Delay 1000
    IfColor 385+Ux,37+Uy,"E29621",0 Then
    Goto gongji
Else
    Goto xuanze
End If
Else
Goto xuanze
End If
Sub chiyao()
IfColor 122+Ux,22+Uy,"9D640B",0 Then
    KeyPress "3", 1
      Delay 300
End If
End Sub

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

作废游戏 发表于 2015-5-28 11:03:41

希望越办越好， 海加油

ffx530 发表于 2015-6-13 22:36:35

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

往事如风 发表于 2015-6-13 22:36:36

我只是看看这个是什么

孤独无名 发表于 2015-6-17 16:38:10

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

godpower 发表于 2015-6-30 23:40:28

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

dtok2015 发表于 2015-6-30 23:48:53

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

beibeixin1 发表于 2015-7-8 15:47:06

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

min722922 发表于 2015-7-28 16:37:19

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

xianzhen 发表于 2015-7-29 09:47:59


看起来还可以的，支持下。
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 自动打怪实战脚本(3D网游篇)