今年你都能玩到！端游大作改编手游盘点
今年你都能玩到！端游大作改编手游盘点
【17173专稿，转载请注明出处】
近些年手游大热，不少端游厂商也开始进军手游，将自家的知名IP改编后推出，不仅研发成本更低廉，而且也能吸引到不少原作的粉丝。在2015年，有不少经典端游改编的手游都将陆续上线，下面一起来了解下吧。
DNF移动版是腾讯即将推出的DNF改编手游。其故事背景是阿拉德大陆一百年之后，时光扭曲，勇士重新踏上征程为故事线。
游戏提供男鬼剑、女***、女拳师等经典角色可供玩家选择，包括职业觉醒，特色技能、地下城以及PK方面的演绎也将令其成为期待的原因。
据悉，这款手游有望在年内推出，DNF巨大的品牌号召力加上腾讯强大的手游发行实力，这款游戏想不火估计都很难。
注:点图片,即可查看下一张
传奇的IP号召力自不用说，目前手机上各种仿冒的、授权的产品也是一大堆，从侧门证明了其移动端影响力也相对大。
《热血传奇》手游是盛大传奇工作室自研的产品，也是盛大今年最重磅的手游大作，玩法上各种传奇经典内容都得以移植，再加上腾讯代理的发行助力，两代端游霸主合体发功，大红大紫一把应该不在话下.
注:点图片,即可查看下一张
大话2的IP近年通过推出相当火热的免费版可以说人气更上一层楼，不仅拉回了大量老玩家也吸引了很多新玩家的关注。再加上梦幻手游的成功发行，也给大话2手游版更增加了底气。
从目前已知的信息看来手游玩法将包括帮战、五环、修罗等一系列端游经典玩法，整体风格玩法都类似端游，比较偏重度。另外，按照大话2端游的情况来看，付费很有可能也会比梦幻轻度，以便两者形成互补。
注:点图片,即可查看下一张
《冒险岛》在韩国甚至北美都有非常强大的影响力和吸金能力。国服目前虽然没有很多的推广宣传，也保持着34组服务器这样可观的用户群体。
《口袋冒险岛》则是NEXON推出的冒险岛正统手游。玩法上来说相似度和端游接近100%，不仅有5种以上的新职业，还有“帮派副本”、“特殊副本”、“突发副本”等多种玩法，并为满级(120级)的玩家设置了专门的高难度副本关卡，游戏最多支持4人组队挑战。
《口袋冒险岛》去年下半年已在韩国上线，一度登顶韩国手游排行榜，国内据悉很有可能也会在年内推出。
注:点图片,即可查看下一张
《剑灵》手游是一款卡牌类游戏，由韩国NCsoft研发，腾讯负责国内发行。其主要卖点是各种端游经典角色的娘化版，炎煌、道天风、啸四海等除了拥有自身男性人物形象外，还有另外一种让人喷鼻血的巨乳娘造型。
不过目前国内卡牌游戏竞争早已白热化，如果想要长久运营，除了IP的巨大潜力以外，本身卡牌玩法也是需要更下工夫的地方。
注:点图片,即可查看下一张
对于《剑网3》手游版的信息我们知之甚少，只有早前郭大侠爆料称将是3D画面的ARPG游戏，预计Q4玩家可以玩到。不过根据西山居的情况，感觉跳票的可能性不小。
注:点图片,即可查看下一张
九阴真经手游
《九阴真经》手游是一款比较重度、玩法丰富的产品，端游的武当、峨眉、唐门三大门派将先期开放，武林大会、经脉、踢馆、切磋等众多经典玩法也一起移植到手游中。
蜗牛做武侠游戏还是蛮有想法的，加上之前ARPG手游《功夫熊猫》的成功发行，这款手游的品质与推广比较有保障。
注:点图片,即可查看下一张
龙之谷系列
龙之谷IP可以说是端游改编手游中被利用最充分的，其闯关刷图的模式以及丰富的副本设定也非常适合移植到手游上。目前已知的改变游戏就有6款，风格覆盖2D、3D、卡牌动作等等，喜欢这个IP想要回归的国内玩家在暑期就能玩上2款。
暑期上线 2D横版《龙之谷:破晓》
暑期上线 风格很像地城之光的《龙之谷:迷宫》
安卓已上IOS未知 大富翁+卡牌类《龙之谷:大陆冒险》
时间未知 3D写实版有点像洛英的《龙之谷2:传奇》
时间未知 玩法风格移植至端游的《龙之谷:起源》
时间未知 疑似对战类《龙之谷VS地城之光》
注:点图片,即可查看下一张
梦幻西游无双版
《梦幻西游》手游版成功超过200W在线，并在IOS霸榜N周。这给予了网易足够的信心去推出一款梦幻IP的新作，这也是梦幻IP首次尝试ARPG类型。
从游戏名称中的“无双版”我们很容易看出游戏的核心玩法定位，端游中的剑侠客、杀破狼等经典角色以及天宫、麒麟山方寸山等景点地图也会在游戏中还原。游戏预计下半年推出。
注:点图片,即可查看下一张
《天下X天下》是网易天下IP改编的第二款手游，第一款Q版动作的《天下HD》在上线后取得了不错的成绩。
而此次将于年内推出的新作则是3D偏写实风格的动作MMORPG，画面风格更像端游，且移植了端游团队作战、演武、势力战等模式与核心玩法。300多位“天下”原生角色也将加入玩家阵营。
另外该作还请来了《剑灵》、《鬼武者》配乐岩代太郎加盟，从品质感上来说也比较让人放心。
注:点图片,即可查看下一张
跑跑卡丁车
《跑跑卡丁车》手游的玩法基本继承端游版，方向操作有按键和重力感应两种，漂移则是被简化为过弯时候一键可以漂移。对新玩家来说，这款游戏比较好上手，对老玩家来说则不能随时漂移损失了很多操作空间。
目前该手游已经推出，想玩的玩家可以去安卓或者IOS下载。
注:点图片,即可查看下一张
《倩女幽魂》同名手游将于下半年上线。女异人、女魅者、女医师、男方士、男射手、男甲士六大角色将会在手游中首批登场；杭州、金陵、黑风洞、蒲家村、兰若寺等经典场景，***、祈福守财、关宁校场、家园装扮等经典玩法也将在手游中延续。同时，制作团队将大胆创新，开发出更多更合适手游平台的新内容新元素，如虚拟摇杆加技能按键模式。
注:点图片,即可查看下一张
　　《魔域口袋版》是以经典魔幻类PK网游《魔域》为蓝本、极致激爽PK体验的一款手机网游，完美继承了魔域的纯正血统，从此手机也能玩魔域！
《魔域口袋版》继承了端游版的经典玩法，一人多宠、幻兽养成、PK争霸、XP神技、军团制霸等核心玩法在掌上完美重现；同时也针对手机的特点进行优化革新，五大职业重新平衡，法系幻兽完美合体，百人军团兵临城下，激烈战场无处不在。
据悉，《魔域口袋版》首部大型军团资料片“兄弟会”即将横空出世，届时百人同屏对决，夺皇城抢橙武，开启国民掌上火拼大时代！
注:点图片,即可查看下一张
【编辑：森然小雨】
类型：竞速
类型：第一人称射击
特征：动作
类型：MOBA
热门新闻排行
游戏万花筒查看: 187787|回复: 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币3375 元
T币帖子金砖
做人真难？