<专注网络游戏工作室赚钱项目攻略！
当前位置： >>
&人围观&&日 17:09&&分类 : 游戏工作室建立
很多人都是迷迷糊糊进入的这个行业，或者说是在手动或家里一个人的时候能赚点钱儿，但真正建立了游戏工作室后就从未赚钱过了。跟着市场辅助代理商混了一年，不但没赚钱，还赔了几千块进去。于是乎，觉醒了，自己找个作者，写个辅助，稳赚钱，嘿嘿！太天真.......有些时候我们总是一厢情愿，去想着那些美好的事情，无论有没有出金思路，每天都有很多人让我给联系作者，我都相当的无语。也不知道是从什么时候起，是谁给了大家一种错误的理解，以为有了作者，写个内部，就能稳稳的赚钱了。也许事实真的是这样，但有没有想过在与作者达成合作期间这一段路有多么的艰难？我认识的游戏辅助作者或团队，没有上千也有几百了吧？要是七级按键也算上的话，可以说是QQ好友里几十个好友，就能挑出一个作者。与他们聊天时我懂得了，写辅助不是切大白菜，手起，刀落，可以下锅了。要时间的，要精力的。现在的网游市场，如果没有一个成熟的出金路线，跟着新游戏走，写十个游戏，也不一定出一个项目。也许出了一个立刻就被模仿，最后的结果是忙活一个月，写出来的东西1万块都赚不到，市场就被作死了。任何人都是不傻子，也不是免费劳动力，大家都是来捞金的，你说你有一个项目能赚多少，多少的。作者就会去傻傻的给你写辅助？在不了解的情况下，在都没有过合作的情况下，谁去写谁脑袋肯定是不正常。如果是在没有出金思路的情况下，就更可笑了，你有机器，让我写找游戏，写辅助，然后我们分成？现在这行不缺作者，也不缺少机器，而是缺少能真正踏实做事的人。以下是我这几年联系作者，帮朋友联系作者，组织带队包挂遇到的一些现实问题：1，有一个DNF工作室做不下去了，来找我联系个作者。手头啥也没有了，只有几百台机器。我笑了，既没有出金路线，机器规模又没达到一定程度，有哪个作者会去给你找游戏，然后在测试游戏，然后在写成辅助，然后给你用？太天真..........2，确实有出金路线，但是利润比较少，不可能上太多机器，想找个作者写个辅助。那么问题来了，作者要钱不给，准备分成。作者的担心是，你这个项目能做多久，你知道，我不知道。你啥也不给我，就让我在这花半个月，甚至是一个月给你写辅助，风险太大，不可控因素太大。而有出金思路的人又觉得花钱写这辅助，回收成本太慢。3，封号太厉害，想找个作者写个内部，以为能防封。也是天真！例如剑灵，DNF，梦幻西游等游戏，谁都知道这些项目只要不封号稳赚钱，就有人幻想着自己找作者写个辅助，自己用，是不是就会减少封号概率？（这些牛逼游戏都能搞定的团队，轮不到百来台的小作坊！）4，最现实的问题，先钱，先货？游戏工作室担心写出来的东西不合格，或者是拿钱跑路。作者担心啥也拿不到花时间与精力写完东西后，不理想，或者是游戏有变动，你累傻小子。（信息差，信誉差，这方面导致了很多合作项目流产！）5，找作者合作写辅助与代理商买辅助又不一样，项目开发出来后涉及到后期的维护更新。软件这个东西从它写出来到最后的消失就没有完美这一说法，总是在修复BUG，何况是游戏，要更新，要有改动，要有封号，时间长了摩擦就来了，与作者不欢而散，或者是感觉到受作者要挟的事儿太多。（更有无良作者，项目赚钱直接在出一个版本拿出去卖了！）很现实的一个例子，我以前认识一个写DNF脚本的作者，技术算是相当牛逼了。后来去做轩辕传奇，居然买别人的挂。我问他：你自己会写为什么不去写出来，而是用别人的，他说：写这个要时间的啊，我又不是神，写出来的不一定比他的好用，如果拿出去卖，人家的已经很好了，别人为什么要买我的。（所以说：市面上有的，不一定就是不好的。）游戏辅助只是个辅助工具而以，并不一定自己找人写出来的就是最好的。只有技术牛逼到一定境界，并且在游戏里，封号率，利润率都完美结合的时候，才能促进一款赚钱的辅助的成功诞生。能把辅助写出来扔向市场的（简单的圈钱按键不计），都不白给的，你能确定你找的作者的技术就完美超过这些市场挂？人们总是喜欢活在幻想里，要不然也不会有那么多的入行者以为买几十台机器就轰隆隆地赚钱了。找作者，写辅助也是这样的道理，开发出一款成功的项目是另人兴奋的，但又有多少人考虑到这期间会有多少的困难与险阻呢？最简单现实的问题，你先给钱，还是他先给写？?得不到的，才这个行业里最赚钱的，最牛逼的辅助，最牛逼的项目，人们总喜欢活在“人家说”“人家赚钱”的幻想世界里。找作者，写辅助，就等于稳赚钱了？太天真............相关阅读：
此文&&原创，转载注明地址：
本文标签：&&&&&&
本文作者：
暴利项目：
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
说的很好，陆陆续续的看了几十篇文章，发现代理坑太多，发现了作者+合作才是王道，自以为发现了真理，看了一个苦逼程序员系列的文章，发现有些地方不对劲，看了你写的发现哪里不对了，人最重要，作者多，工作室多，能成功合作的太少了，两方面都有原因。那个程序员系列的作者的现象不是偶然，是普遍现象。作者说的赚钱门路多也很好，只要有心，勤快些，还是能赚到的。像作者致敬
这篇文章写的好！写出了辅助作者合工作室的矛盾。我是一个作者，目前为止，我成功写了两款辅助！我也想卖，但是我感觉得不偿失！写一个辅助花的心血无法用金钱去衡量！第一个辅助实现了24小时0人工挂机。不断的优化更新花了我一年时间。中间的心酸自己了解。现在写了第二款游戏，只为了解游戏，如何出金，没写辅助！我用了5个月时间。现在辅助已经成型，利润也可观。本来打算过年后辞职现在的工作，专门搞游戏。但是不被家人支持，不支持我不会一意孤行去拼，因为我爱他们！借助nbe希望能认识一些家乡的朋友。过年回家，我去你们哪里喝酒。我家是洛阳的。家长的同行看到记得联系我QQ：3097794...在此预祝同行新年快乐！身体健康！合家欢乐！
可以联系下么 我自己用 不是出售的
如果可以 联系我微信
我也是作者打算自产自销，从学脚本到现在实力够了，写了一些挂毛钱没赚，没项目呗，工作室找作者最好带项目找，现合作是最好的，不然写个啥啊
能否合作，
有合作联系。
会写按键，单机25块稳稳的，不用看任何人脸色！
写辅助必须把游戏玩熟悉然后在用脑袋想！！菜鸟很多有能力很少， 写内存必须想办法过驱动保护还要花很多时间找数据等。。。。不要看作者行业很赚钱其实开始学习时候很蛋疼！遇见问题没有给你解答，高手很少但是菜鸟一窝，
说到我心里了，这正是我想说的，看到很多人，整天找内部，寻作者，我就笑了！
找作者，写辅助，就等于稳赚钱了？
分析的很正确 很多人都以为写辅助就像切白菜
经验的总结，好，可以怎么突破这个瓶颈啦？老大，请问现在抛开对游戏出钱思路的研究能力，在硬件上，你觉得现在的中大型工作室应该用E3类的相对高配机器，还是4h独显的中低配；还是dnf类低配机器更合理，E3需要多少台，或者4h机器需要多少台才相对有点发言权，实力辅助团队才看的上眼
不打算做主业了,有好项目捞一下就好了
相关文章 14:5:57 12:4:59 18:52:41 18:0:40 17:17:54 12:9:7 17:5:31 10:35:19 18:6:40 17:50:0
站内搜索_游戏工作室项目
网游工作室_猜你喜欢
网游工作室_最热文章
关于我们：
【NBE游戏工作室，成立于日】我们一直被采集，但从未被超越过！和NBE的小伙伴们一起做网络游戏工作室吧。痛，并快乐着！
网站内容：
NBE游戏攻略网、国内领先的网络游戏创业者一站式服务平台。本站致力于为游戏工作室打金者、玩游戏赚钱的兼职散人玩家提供动力！
联系方式：
微信公众号：nbeyouxi
NBE客服QQ：
官方1群(收费)：
咨询：有问题，
备案号：辽ICP备号-1DNF飞机-DNF辅助-官方网站-腾讯游戏-DNF辅助王者之作,300万同时在线
【官方通知】
客服QQ未能及时回复的亲们能,请添加微信:dnf-97 人工客服24*7小时在线 2:50:35
&【官方公告】
自日起，购买DNF低价推荐辅助周卡送50黄金会员点数、月卡送200点、年卡送999999点。联系客服领取
(详情联系客服QQ:) 2:51:42
【官方年卡】
感谢大家一直对本辅助官网的热爱，为了回馈新老客户对本辅助官网的大力支持、自日起开始销售年卡，自购买起一年内如果遇到辅助跑路可以免费更换其它辅助。尽最大的努力保证大家的利益！
DNF年卡购买请点击& 20:07:53
&&【关于黄金会员说明】
低价辅助全部都需要不是老司机请谨慎购买！
严重警告：低价辅助没有售后,并且低价辅助有二次收费问题并且没有售后,不懂的请不要购买！
【什么是黄金会员点数：就相当于QQ一样有帐号没QQ会员所以有一些功能你就不能用】黄金会员购买& 8:29:07
研究所全图【dnf97飞机团队】
卡称号就是这么暴力！
城镇站街1分钟刷完满疲劳
暴走安图恩
DNF飞机官方下载软件教程
&说明：您选择其中一款辅助付款后会自动发卡,然后你拿卡号去注册辅助就可以使用了,如果不会使用可以让客服远程教你使用。
&申明：辅助造成封号,辅助不稳定,辅助开发商跑路。这三点风险无法接受的用户请不要购买本商城辅助。避免售后纠纷。&
&申明：本站保证所售出的辅助全部经过测试员测试后稳定后上架。稳定奔放、无追封、无任何后顾之忧，请放心购买。
&支持：网银,支付宝,财付通,移动,支付成功网页自动发卡(卡密一但出售不给予退换)
&（客服不在线的情况下直接购买就行了，网站飞机辅助是自动发卡的。然后下载飞机充值就行了）&&&&
&欢迎加入玩家QQ交流群一起交流（）&&（加群的时候请发送官方购买订单）不然不给予通过）
【群内名片：玩家名片：大区|、名字&&飞机员名片：飞机员|、名字& 推广名片：推广|、名字】&（群内不定时清理成员，没有改的很可能会被系统自动清理！）
&群里有DNF各大区飞机员，带人刷异界，镇魂。欢迎您的加入 &&（您的支持就是我们更新的动力、。）
&群里活动（每个月1号-5号都会从群里抽取三名完成群主任务的幸运人，奖励DNF飞机周卡一张）&&&（另外！还有内部辅助用！）
神哥网络无非法、无追封、无封号！各种最稳定功能，市场独有，只能被模仿 无法被超越。
DNF鸿鹄（官方正版推荐）
特点：低调上号、高调刷图、官方正版！
下载：2017A　访问密码：521&
系统：XP、win7、win8、win10(32-64）
价格：50元一周,买三周包月&
DNF冷瞳（低价推荐）
特点：远古、镇魂、异界、升级
下载：2017A　访问密码：521&
系统：XP、win7、win8、win10(32-64）
价格：20元一周,买三周包月&
DNF神离（低价推荐）
特点：全屏、减CD、任务、称号
下载：2017A　访问密码：521&
系统：XP、win7、win8、win10(32-64）
价格：20元一周,买三周包月&
DNF宝马（低价推荐）
特点：秒杀、倍攻、自动刷图、一键出售
下载：2017A　访问密码：521&
系统：XP、win7、win8、win10(32-64）
价格：20元一周,买三周包月&
DNF奥迪（低价推荐）
特点：BUFF、加速、回血、任务、挑战
下载：2017A　访问密码：521&
系统：XP、win7、win8、win10(32-64）
价格：20元一周,买三周包月 &
DNF奇迹（低价销售）
特点：镇魂、远古、异界、升级
下载：2017A　访问密码：521&
系统：XP、win7、win8、win10(32-64）
价格：20元一周,买三周包月&
DNF凤舞（推荐辅助）
特点：工作室倍攻、刀刀全屏、20人秒杀
下载：2017A　访问密码：521&
系统：XP、win7、win8、win10(32-64）
价格：35元一周,买三周包月&
DNF远征（推荐辅助）
特点：秒杀、无敌、自动捡物、自动刷图
下载：2017A　访问密码：521&
系统：XP、win7、win8、win10(32-64）
价格：43元一周,买三周包月&
DNF神猴（推荐辅助）
特点：全自动刷图、全屏秒杀、无视队友
下载：2017A　访问密码：521&
系统：XP、win7、win8、win10(32-64）
价格：35元一周,买三周包月&
DNF狂徒（推荐辅助）
特点：秒杀、无敌、自动捡物、自动刷图
下载：2017A　访问密码：521&
系统：XP、win7、win8、win10(32-64）
价格：35元一周,买三周包月&
7*24小时在线客服
在线咨询：
在线咨询：
技术后台：
售前群①：
售前群②：售后群I：
官方微信：
热线电话：&
注：加群的朋友请带上订单号
不会使用的可以找我远程协助
非官方购买的不提供远程协助
(官方微信)
售前客服：
售前客服：
广告服务：
投诉建议：
DNF飞机官方网查看: 191766|回复: 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&#39; 储存 FindWindow 函数返回的句柄
hwnd = FindWindow(vbNullString, &Windows Media Player&)&#39; 取得进程标识符
&#39;只要把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，然后在搜索里面输入 &#39;jaw&#39;(一定要家&#39;&#39;)一般是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) &#39;模拟按下&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
&#39;然后在循环中或Timer的Timer事件中检测:
Private Sub Timer1_Timer()
If MyHotKey(vbKeyA) And vbKeyControl Then &#39;ctrl+A
End &#39;锁定
&#39;其中vbkeyA是键盘〃A〃的常数，其他键可按F1查得。
----------------------------------------------------------------------------------------------
其它方法：
比如按下&ctrl+A&就退出!
&#39;可以设置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 &#39;如果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&#39;鼠标左键按下
MOUSEEVENTF_LEFTUP&#39;鼠标松开
MOUSEEVENTF_RIGHTDOWN &#39;鼠标右键按下
MOUSEEVENTF_RIGHTUP&#39;鼠标右键松开
----------------------------------------------------------------------------------------------
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
&#39;这里是 鼠标左键按下 和松开两个事件的组合即一次单击
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
&#39;模拟鼠标右键单击事件
mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
&#39;两次连续的鼠标左键单击事件 构成一次鼠标双击事件
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 &#39; 定义设定的体力值
Dim SetMp As Integer &#39; 定义设定的魔法值
Dim NowHp As Long &#39; 定义目前的体力值
Dim NowMp As Long &#39; 定义目前的魔法值
Dim MaxHp As Long &#39; 定义角色的最高体力值
Dim MaxMp As Long &#39; 定义角色的最高魔法值
Dim DiZhi As Long &#39;定义内存地址函数
Dim hwnd As Long &#39; 储存 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 &#39; 定义设定的体力值
Dim SetMp As Integer &#39; 定义设定的魔法值
Dim NowHp As Long &#39; 定义目前的体力值
Dim NowMp As Long &#39; 定义目前的魔法值
Dim MaxHp As Long &#39; 定义角色的最高体力值
Dim MaxMp As Long &#39; 定义角色的最高魔法值
Dim DiZhi As Long &#39;定义内存地址函数
Private Function ncnr(lpADDress As Long) As Integer
&#39; 声明一些需要的变量
Dim hwnd As Long &#39; 储存 FindWindow 函数返回的句柄
Dim pid As Long &#39; 储存进程标识符( Process Id )
Dim pHandle As Long &#39; 储存进程句柄
hwnd = FindWindow(vbNullString, &封神榜·网络版&)
&#39; 取得进程标识符
GetWindowThreadProcessId hwnd, pid
&#39; 使用进程标识符取得进程句柄
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
&#39; 在内存地址中读取数据
ReadProcessMemory pHandle, lpADDress, ByVal VarPtr(ncnr), 4, 0&
&#39; 锁定进程句柄
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()
&#39; 体力：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 &#39; 获取设定的体力值
SetMp = Text2.Text &#39; 获取设定的魔法值
NowHp = ncnr(DiZhi) &#39; 获取当前的体力值
NowMp = ncnr(DiZhi + 12) &#39; 获取当前的魔法值
MaxHp = ncnr(DiZhi + 4) &#39; 获取角色的最高体力值
MaxMp = ncnr(DiZhi + 16) &#39; 获取角色的最高魔法值
Label3.Caption = Str(NowHp) + &/& + Str(MaxHp) &#39; 显示角色体力值状态
Label4.Caption = Str(NowMp) + &/& + Str(MaxMp) &#39; 显示角色魔法值状态
If Check1.Value Then
Timer2.Enabled = True
Timer2.Enabled = False
If Check2.Value Then
Timer3.Enabled = True
Timer3.Enabled = False
Private Sub Timer2_Timer()
&#39; 体力值小于设定值按下数字键1
If (NowHp) & SetHp Then
SendKeys &1&
Private Sub Timer3_Timer()
&#39; 魔法值小于设定值按下数字键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币帖子金砖
做人真难？}