你的偶像正在直播中，
可用的推荐票
易语言做DNF辅助
礼物加载异常，请点击重试
礼物正在加载中，请稍后......
加载失败，请点击重试
（错误代码：001）
登录后查看你的排名
我未上榜?(???)?
最佳战绩：
本视频还没有人送礼?(???)?
有钱任性，赏TA一个礼物呗~
加载失败，请点击重试
（错误代码：001）
0人正在看，条弹幕
本作品还没有弹幕?(???)?
等你来一发！
加载失败，请点击重试
（错误代码：001）
投推荐票最多的观众
送礼值最高的观众
加载异常，请点击重试
（错误代码：005）
同专辑作品
作者更多作品
我来说两句...
现在还没有评论哦~快来抢沙发！
加载异常，请刷新重试
王者荣耀星耀榜&&排名&第50名
加载异常，请点击重试
（错误代码：005）
视频作者排行
新的一周开始啦，速来打榜赢福利！
加载失败，请点击重试
（错误代码：001）
加载失败，请点击重试
（错误代码：001）
版权声明：
未经爱拍原创授权，任何第三方不得以转载、修改、复制、出版及其他方式使用本站视频。
确定取消关注TA (⊙o⊙)？
我再想想心意已决
下载爱拍APP
粤网文[8号
爱拍网违法和不良信息举报***：
举报邮箱：
版权所有 广州爱拍网络科技有限公司
关注爱拍公众号
微信扫码关注或微信
搜索 “爱拍原创”
关注爱拍官方微博
微博扫码关注或<专注网络游戏工作室赚钱项目攻略！
当前位置： >>
&人围观&&日 12:36&&分类 : 游戏工作室项目
这个dnf项目是手动项目，收入不算高，还需要鼠标键盘同步器的配合，因为是老游戏，但是相对又比较稳定，而且门槛儿低，低配垃圾电脑都可以干。并且dnf很少开新区，这个大家都知道的，只要练起来足够的角色，就可以一直搬到dnf这个项目倒闭为止。暂时没有项目的可以考虑下。本人接触dnf已经五年多了，真正开始赚钱是从去年下半年，因为玩了五年多dnf手里的账号角色也有十几个。刚开始是用自己的大号红眼去拖自己的三个小号尸体打野猪，那个时候级别都低，野猪的材料也都很贵，一组156PL下来材料+金币也有五六百万的收入 。可是随着后来dnf更新，角色等级的提升，做野猪装备的越来越少，野猪材料也越来越便宜，带尸体已经没有太多的利润了。所以我就想直接从一级四开起号不是更好？四个号可以翻四个牌子，爆率也更高一些。。于是买来同步器，每台电脑用软件双开，两台电脑四开。（注：需要买同步器的朋友千万不要买轩氏的，简直就是个坑。特别是不要买软件同步器，例如好人同步。个人比较推荐迈拓维矩 8口USB。）当时刚刚出了新职业缔造，玩过dnf的都知道，缔造可以用鼠标捡东西，缔造刷图很快，有控，有攻，同级别的地图都秒过。起号的时候，最好是冲上黑钻，不仅疲劳多，而且可以多翻一个牌子，钱也多，成长期约也必须买，经验多升级快，可以早一点儿让号成型。武器修理契约也买了，这样就不用花钱修武器了。。每组四个角色之中要拿出一个角色来练***机，20级就可以学了，前期打到的装备都不值钱，可以用来升级***机，等级别高了以后，打到的装备蓝白装都可以***，比直接卖商店要多赚很多。现在无色每个大区都很贵。有黑钻跟成长期约的情况下，一般一个月就可以升到55级了，就可以去天界刷外围了。外围对于手动搬砖的来说，是一个很好的图，房间小，容易聚怪，钱多，装备也多。当然这不是长久之计，还是要跟着任务走，一直往上升。现在dnf已经是85版本，当然肯定是级别越高的地图，收入越高，从55级以后就可以边升级边赚钱了。dnf里术语一组呢 是指四个角色，两台电脑四开，我再重复一下哦。。55级开始一组就可以有300W-400W的收入，一组号一个小时内可以刷完疲劳。70级以上一组就有400W以上的收入，到了80级左右，就可以无限去刷凌冬了，一组号下来有500W以上的收入。收入这方面的数据来源我就不详说了，dnf手动搬砖就是不停的进副本，不停的刷怪刷材料，当然了，dnf肯定是还有别的收入来源，比如开罐子，比如专业商人，这些我没有研究过，就不多说了。如果是不满足这一个小时10-15RMB的收入的亲们，可以考虑再多加两台电脑，一台电脑双开，四台电脑，这样就是八开，用同步器，一控八角色，分成两组队伍，时间方面会稍微慢一点，因为你毕竟要关注两个显示器，要控制两个队伍。但是收入也是双倍的。最累的就是起号的时候，要一直做任务，但是相信我，只要把号练起来了& ，就等于是春天来了。以后就是傻瓜式操作，不停的进副本，出副本，换角色，再进副本，再出副本，再换角色。仅此而已。再说一下网线方面的问题，本人是两台电脑一根网线，用的路由器。两条网线带了四台电脑。网线是4M。足够用。稍微补充一下上面说的罐子问题，开罐子这个东西完全看脸，如果有自认为脸很白，人品很好的，可以尝试一下，反正楼主本人是尝试过开了三天，连赔了三天。每个大区都有罐子商人，运气好的可以试一下。买个双倍罐子契约，买个高效开罐，就可以了。双倍罐子必须要买哦 ，开出来的好装备都是双倍的。 关于DNF刷图工作室多开手动职业的选择，首先最给力的是缔造，有控有攻，还可以鼠标捡物，是刷图最快的职业。其次是炮娘，炮娘适合刷一条直线的地图，比如追击，比如补给，凌冬就不太适合了，还有一个硬伤是捡东西的时候硬直太高，会傻站着半天才能动。阿修罗以前版本很给力，现在削弱了不少，但还是有不少多开党用阿修罗。魔道，爆发挺高，可以飞，看别人的多开视频感觉还不错。女机械，是最安逸的，但是刷图速度有点儿慢，不太推荐。红眼，虽然爆发高，但是很容易走位走错。不太推荐。死灵，前期伤害很高，70级以后的图就很无力了，不太推荐。最后总结 ，DNF工作室同步器刷图是纯手动的，所以会累，会枯燥。能者多劳，刷的越多收入越高。当然如果你一天只能刷个两三个小时，那奉劝别进坑了就。当业余还是可以的。这个项目只适合暂时还没有好项目，想找个稳定点儿先吃饭的，对收入要求不算太高的亲们哦。Ps：飞机辅助神马的当然给力，轻松，但是稳定性楼主我就不多说了哦，一旦大封号或者是老马不开心，所有的号都全死也说不定哦。小弟我胸无大志，首先要求稳定性的呢~~！
此文&&原创，转载注明地址：
本文标签：&&&&&&
本文作者：
暴利项目：
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
请问DNF多开需要几台主机啊，是一台主机控制嘛
你好在吗？有联系方式
加我好友qq
能加我qq吗，细谈
你好，非常感谢，能加我qq吗，细聊
赚毛线的钱
可以加我下吗
讨论下，大神
游戏也可以挣钱，亲眼见到了
同步器小号组队
老是说数据异常
没有规范游戏 。 这个怎么解决啊？ 只能多条网线么？
迈拓的用了1天扔了 换的轩式 迈拓切机有延迟单线 2机 双开 说实话封死你不单机单IP 你刷个P
可以加我下吗
讨论下，大神qq
这样的东西老A你也发，我服了。评论一针见血，我就给你见见看1，一组号根本没有300 400w
你做外围还300w你搞笑哪，200w撑死了。2，一小时10r？你逗我那，10r是500w，刷一组最少两小时，一小时大概3r差不多3，是人的话绝对没法8开，不同地图你还同步器刷，你tm纯搞笑。
这位亲，首先请你把TM那俩字母去掉，其次对于你这种无知小白，我真心不想解释，前几楼说的IP问题，小号组队偶尔会三方的问题确实存在，但是像你这种不懂装懂的人，我是真心看不惯。。你说外围地狱四开收入只有二百万 请问谁给你的勇气说的？你说一组号最少要两个小时，请问你是用脚刷的？？楼主一直在强调说缔造刷图超快，捡东西用鼠标，一个小时一组，你眼睛让眼屎糊住了？搞笑，还说什么是个人就不可能八开，楼主有说过八开是不同地图？楼主一再强调八开分成两组队伍。。小白就要有小白的态度，dnf虽然走下坡路了，但是水还是很深，这行你不知道的事情也多了去了，请保持一个友好的态度，OK？一控16的大神比比皆是 我会乱说？
一山还比一山高所以要低调
最TM恶心的就是这种人
自己想不到的事情
认为别人做不到
老子48控都做过两个月
二货 没救了
作者来了，大家怎么看？人家作者投了稿了，就是好的。就像前几天一位朋友说的，文章都是扯淡，然后天天跑来看！矛盾啊。
我想知道楼上兄台如何同步48台的？20台就已经很累了。万分感谢！是用VGA分割器加投影仪么？
为什么被删了？如何可以同步48啊。48看不过来啊
朋友可以交流下吗
我有个小工作室，现在不能运行，求帮助！***
第一，20级以下组队次数超过两次，出现小三，20级以上没事第二，多台电脑多开，至少要拉很多网线，一般一条网线用路由器只能2台电脑双开4个号第三，DNF的游戏币价格持续跌幅，即使手动累死你个人一天也没多少钱
[F]Nothing_to_say[/F]
要不就是没用过同步器，要不就是来做广告的！首先，大部分四口、八口等等的同步器A键不好使。其次，用同步器开多台电脑，组队刷图会出小三，而且是经常出。别的其他人都说了，就不多说了！别迷恋同步器了，同步器的时代已经过了！
真有用的好的。！
还是召唤好
我4开召唤- -
就看宝宝刷图就好了。。。。。
没有LZ说的那么好吧。 时间就浪费在拾取东西上没，同步器也做不到绝对同步，走着走着就有点距离差。
四口同步器哪种比较好一些呢？轩氏吗？用过的人说一声哈
问题肯定会有的，必竟不是辅助 哈哈。如果多开几台电脑，也许利润就上来了吧。
继续吹 前阵子我做DNF代练 练小号一台机器2双都封号的。 还一条网线4开呢 我只能呵呵了。大家可以去试试同步一台机器2开你看能刷完PL吗。肯定会提示3方
刷快了也3方！！
朋友，你做不到并不代表别人做不到吧。就好像这个项目我赚钱，你却赔钱一样的道理。我有一个朋友，同步器控制8台电脑，天天稳定的刷你信不信？可能你不信，但DNF用同步器，现在还在发财的工作室大把。你信与不信，我都说了，我都看到了，嘿嘿。
大神加个Q想同步器搬砖求指教
但是从淘宝的交易和评论来看，似乎是轩氏的更好，百度也没有***，本人最近正在犹豫呢，究竟哪个更好呢？
轩氏的我在用，玩NDF同步刷图，20左右小号，一条疲劳没完肯定25秒三方，玩其他游戏的话都没问题，斗战神刚开的时候同步4开刷图没问题，现在没试过！
没用过同步器的，看你们说。嘿嘿。
（注：需要买同步器的朋友千万不要买轩氏的，简直就是个坑。特别是不要买软件同步器，例如好人同步。个人比较推荐迈拓维矩 8口USB鼠标键盘同步器。）迈拓比较好？那么四口的呢？
明显的广告啊。还问啥啊，你很单纯啊骚年
但是从淘宝的交易和评论来看，似乎是轩氏的更好，百度也没有***，本人最近正在犹豫呢，究竟哪个更好呢？就是感觉好像是广告才问问大家哈，看看别人怎么说
额。别看评论，别看销量。做过LOL代练，我才知道淘宝刷销量真的太强大了。
相关文章 9:49:22 11:7:53 9:45:27 11:8:12 17:18:52 17:27:53 17:57:43 10:4:5 10:25:59 12:30:46
站内搜索_游戏工作室项目
网游工作室_猜你喜欢
网游工作室_最热文章
关于我们：
【NBE游戏工作室，成立于日】我们一直被采集，但从未被超越过！和NBE的小伙伴们一起做网络游戏工作室吧。痛，并快乐着！
网站内容：
NBE游戏攻略网、国内领先的网络游戏创业者一站式服务平台。本站致力于为游戏工作室打金者、玩游戏赚钱的兼职散人玩家提供动力！
联系方式：
微信公众号：nbeyouxi
NBE***QQ：
官方1群(收费)：
咨询：有问题，
备案号：辽ICP备号-1查看: 191565|回复: 72
教大家制作DNF外挂的方法
在线时间43 小时
T币帖子金砖
路旁的落叶(3级), 积分 6, 距离下一级还需 194 积分
路旁的落叶(3级), 积分 6, 距离下一级还需 194 积分
首先让我们来看一下网络游戏的工作原理：
网络游戏是这样工作的：
1.由服务器记录保存所有用户资料，所有信息的修改都是服务器完成的
2.服务器接受客户机的请求发送必要的信息给客户机，以使玩家正常游戏
3.服务器接收客户机的信息反馈，并根据反馈信息，对游戏帐号作相应修改
　　从以上简单的介绍，我们可以看出，网络游戏可以认为是这样工作的：
　　由客户机电脑操作服务器器电脑，对游戏帐号信息进行修改！
　　要操纵本地的电脑是很容易的，因此，要显示所有已经从服务器得到的信息是完全可能的，这就可以做到以下功能：
　　 1、游戏没有黑夜，因为地图在本地，全部显示是完全可以做到的！
　　 2.自动加血是没有问题的，因为血的多少也已经发到本地电脑，完全可以用外挂检测到，并在必要时加血，加血本身只是一个鼠标动作，完全可以交给外挂去做。类似的，自动加魔法，自动加气，自动回城、自动打怪、自动采矿卖钱然后再自动回去采、自动练级等等都可以做到！
　　3.卖东西的过程很经典：你卖东西时，实际就是告诉服务器电脑，你已经将一个东西卖了，真实过程是：你向服务器发送了一个具体物品的封包，如果这个封包正确，服务器就向你的游戏帐号加一定数量的钱，然后再反馈给你一些信息，假如封包不正确，自然就卖不到钱，因此，我们可以利用外挂不断向服务器发送封包，只要正确，那么服务器就认为我们再卖东西，即使我们什么都没有卖，服务器也不断给我们钱，这就是所谓的刷钱。如果封包没有加密，那么这个功能是非常容易实现的，如果封包加密，其实同样可以做到，只是要解密而已，稍微复杂些而已！类似的，就可以实现买东西用假钱（不用钱）。攻击、防御增加，原理都是类似的！
　　以上的讲解，大家应该明白，其实外挂是每个游戏都可能出现的，只要有人想做，那么就没有做不出外挂的游戏！除非这个游戏不能玩！！
--------------------------------------------------------------------
WPE（Winsock Packet Editor）
它的中文名称是：网络封包编辑器
在大多数的变成工具中winsock已经封装成一个控件，成为网络变成的控件，是非常方便的，利用这个控件，变成工具就可以编写外挂工具，例如使用VB就可以非常容易地编写出很出色的外挂。（顺便打个广告：本教材也有使用VB编写外挂教材，注册后就可以学习，利用VB编写外挂比WPE编写的外挂多出很多优点，例如，可以编写注册功能，使你做的外挂让别人使用时必须注册才能使用，WPE做出来的外挂是任何人得到了外挂就可以使用，不能实现限制使用，并且VB对键盘鼠标的控制，对系统的控制都很出色，VB是visial basic 的意思，就是可视化依据basic语言的编程工具，Basic本身就是基本的的意思，是很简单的语言，但是功能却是非常强大，建议大家学习）
现在，WPE有两个版本，分别是：WPE1.3和WPE pro0.7 前者是使用与win98操作平台，后者适用与win200和winXP操作系统。都有中文版。
----------------------------------------------------------------
VB 从零开始编外挂(一)
----------------------------------------------------------------------------------------------
需要VB API函数：
FindWindow ←寻找窗口列表中第一个符合指定条件的顶级窗口
GetWindowThreadProcessId ←获取与指定窗口关联在一起的一个进程和线程标识符
----------------------------------------------------------------------------------------------
相关API声明：
FindWindow
Private Declare Function FindWindow Lib &user32& Alias &FindWindowA& (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
GetWindowThreadProcessId
Private Declare Function GetWindowThreadProcessId Lib &user32& (ByVal hwnd As Long, lpdwProcessId As Long)
----------------------------------------------------------------------------------------------
需要的控件：Label、Timer
----------------------------------------------------------------------------------------------自定义函数：
Dim hwnd As Long
----------------------------------------------------------------------------------------------源代码：
Private Declare Function FindWindow Lib &user32& Alias &FindWindowA& (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib &user32& (ByVal hwnd As Long, lpdwProcessId As Long)As Long
Private Sub Timer1_Timer()
Dim hwnd As Long' 储存 FindWindow 函数返回的句柄
hwnd = FindWindow(vbNullString, &Windows Media Player&)' 取得进程标识符
'只要把Windows Media Player换成游戏的名称就可了！
If hwnd = 0 Then
Label1.Caption = &游戏未运行&
Label1.Caption = &游戏已运行&
VB 从零开始编外挂(二)
----------------------------------------------------------------------------------------------
相信大家，在制作游戏外挂的时候，都会用到FPE、金山游侠、GE修改器、Game Master8.0等等这些软件，但是如今的网络游戏基本上都加了NP，下面来了解一下NP。知己知彼，百战不殆嘛！
什么是nProtect？
nProtect是设计用于保护个人电脑终端不被病毒和黑客程序感染的新概念的基于网络的反黑客和反病毒的工具。他帮助确保所有输入个人电脑终端的信息在网络上不落入黑客手中。在最终用户在执行电子贸易时，可以通过将nProtect配置在那些提供电子商务、进口贸易，电子贸易的金融机构的网站上，来提高安全等级。nProtect怎样工作？nProtect是一种基于服务器端的解决方案并且当那些需要保护的任何网络应用被运行时而自动启动。nProtect被载入内存，所以最终用户不需要***任何应用程序，只要nProtect启动，就开始拒绝黑客工具和病毒的入侵！
----------------------------------------------------------------------------------------------
下面介绍它如何工作：
用户登陆时nProtect自动启动。
浏览器确认和自动***安全模块到用户的个人电脑。扫描黑客工具和病毒通知用户目前的安全状态如果有黑客工具和病毒尝试删除在被入侵时端驻留内存来锁定黑客工具直到电脑或者nProtect锁定。
可恶的韩国人，把这个加进了网络游戏。我只能说：“呸！”
----------------------------------------------------------------------------------------------
下面讲讲躲过NP的扫描的几个方法：
台湾人开发的东西，哎。出名了的，没办法谁叫它这么好呢！
1.先装一个FPE把，呵呵←这个是废话！
2.不要把***程序删除，按照：开始→运行→regedit→HEKY_LOCAL_MACHINE→SOFTWARE
→jaw→FPE 解锁！（问：有什么用？ 答：修改呀！）
3.运行FPE，然后在搜索里面输入 'jaw'(一定要家'')一般是6个地址，然后全部都选中输入:
131（意思就是111，两边多输入31就是1111！）不要关FPE！（关了就完了！）
4.修改注册表，把注册表里面的jaw、FPE（FPE的是全改）锁定FPE出现对话框。（什么鸟语不认识！呵呵）
5.将现在FPE的文件夹修改为1112000（原来是FPE2000撒），把FPE.exe修改为111.exe
6.然后重新***一次FPE也把那个DLL文件复制到你修改过的FPE文件目录下！（呵呵！）
7.开FPE进游戏里面乱来拉！哈哈
----------------------------------------------------------------------------------------------
二、任务管理器篇
比尔·盖茨那崽儿设计的东西，还可以在这上面派上用场！（问：是什么东西？答WINDOWS自带的撒！呵呵！）
1.首先用快捷键Ctrl+Alt+Delete/.解锁任务管理器
2.查看进程，一般垃圾点的网络游戏会出现多的进程。你就杀了就行了！
3.没有多的进程怎么办？BIN这个是大多数网络游戏都有的把，官方的登陆器和私服的登陆器一样的，都是调用BIN进入游戏。登陆器解锁后，更新完毕。点击运行游戏，间隔几秒杀掉登陆器的进程（这个要看你自己的计算机配置如何了，可能是2秒、可能是10秒！反正不超过15秒）这样就可以闭屏NP拉！
呵呵又可以乱来了！
----------------------------------------------------------------------------------------------
三、直接篇
直接篇说白了就不用任何东西！怎么做？跟着我眼镜来撒！
《封神榜》知道把？（答：不知道！反答：去死！）它的保护是有的，官方都已经公布了
但是有些人说《封神榜》没NP，（注意：NP现在就是保护的代名词了！）别听那些人的！
首先，运行登陆器（更新的那个）进入游戏。锁定用登陆器进入的游戏马上运行Game.exe
呵呵，没NP了。FPE等东西可以乱来了。魔法叠加、免负重等等都可以实现！
还有一种就是DAT文件或者BIN文件直接修改为EXE。呵呵！
------------------------------------------------------------
四、编程篇（VB、VC、DELPHI等等！）
怎么办呢？呵呵，我不懂怎么编VC和DELPHI的。***我就喜欢VB怎么着？
VB可以简单的实现虚拟nProtect的消息发送。具体的就不说了！
一句话虚拟nProtect消息（你不等于没说嘛！）-_-！呵呵这个嘛......！
代码就不写了，麻烦。就像用WPE这些发包一样的原理
VB 从零开始编外挂(三)
----------------------------------------------------------------------------------------------躲避了NP的扫描现在就可以模拟了！
----------------------------------------------------------------------------------------------
需要VB API函数：
keybd_event ←函数模拟了键盘行动
----------------------------------------------------------------------------------------------
相关API声明：
keybd_event
Private Declare Sub keybd_event Lib &user32& (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
----------------------------------------------------------------------------------------------
需要的控件：Timer（interval不为空）
----------------------------------------------------------------------------------------------
Private Declare Sub keybd_event Lib &user32& (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Timer1_Timer()
Call keybd_event(82, 0, 0, 0) '模拟按下&R&键
----------------------------------------------------------------------------------------------
其它模拟：
AppActivate sTitle
SendKeys &5&
AppActivate sTitle
SendKeys vbKey5
SendMessage Hwnd, WM_KEYDOWN, vbKey5, 0&
SendMessage Hwnd, WM_KEYUP, vbKey5, 0&
AppActivate sTitle
keybd_event 53, 0, 0, 0
keybd_event 53, 0, KEYEVENTF_KEYUP, 0
PostMessage lHwnd, WM_KEYDOWN, vbKey5, 0&
PostMessage lHwnd, WM_KEYUP, vbKey5, 0&
----------------------------------------------------------------------------------------------
VB 从零开始编外挂(四)
----------------------------------------------------------------------------------------------
添加快捷键
需要VB API函数：
GetAsyncKeyState ←判断函数调用时指定虚拟键的状态
----------------------------------------------------------------------------------------------
相关API声明：
GetAsyncKeyState
Private Declare Function GetAsyncKeyState Lib &user32& (ByVal vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean
----------------------------------------------------------------------------------------------
需要的控件：Timer（interval不为空）
----------------------------------------------------------------------------------------------
Private Declare Function GetAsyncKeyState Lib &user32& (ByVal vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode) & 0)
End Function
'然后在循环中或Timer的Timer事件中检测:
Private Sub Timer1_Timer()
If MyHotKey(vbKeyA) And vbKeyControl Then 'ctrl+A
End '锁定
'其中vbkeyA是键盘〃A〃的常数，其他键可按F1查得。
----------------------------------------------------------------------------------------------
其它方法：
比如按下&ctrl+A&就退出!
'可以设置Form的KeyPreview属性为True，然后在Form_KeyDown事件中添加代码：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = Asc(&A&) And Shift = vbCtrlMask Then unload me '如果ctrl+A键被按下就退出
----------------------------------------------------------------------------------------------
VB 从零开始编外挂(五)
--------------------------------------------------------------------------------------------------------------------------------------------------------
前边谈了模拟键盘，下面说说模拟鼠标。
----------------------------------------------------------------------------------------------
需要VB API函数：
mouse_event ←模拟一次鼠标事件
----------------------------------------------------------------------------------------------
相关API声明：
mouse_event
Private Declare Sub mouse_event Lib &user32& ( ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long )
----------------------------------------------------------------------------------------------
定义变量：
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
----------------------------------------------------------------------------------------------
MOUSEEVENTF_LEFTDOWN'鼠标左键按下
MOUSEEVENTF_LEFTUP'鼠标松开
MOUSEEVENTF_RIGHTDOWN '鼠标右键按下
MOUSEEVENTF_RIGHTUP'鼠标右键松开
----------------------------------------------------------------------------------------------
Private Declare Sub mouse_event Lib &user32& ( ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long )
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
'这里是 鼠标左键按下 和松开两个事件的组合即一次单击
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
'模拟鼠标右键单击事件
mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
'两次连续的鼠标左键单击事件 构成一次鼠标双击事件
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
----------------------------------------------------------------------------------------------
VB 从零开始编外挂(六)
----------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------
需要VB API函数：
FindWindow
GetWindowThreadProcessId
OpenProcess
ReadProcessMemory
CloseHandle
----------------------------------------------------------------------------------------------
相关API声明：
FindWindow
Private Declare Function FindWindow Lib &user32& Alias &FindWindowA& (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
GetWindowThreadProcessId
Private Declare Function GetWindowThreadProcessId Lib &user32& (ByVal hwnd As Long, lpdwProcessId As Long)
OpenProcess
Private Declare Function OpenProcess Lib &kernel32& (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
ReadProcessMemory
Private Declare Function ReadProcessMemory Lib &kernel32& (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
CloseHandle
Private Declare Function CloseHandle Lib &kernel32& (ByVal hObject As Long) As Long
GetCurrentProcess
Private Declare Function GetCurrentProcess Lib &kernel32& () As Long
----------------------------------------------------------------------------------------------
需要的控件：Label、Timer（interval不为空）、Text
----------------------------------------------------------------------------------------------
定义函数：
Dim SetHp As Integer ' 定义设定的体力值
Dim SetMp As Integer ' 定义设定的魔法值
Dim NowHp As Long ' 定义目前的体力值
Dim NowMp As Long ' 定义目前的魔法值
Dim MaxHp As Long ' 定义角色的最高体力值
Dim MaxMp As Long ' 定义角色的最高魔法值
Dim DiZhi As Long '定义内存地址函数
Dim hwnd As Long ' 储存 FindWindow 函数返回的句柄
----------------------------------------------------------------------------------------------
Private Declare Function FindWindow Lib &user32& Alias &FindWindowA& (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib &user32& (ByVal hwnd As Long, lpdwProcessId As Long)
Private Declare Function OpenProcess Lib &kernel32& (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib &kernel32& (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib &kernel32& (ByVal hObject As Long) As Long
Private Declare Function GetCurrentProcess Lib &kernel32& () As Long
Dim SetHp As Integer ' 定义设定的体力值
Dim SetMp As Integer ' 定义设定的魔法值
Dim NowHp As Long ' 定义目前的体力值
Dim NowMp As Long ' 定义目前的魔法值
Dim MaxHp As Long ' 定义角色的最高体力值
Dim MaxMp As Long ' 定义角色的最高魔法值
Dim DiZhi As Long '定义内存地址函数
Private Function ncnr(lpADDress As Long) As Integer
' 声明一些需要的变量
Dim hwnd As Long ' 储存 FindWindow 函数返回的句柄
Dim pid As Long ' 储存进程标识符( Process Id )
Dim pHandle As Long ' 储存进程句柄
hwnd = FindWindow(vbNullString, &封神榜·网络版&)
' 取得进程标识符
GetWindowThreadProcessId hwnd, pid
' 使用进程标识符取得进程句柄
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
' 在内存地址中读取数据
ReadProcessMemory pHandle, lpADDress, ByVal VarPtr(ncnr), 4, 0&
' 锁定进程句柄
CloseHandle hProcess
End Function
Const STANDARD_RIGHTS_REQUIRED = &HF0000
Const SYNCHRONIZE = &H100000
Const SPECIFIC_RIGHTS_ALL = &HFFFF
Const STANDARD_RIGHTS_ALL = &H1F0000
Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF
Const PROCESS_VM_OPERATION = &H8&
Const PROCESS_VM_READ = &H10&
Const PROCESS_VM_WRITE = &H20&
Private Sub Form_Load()
' 体力：07F68F3 这里替换你所搜索到的地址 魔法：07F6860 同前
DiZhi = &H07F68F3
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Private Sub Timer1_Timer()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, &封神榜·网络版&)
If hwnd = 0 Then
Label12.Caption = &游戏未加载&
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Label12.Caption = &游戏已加载&
SetHp = Text1.Text ' 获取设定的体力值
SetMp = Text2.Text ' 获取设定的魔法值
NowHp = ncnr(DiZhi) ' 获取当前的体力值
NowMp = ncnr(DiZhi + 12) ' 获取当前的魔法值
MaxHp = ncnr(DiZhi + 4) ' 获取角色的最高体力值
MaxMp = ncnr(DiZhi + 16) ' 获取角色的最高魔法值
Label3.Caption = Str(NowHp) + &/& + Str(MaxHp) ' 显示角色体力值状态
Label4.Caption = Str(NowMp) + &/& + Str(MaxMp) ' 显示角色魔法值状态
If Check1.Value Then
Timer2.Enabled = True
Timer2.Enabled = False
If Check2.Value Then
Timer3.Enabled = True
Timer3.Enabled = False
Private Sub Timer2_Timer()
' 体力值小于设定值按下数字键1
If (NowHp) & SetHp Then
SendKeys &1&
Private Sub Timer3_Timer()
' 魔法值小于设定值按下数字键2
If (NowMp) & SetMp Then
SendKeys &2&
在线时间43 小时
T币帖子金砖
路旁的落叶(3级), 积分 6, 距离下一级还需 194 积分
路旁的落叶(3级), 积分 6, 距离下一级还需 194 积分
沙发自己留
在线时间278 小时
T币1107 元
T币帖子金砖
奔跑的春风(7级), 积分 1288, 距离下一级还需 212 积分
奔跑的春风(7级), 积分 1288, 距离下一级还需 212 积分
麻烦汗...............
在线时间284 小时
T币2353 元
T币帖子金砖
祖国的花朵，开一朵掐一朵
深海的明珠(8级), 积分 163, 距离下一级还需 1837 积分
深海的明珠(8级), 积分 163, 距离下一级还需 1837 积分
好吧 虽然我是学计算机的 但是还是看不懂& &C语言+ VB&&数据库 我全都不行&&嘿嘿
在线时间278 小时
T币1107 元
T币帖子金砖
奔跑的春风(7级), 积分 1288, 距离下一级还需 212 积分
奔跑的春风(7级), 积分 1288, 距离下一级还需 212 积分
在线时间110 小时
T币1471 元
T币帖子金砖
路旁的落叶(3级), 积分 13, 距离下一级还需 187 积分
路旁的落叶(3级), 积分 13, 距离下一级还需 187 积分
看到那一串串英文字母，和大量的文字，我没心情看了。但谢谢LZ分享。
在线时间7 小时
T币帖子金砖
流浪的疾风(2级), 积分 1, 距离下一级还需 99 积分
流浪的疾风(2级), 积分 1, 距离下一级还需 99 积分
要现场教啊
在线时间0 小时
T币帖子金砖
无名的过客(1级), 积分 0, 距离下一级还需 1 积分
无名的过客(1级), 积分 0, 距离下一级还需 1 积分
在线时间0 小时
T币帖子金砖
无名的过客(1级), 积分 0, 距离下一级还需 1 积分
无名的过客(1级), 积分 0, 距离下一级还需 1 积分
我很菜&&看来是学不会了
在线时间1429 小时
T币3391 元
T币帖子金砖
做人真难？