vb写内存整数型 / 木子杰软件教程

使用“vb”修改某一个进程中一个内存地址的整数型的数据，简单来说就是“写内存整数型”。
我在本篇文章中使用的是“vs2010“中的”vb“。

操作方法

01

运行“Microsoft Visual Studio 2010”。
02

”vs“的窗口弹出后，找到菜单栏，鼠标左键单击标题为”文件（f）“的选项。
03

在弹出的列表中鼠标左键单击标题为”新建项目（p）“的项。
04

在弹出的标题为”新建项目“，鼠标左键选择标题为”Visual Basic“项，在选择标题为”WIndows“的项。再在右边的列表中选择标题为”Windows 窗体应用程序“。再鼠标左键单击标题为”确定“的按钮。
05

在一个背景为”白色"的窗口，且标题为“ForM1”的窗口中的空白处鼠标左键双击。
06

在新切换到的代码编辑页面的标题为“Public class form1”下写代码： Public Declare Function _打开当前进程 Lib "kernel32" Alias "GetCurrentProcess" () As Integer 解释：打开当前进程伪句柄 Public Declare Function _打开进程 Lib "kernel32" Alias "OpenProcess" (ByVal 访问级别 As Integer, ByVal 子进程继承 As Integer, ByVal 进程ID As Integer) As Integer 解释：2035711完全访问 0为子进程继承 Public Declare Function _内存写整数 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hprocess As Integer, ByVal pbaseaddress As Integer, ByRef lpbuffer As Integer, ByVal nsize As Integer, ByVal ip As Integer) As Integer 解释：写内存/2035711 Public Declare Function _关闭对象 Lib "kernel32" Alias "CloseHandle" (ByVal jb As Integer) As Integer 解释：防止进程崩溃
07

第六步搞定后，在标题为“ Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub ” 写代码： Function 写内存整数型2(ByVal i As Integer, ByVal d As Integer, ByVal b As Integer) As Integer Dim czjb, a As Integer If i = -1 Then czjb = _打开当前进程 End If If i > -1 Or i < -1 Then czjb = _打开进程(2035711, 0, i) End If a = _内存写整数(czjb, d, b, 4, 0) _关闭对象(czjb) 写内存整数型2 = a 'a=0 失败 a≠0 成功 End Function '有返回值
08

第一步搞定后，就要调用你写好的“函数”了，嘿嘿！注释：第一个是进程ID，第二个是内存地址，第三个是欲写入整数值。
09

投个票票吧！！！

vb写内存整数型

操作方法

相关推荐