玩游戏为什么要开挂开挂，时而可以用上几局最后又不能用了
点击联系发帖人
时间：2017-10-31 15:49
吃鸡上周开挂玩了几把 昨天好被封了，然后我吧挂删了 重新买了个游戏玩了四个小时就又被封了，咋解决！_百度知道
吃鸡上周开挂玩了几把 昨天好被封了，然后我吧挂删了 重新买了个游戏玩了四个小时就又被封了，咋解决！
我有更好的答案
新买的如果没开挂可以向Battleye官网申诉
怎么申诉啊。 新买的号真的没开挂。才玩4个小时呢
我还是看看百度吧，你发的我看不懂！
这个也没办法，你不自己联系防弊软件的客服谁也帮不了你
嗯。我知道
采纳率：51%
玩个游戏都要开挂找优越也是人才游戏现在封IP的，网吧开封整个网吧（互联网的）
也别什么优越不优越的。只是被挂打的多了 想试试罢了。没玩几把就关了，
被挂打得多就开挂了？那跟你同局的人怎么说？别搞笑了，自己玩不起就别玩，谁也遇到过挂，别自己一个人搞特殊
我只是来问问题，还不需要你来教育我，你如果不能回答就请你别说话了🙂
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。无辜剥夺他人财产-找法网（findlaw.cn)
无辜剥夺他人财产
我在游戏内消费达7000元，甚至不止！但是账号于日被**官方查封，游戏名称：***。我问客服什么情况，说我使用第三方软件、而且说我是工作室。但是我一切都是按着游戏来的，从来没有用过第三方软件，为什么给我封号呢，然后申诉后找客服每次都是系统机器人给我同样的答复，人工服务等于废的嘛？问客服也是一直在敷衍我，甚至说不上一句话，然后停止对话，对此多方交涉无果，连一个正面答复都不给我，只是含糊其词的说我是用了挂，不能给我明确答复。既然我用了挂求提供详细数据好嘛？我对于游戏的投资属于个人财产，**无辜剥夺他人财产，而却不能给一个令人信服的理由。客服态度敷衍。已经侵犯了我消费者的权益。希望律师们会可以还我一个公正，维护我消费者的权益。不予受理的话也只能借助其他途径曝光了。也请尽快给我一个解释，我不求**能给个道歉，只求给我解封账号，还我一个公道。那么多开挂的人不封，我一个安安分分7年的老玩家投入了这么多，一夕之间却给我把号封了，这对我是一个多大的打击？如果这次事件不能很好的解决我只能采取其他方法维护我的法律权益了。游戏帐号：，大区：****营，角色名称：*****
建议你收集证据，起诉要求重开账户，或者返还相关费用。至于有没有开挂，是游戏公司举证
证据就是我游戏里花费的金钱与时间
你好，建议报警
报警没用吧
协商解决问题
协商没用，成铁板来的
其他玩家有没有这样的情况？
有呀，无辜封号，都让我们玩家消费的金钱沉下海
还是先协商处理比较好。
客服都是自动回复系统话的，没办法协商
看具体什么网游。
展开更多回答（1）
免费法律咨询，多年执业经验律师为您提供法律咨询服务7379人阅读
外挂学习（48）
在几年前我看到别人玩网络游戏用上了外挂，做为程序员的我心里实在是不爽，想搞清楚这到底是怎么回事。就拿了一些来研究，小有心得，拿出来与大家共享，外挂无非就是分几种罢了（依制作难度）：
1、动作式，所谓动作式，就是指用API发命令给窗口或API控制鼠标、键盘等，使游戏里的人物进行流动或者攻击，最早以前的“石器”外挂就是这种方式。（这种外挂完全是垃圾，TMD，只要会一点点API的人都知道该怎么做，不过这种外挂也是入门级的好东东，虽然不能提高你的战斗力，但是可以提高你的士气^_^）
2、本地修改式，这种外挂跟传统上的一些游戏修改器没有两样，做这种外挂在编程只需要对内存地址有一点认识并且掌握API就可以实现，“精灵”的外挂这是这种方式写成的，它的难点在于找到那些地址码，找地址一般地要借助于别人的工具，有的游戏还有双码校验，正正找起来会比较困难。（这种外挂，比上一种有一点点难度，但是这种外挂做起来能够用，也是有一定难度的啦~~，这种外挂可以很快提升你对内存地址的理解及应用，是你编程技术提高的好东东）
3、木马式，这种外挂的目的是帮外挂制作者偷到用户的密码（TMD，“烂”就一个字，不过要知已知彼所以还是要谈一下啦~~），做这种外挂有一定的难度，需要HOOK或键盘监视技术做底子，才可以完成，它的原理是先首截了用户的帐号或密码，然后发到指定邮箱。（我以前写过这样的东东，但是从来没有用过，我知道这种东东很不道德，所以以后千万别用呀！~~）
4、加速式，这种外挂可以加快游戏的速度……（对不起大家，这种东东我没有实际做过，所以不能妄自评，惭愧~~）
5、封包式，这种外挂是高难度外挂，需要有很强的编程功力才可以写得出来。它的原理是先截取封包，后修改，再转发（Kao,说起来简单，你做一个试试~~~~）。这种外挂适用于大多数网络游戏，像WPE及一些网络游戏外挂都是用这种方式写成的，编写这种外挂需要apihook技术，winsock技术
这几种外挂之中，前三种可以用ＶＢ，ＤＥＬＰＨＩ等语言比较好实现，后两种则要用ＶＣ等底层支持比较好的编程工具才好实现。
现在就依次（制作难度）由浅到深谈谈我对外挂制作的一些认识吧~~~~
首先，先来谈一下动作式的外挂，这也是我第一次写外挂时做的最简单的一种。记得还在“石器”时代的时候，我看到别人挂着一种软件（外挂）人物就可以四外游走（当时我还不知道外挂怎么回事^_^），于是找了这种软件过来研究（拿来后才听别人说这叫外挂），发现这种东东其实实现起来并不难，仔佃看其实人物的行走无非就是鼠标在不同的地方点来点去而已，看后就有实现这功能的冲动，随后跑到MSDN上看了一些资料，发现这种实现这几个功能，只需要几个简单的API函数就可以搞定：
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
'其中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"
--------------------------------------------------------------------------------------------------------------------------------------------------------
软件截图：
--------------------------------------------------------------------------------------------------------------------------------------------------------
VB 从零开始编外挂(七)
--------------------------------------------------------------------------------------------------------------------------------------------------------
钩子：喜欢外挂的人都知道，很多外挂都是在游戏当中才能呼出。这个就用到了钩子
N多人说：“哎，VB做钩子想都别想！去学C语言吧！”只要大家遇到这种人，就别理会他。
可以说他是个垃圾。在实现钩子方面VB可能没有VC快，但是也不像那种人说的“想都别想”
C语言，我最近几天看了看。{ } ；这些太多了。脑袋也大了！可能那些学C语言的人是接触电脑
编程的时候就学的它吧！但是呢，我接触电脑学的就是VB。没办法我爱它！
文章：100篇
阅读：39278
文章：42篇
阅读：10955
文章：15篇
阅读：24569}
吃鸡上周开挂玩了几把 昨天好被封了，然后我吧挂删了 重新买了个游戏玩了四个小时就又被封了，咋解决！
我有更好的答案
新买的如果没开挂可以向Battleye官网申诉
怎么申诉啊。 新买的号真的没开挂。才玩4个小时呢
我还是看看百度吧，你发的我看不懂！
这个也没办法，你不自己联系防弊软件的客服谁也帮不了你
嗯。我知道
采纳率：51%
玩个游戏都要开挂找优越也是人才游戏现在封IP的，网吧开封整个网吧（互联网的）
也别什么优越不优越的。只是被挂打的多了 想试试罢了。没玩几把就关了，
被挂打得多就开挂了？那跟你同局的人怎么说？别搞笑了，自己玩不起就别玩，谁也遇到过挂，别自己一个人搞特殊
我只是来问问题，还不需要你来教育我，你如果不能回答就请你别说话了🙂
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。无辜剥夺他人财产-找法网（findlaw.cn)
无辜剥夺他人财产
我在游戏内消费达7000元，甚至不止！但是账号于日被**官方查封，游戏名称：***。我问客服什么情况，说我使用第三方软件、而且说我是工作室。但是我一切都是按着游戏来的，从来没有用过第三方软件，为什么给我封号呢，然后申诉后找客服每次都是系统机器人给我同样的答复，人工服务等于废的嘛？问客服也是一直在敷衍我，甚至说不上一句话，然后停止对话，对此多方交涉无果，连一个正面答复都不给我，只是含糊其词的说我是用了挂，不能给我明确答复。既然我用了挂求提供详细数据好嘛？我对于游戏的投资属于个人财产，**无辜剥夺他人财产，而却不能给一个令人信服的理由。客服态度敷衍。已经侵犯了我消费者的权益。希望律师们会可以还我一个公正，维护我消费者的权益。不予受理的话也只能借助其他途径曝光了。也请尽快给我一个解释，我不求**能给个道歉，只求给我解封账号，还我一个公道。那么多开挂的人不封，我一个安安分分7年的老玩家投入了这么多，一夕之间却给我把号封了，这对我是一个多大的打击？如果这次事件不能很好的解决我只能采取其他方法维护我的法律权益了。游戏帐号：，大区：****营，角色名称：*****
建议你收集证据，起诉要求重开账户，或者返还相关费用。至于有没有开挂，是游戏公司举证
证据就是我游戏里花费的金钱与时间
你好，建议报警
报警没用吧
协商解决问题
协商没用，成铁板来的
其他玩家有没有这样的情况？
有呀，无辜封号，都让我们玩家消费的金钱沉下海
还是先协商处理比较好。
客服都是自动回复系统话的，没办法协商
看具体什么网游。
展开更多回答（1）
免费法律咨询，多年执业经验律师为您提供法律咨询服务7379人阅读
外挂学习（48）
在几年前我看到别人玩网络游戏用上了外挂，做为程序员的我心里实在是不爽，想搞清楚这到底是怎么回事。就拿了一些来研究，小有心得，拿出来与大家共享，外挂无非就是分几种罢了（依制作难度）：
1、动作式，所谓动作式，就是指用API发命令给窗口或API控制鼠标、键盘等，使游戏里的人物进行流动或者攻击，最早以前的“石器”外挂就是这种方式。（这种外挂完全是垃圾，TMD，只要会一点点API的人都知道该怎么做，不过这种外挂也是入门级的好东东，虽然不能提高你的战斗力，但是可以提高你的士气^_^）
2、本地修改式，这种外挂跟传统上的一些游戏修改器没有两样，做这种外挂在编程只需要对内存地址有一点认识并且掌握API就可以实现，“精灵”的外挂这是这种方式写成的，它的难点在于找到那些地址码，找地址一般地要借助于别人的工具，有的游戏还有双码校验，正正找起来会比较困难。（这种外挂，比上一种有一点点难度，但是这种外挂做起来能够用，也是有一定难度的啦~~，这种外挂可以很快提升你对内存地址的理解及应用，是你编程技术提高的好东东）
3、木马式，这种外挂的目的是帮外挂制作者偷到用户的密码（TMD，“烂”就一个字，不过要知已知彼所以还是要谈一下啦~~），做这种外挂有一定的难度，需要HOOK或键盘监视技术做底子，才可以完成，它的原理是先首截了用户的帐号或密码，然后发到指定邮箱。（我以前写过这样的东东，但是从来没有用过，我知道这种东东很不道德，所以以后千万别用呀！~~）
4、加速式，这种外挂可以加快游戏的速度……（对不起大家，这种东东我没有实际做过，所以不能妄自评，惭愧~~）
5、封包式，这种外挂是高难度外挂，需要有很强的编程功力才可以写得出来。它的原理是先截取封包，后修改，再转发（Kao,说起来简单，你做一个试试~~~~）。这种外挂适用于大多数网络游戏，像WPE及一些网络游戏外挂都是用这种方式写成的，编写这种外挂需要apihook技术，winsock技术
这几种外挂之中，前三种可以用ＶＢ，ＤＥＬＰＨＩ等语言比较好实现，后两种则要用ＶＣ等底层支持比较好的编程工具才好实现。
现在就依次（制作难度）由浅到深谈谈我对外挂制作的一些认识吧~~~~
首先，先来谈一下动作式的外挂，这也是我第一次写外挂时做的最简单的一种。记得还在“石器”时代的时候，我看到别人挂着一种软件（外挂）人物就可以四外游走（当时我还不知道外挂怎么回事^_^），于是找了这种软件过来研究（拿来后才听别人说这叫外挂），发现这种东东其实实现起来并不难，仔佃看其实人物的行走无非就是鼠标在不同的地方点来点去而已，看后就有实现这功能的冲动，随后跑到MSDN上看了一些资料，发现这种实现这几个功能，只需要几个简单的API函数就可以搞定：
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
'其中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"
--------------------------------------------------------------------------------------------------------------------------------------------------------
软件截图：
--------------------------------------------------------------------------------------------------------------------------------------------------------
VB 从零开始编外挂(七)
--------------------------------------------------------------------------------------------------------------------------------------------------------
钩子：喜欢外挂的人都知道，很多外挂都是在游戏当中才能呼出。这个就用到了钩子
N多人说：“哎，VB做钩子想都别想！去学C语言吧！”只要大家遇到这种人，就别理会他。
可以说他是个垃圾。在实现钩子方面VB可能没有VC快，但是也不像那种人说的“想都别想”
C语言，我最近几天看了看。{ } ；这些太多了。脑袋也大了！可能那些学C语言的人是接触电脑
编程的时候就学的它吧！但是呢，我接触电脑学的就是VB。没办法我爱它！
文章：100篇
阅读：39278
文章：42篇
阅读：10955
文章：15篇
阅读：24569}
我要回帖
更多推荐
- ·月是日语1月2号的说法中什么意思？
- ·支付宝花呗口令红包能用花呗吗怎么用？
- ·请问花钱可以通过抖音搜索对方账号对方能知道吗号找到人吗？
- ·怎么考低压电工证证考试报名需要哪些条件？
- ·山东专升本本报名了但未被录取，还有机会参加录取吗？
- ·北京个人社保代缴缴应该找哪些？北京的有吗
- ·人民币后三位是789算是手机号倒顺子好不好号吗?有没有收藏价值?
- ·怎么开通蚂蚁借呗？度娘搜索上说芝麻分600以上就可以，可是我620了还是不行
- ·商住房商业贷款上限小孩如何上小学
- ·银行七日7天的存款利率怎么算多少
- ·我是网贷黑户贷款口子论坛，逾期倒不多，申请了很多网贷，只是下款的少，现在申请任何网贷基本上是秒拒！还能申请吗？
- ·为什么重庆同创主悦是传销么公司会被人说做传销公司？
- ·银行网点弹性排班方案柜员排班问题
- ·15976156703极限咏宁是不是死了骗子
- ·商场搞笑的女扮男装小说搞活动的第一天生意好吗
- ·云南省宏观经济研究院宏绿辣素有限公司的三黄素是用在什么上的添加剂啊？
- ·佳士利漆怎么样艺术水漆如何？请问值得加盟吗？
- ·萌新求助，萌龙大乱斗无法登陆陆游戏了怎么办
- ·可不可以玩cs go 1级玩不了
- ·刚刚高考完想买本本，广场舞希望今天意见你给点意见，价位3、4千就行了，配置要好一点，玩游戏流畅一点，外观好看一点
- ·玩游戏为什么要开挂开挂，时而可以用上几局最后又不能用了
- ·谁有QQ空间说说qq名片刷赞软件免费版的软件 不需要获取积分直接就能刷
- ·csgo32位能玩吗csgo？
- ·我打了一周了，一直在铂金4王者荣耀一直卡在铂金，上下上下，得。谁王者帮我打
- ·讨论一下大家在哪个平台输了微信最多输入多少字
- ·吧友们一个星期能收入多少神武无限神武币的服
- ·这个gta5什么配置电脑能玩到底能不能玩gta5呢？ 我玩的时候一直闪退
- ·七骑士觉醒英雄选择一般英雄 这个该怎么选
- ·是不是只要被限制过闲鱼聊天功能被限制的都领不了赛季奖励
- ·胡了三国杀张角台词为啥没有张角？
- ·泡泡宝盒卡密充值怎样购买卡密，求老司机解答
- ·武器店物语物品掉落物品等级怎么升级
- ·dnf红眼平民装备做什么远古好 大概要多久时间
- ·征途手机版模拟器2手游用那个模拟器多开更多？
- ·有没有反抗萨德的武器武器不舍得用的感觉
- ·火影忍者究极风暴14求大神能给个大筒木桃式MOD和大人宇智波莎拉娜和大人博人MOD QQ邮箱 522094003@qq.com
