初学者关于用API修改游戏的提问 [问题点数：15分，结帖人TKKILLER]
-
本版专家分：0结帖率 100% -
回复次数2楼主小弟最近想用VB的API功能作一个<合金成弹头X>的修改器,但是自己编的程序一能正确的修改游戏,请大家指正一下.
<合金成弹头X>是在NeoRAGEx外壳下运行的.手雷数的地址为&H56ADFD.
程序如下:
Dim gamehwnd As Long
Dim pid As Long
Dim hprocess As Long
Option Explicit
Private Sub Check1_Click()
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
gamehwnd = FindWindow("NeoRAGEx", vbNullString)
Debug.Print gamehwnd
If gamehwnd = 0 Then
MsgBox "请先运行NeoRAGEx", vbOKOnly, "注意"
End If
End Sub
Private Sub Timer1_Timer()
Dim gamehapaddress As Long
Dim gamehpvalue As Byte
GetWindowThreadProcessId gamehwnd, pid
hprocess = OpenProcess(0, False, pid)
gamehapaddress = &H56ADFD
gamehpvalue = &HC
WriteProcessMemory hprocess, gamehapaddress, gamehpvalue, 1, 0&
CloseHandle hprocess
End Sub
问题点数：15分
-
-
CSDN今日推荐
-
本版专家分：5634 -
#1 得分：15给你一个例子
QQRN:
我用VB写了一个简单的修改数据的程序，在NT和WIN98上运行都没有问题。搜索的数据类型只支持Integer类型，用法和过去的GameBuster和FPE相同。
1：先运行应用程序
2：输入一个数值，然后搜索。
3：等应用程序的这个数值变化之后，把变化后的数值输入进去，再次搜索。直到搜索结果为1。
4: 输入一个想要改变的数值，然后 修改。
用这个程序对付一般的游戏应该没什么问题。
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3885
ClientLeft = 60
ClientTop = 345
ClientWidth = 6120
LinkTopic = "Form1"
ScaleHeight = 3885
ScaleWidth = 6120
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton btnReset
Caption = "Reset"
Height = 345
Left = 2370
TabIndex = 9
Top = 1500
Width = 945
End
Begin VB.CommandButton btnModify
Caption = "修改"
Height = 375
Left = 3720
TabIndex = 8
Top = 1440
Width = 915
End
Begin VB.CommandButton btnSearch
Caption = "搜索"
Height = 405
Left = 930
TabIndex = 7
Top = 1440
Width = 975
End
Begin VB.TextBox txtValue
BeginProperty Font
Name = "Fixedsys"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1170
TabIndex = 4
Text = "123"
Top = 810
Width = 1425
End
Begin VB.CommandButton btnExecute
Caption = "运行"
Height = 375
Left = 4800
TabIndex = 2
Top = 210
Width = 945
End
Begin VB.TextBox txtApp
Height = 375
Left = 1170
TabIndex = 1
Text = "test.exe"
Top = 240
Width = 3495
End
Begin VB.Label lblCount
Alignment = 1 'Right Justify
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty Font
Name = "Fixedsys"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3990
TabIndex = 6
Top = 810
Width = 1125
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "搜索结果："
Height = 195
Left = 3030
TabIndex = 5
Top = 870
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "数值："
Height = 195
Left = 240
TabIndex = 3
Top = 900
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "应用程序："
Height = 195
Left = 240
TabIndex = 0
Top = 330
Width = 900
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
'dwDesiredAccess 存取方式，一般用PROCESS_ALL_ACCESS就可以
'bInheritHandle 这里不用，必须是0
'dwProcessId 进程ID，自己想办法得到它，可用GetWindowThreadProcessId等函数，
' 或是在VB里用Shell命令执行程序返回的值
'返回 进程Handle
Private Declare Function ReadProcessMemory Lib "Kernel32.dll" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesRead As Long) As Long
Private Declare Function WriteProcessMemory Lib "Kernel32.dll" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Any) As Long
'hProcess 进程Handle
'lpBaseAddress 指定的地址
'lpBuffer 读/写的缓冲区
'nSize lpBuffer的大小(字节数)
'lpNumberOfBytesWritten 完成读写的字节数
'返回 非0 成功，0 失败
Private Type MEMORY_BASIC_INFORMATION
BaseAddress As Long
AllocationBase As Long
AllocattionProtect As Long
RegionSize As Long
State As Long
Protect As Long
Type As Long
End Type
Private Declare Function VirtualQueryEx Lib "Kernel32.dll" (ByVal hProcess As Long, ByVal lpAddress As Long, info As MEMORY_BASIC_INFORMATION, ByVal dwLength As Long) As Long
Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal handle As Long) As Long
Private Const PROCESS_TERMINATE = &H1&
Private Const PROCESS_CREATE_THREAD = &H2&
Private Const PROCESS_SET_SESSIONID = &H4&
Private Const PROCESS_VM_OPERATION = &H8&
Private Const PROCESS_VM_READ = &H10&
Private Const PROCESS_VM_WRITE = &H20&
Private Const PROCESS_DUP_HANDLE = &H40&
Private Const PROCESS_CREATE_PROCESS = &H80&
Private Const PROCESS_SET_QUOTA = &H100&
Private Const PROCESS_SET_INFORMATION = &H200&
Private Const PROCESS_QUERY_INFORMATION = &H400&
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Const PAGE_NOACCESS = &H1
Private Const PAGE_READONLY = &H2
Private Const PAGE_READWRITE = &H4
Private Const PAGE_WRITECOPY = &H8
Private Const PAGE_EXECUTE = &H10
Private Const PAGE_EXECUTE_READ = &H20
Private Const PAGE_EXECUTE_READWRITE = &H40
Private Const PAGE_EXECUTE_WRITECOPY = &H80
Private Const PAGE_GUARD = &H100
Private Const PAGE_NOCACHE = &H200
Private Const PAGE_WRITECOMBINE = &H400
Private Const MEM_COMMIT = &H1000
Private Const MEM_RESERVE = &H2000
Private Const MEM_DECOMMIT = &H4000
Private Const MEM_RELEASE = &H8000
Private Const MEM_FREE = &H10000
Private Const MEM_PRIVATE = &H20000
Private Const MEM_MAPPED = &H40000
Private Const MEM_RESET = &H80000
Private Const MEM_TOP_DOWN = &H100000
Private Const MEM_4MB_PAGES = &H80000000
Private Const SEC_FILE = &H800000
Private Const SEC_IMAGE = &H1000000
Private Const SEC_VLM = &H2000000
Private Const SEC_RESERVE = &H4000000
Private Const SEC_COMMIT = &H8000000
Private Const SEC_NOCACHE = &H10000000
Private Const MEM_IMAGE = SEC_IMAGE
Private ProcessID As Long
Private Addrs As Collection
Private SearchValue As Integer
Const MAXCOUNT = 10000
Private Buffer() As Byte
Private BufferLength As Long
Private Property Get SearchCount() As Long
If Addrs Is Nothing Then
SearchCount = 0
Else
SearchCount = Addrs.Count
End If
End Property
Private Sub btnExecute_Click()
ProcessID = Shell(txtApp.Text, vbNormalFocus)
EnableButtons
End Sub
Private Function GetValue() As Boolean
On Error GoTo VAL_FAIL
SearchValue = Val(txtValue.Text)
txtValue.Text = SearchValue
GetValue = True
Exit Function
VAL_FAIL:
MsgBox "please enter a integer between -32768 to 32767"
End Function
Private Sub btnModify_Click()
If Not GetValue Then
Exit Sub
End If
Dim hProcess As Long
hProcess = OpenProcess(PROCESS_VM_WRITE + PROCESS_VM_OPERATION, 0&, ProcessID)
If hProcess = 0 Then
MsgBox "can't open process"
Exit Sub
End If
Dim r As Long
Dim n As Long
Dim i As Long
For i = 1 To Addrs.Count
r = WriteProcessMemory(hProcess, CLng(Addrs.Item(i)), SearchValue, 2&, n)
If r = 0 Then
MsgBox "modify fail"
End If
Next i
CloseHandle (hProcess)
End Sub
Private Sub btnReset_Click()
Set Addrs = Nothing
EnableButtons
End Sub
Private Sub btnSearch_Click()
If Not GetValue Then
Exit Sub
End If
Dim hProcess As Long
hProcess = OpenProcess(PROCESS_VM_READ + PROCESS_QUERY_INFORMATION, 0&, ProcessID)
If hProcess = 0 Then
MsgBox "can't open process"
Exit Sub
End If
Dim base As Long
Dim cVal As Integer
Dim i As Long
Dim n As Long
Dim r As Long
Dim info As MEMORY_BASIC_INFORMATION
Dim col As Collection
Set col = New Collection
If SearchCount > 0 Then
For i = 1 To SearchCount
base = CLng(Addrs.Item(i))
If ReadProcessMemory(hProcess, base, cVal, 2&, n) > 0 Then
If cVal = SearchValue Then
col.Add base
End If
End If
Next i
Else
base = 0
On Error GoTo SEARCH_FINISH
Do While True
If VirtualQueryEx(hProcess, base, info, Len(info)) = 0 Then
Exit Do
End If
If info.Type <> 0 Then
If info.Protect = PAGE_READWRITE Then
If info.RegionSize > BufferLength Then
BufferLength = info.RegionSize
ReDim Buffer(0 To BufferLength) As Byte
End If
r = ReadProcessMemory(hProcess, info.BaseAddress, Buffer(0), info.RegionSize, n)
If r > 0 Then
For i = 0 To n - 1
Dim temp As Long
temp = CLng(Buffer(i)) + CLng(Buffer(i + 1)) * 256
If temp < 65536 Then
If temp < 32768 Then
cVal = temp
Else
cVal = temp - 65536
End If
If cVal = SearchValue Then
col.Add (info.BaseAddress + i)
End If
End If
Next i
End If
End If
End If
base = info.BaseAddress + info.RegionSize
Loop
End If
SEARCH_FINISH:
CloseHandle hProcess
Set Addrs = col
EnableButtons
End Sub
Private Sub Form_Load()
EnableButtons
End Sub
Private Sub EnableButtons()
lblCount.Caption = SearchCount
btnSearch.Enabled = ProcessID <> 0
btnModify.Enabled = SearchCount > 0
End Sub
-
本版专家分：0
-
#2 得分：0谢谢你的程序,对我的帮助很大.
- 其他相关推荐
- 【新手教程】如何用C语言写游戏修改器！
- 本节教大家如何用基础编程语言C语言写简单的游戏修改器。用到的工具：1.VC++6.0(上机通常都会用的)2.CE 5.4（任何版本都行）3.当然要一款游戏这里我就用我临时写的C语言小游戏来作为实验对象。教程开始：首先我们肯定要设计一个界面：这里我用while循环，方便后面程序执行完指令后不会退出。在介绍重点部分时，我首先得介绍下涉及的专有名词句柄、PID句柄：这个嘛，是一种特殊的智能指针 。当一个...
- 论坛提问的技巧
- 原作者：舒马赫 在论坛中，当提出一个问题时，你能得到怎样的回答？这取决于挖出答案的难度，同样取决于你提问的方法。 首先你应该明白，尽管大侠们有蔑视简单问题和不友善的坏名声，有时看起来似乎他们对新手，对知识贫乏者怀有敌意，但事实上并不是这样的。 他们不想掩饰一种鄙视——某些人不愿思考，或者在发问前不去完成他们应该做的事。这种人只会谋杀时间，他们只愿索取，从不付出，无端消耗大家的时间，而人们本可以把时
- 用c语言编写小游戏快速入门
- 对于刚学完c语言的并且想用c语言制作一些运用图形函数编写小游戏的初学者来说相当有用,可以给你学习的自信哦...
- 打字游戏（c语言，适合初学者）
- 这是本人学习期间所做的小项目，希望对学c语言的同学有所帮助。
- java小游戏（适合初学者）
- 很低级，但用到了很多java知识，适合初学者看一看！解压后，把文件夹导入MyEclipse即可运行！ 原创！
- #Python 初学之二编写一个小游戏#
- #密码输入三次错误输入限制 password_list = ['####','12345'] def account_login():
- java小游戏开发，完整版 （初学者正在努力中）
- 在公司学习当中，按照任务写了小小游戏，但是不是我的最终想实现的能容，功能也没有完全达到我的要求，由于别的事情，目前不能继续做了，所以只能提前发出来，希望对大家有帮助。。。。。。 package com.example.amu; public class ScoreThread extends Thread { GameView gameView;//GameView 的引用 int
- C++入门教程（结合小游戏实战）
- 你看到的很多教程都是从youtube进行再加工的，为何不自己掌握第一手的学习资料呢？虽然刚开始会艰难一些，如果英语不好的话。顺便说一句，英语和软件开发更配哦！ 本课程结合小游戏进行C++基础知识讲解。 本课程适合没有基础，或者初学C++的同学进行学习，前面几节会着重讲解C++的基本语法知识，有C语言基础的同学也建议重新复习一下。 后面将会陆续讲解类、继承、多态等C++的高级特性，内容从易到难，适合
- 关于区块链的10个常见问题（转）
- 问题1：区块链最近这么火，能否简单讲讲什么是区块链？ 回答：区块链技术其实并不复杂，简单点说，区块链就是把加密数据（区块）按照时间顺序进行叠加（链）生成的永久、不可逆向修改的记录。（可以不用说下去了，太深奥了谁也听不懂。）举个例子你也许能明白。以前亲戚之间借钱经常搞得很混乱。因为大家都是亲戚，所以也不愿意搞得太清楚，也不会签合同什么的，这就导致出现很多后续的麻烦。比如你家借我家2万块钱，到现在也...
- 关于编程：送给初学者
- 一、什么样子的人适合学习编程？ 在大众周围，总是充斥着各种如何学习编程的声音。许多人已经对于是否“每个人都应该学习编程”发表了自己的观点。开句玩笑话：如果那些认为每个人都需要学习编程的作者自己会编程的话，就不会出现程序员紧缺的现象了！ 其实编程这个事情，很多人有计算机专业相关和非计算机相关的区分，虽然确实有基础底蕴的差别，但是在努力的共性上还是一致的，有以下几个共性： 1. 对编