vb.net读写内存 c#读内存

VB.net“尝试读取或写入受保护的内存。这通常指示其他内存已损坏。”

vb.net 有专门的托盘图标控件 在工具箱里直接添加一个就可以了 两行代码即可

创新互联公司主营盂县网站建设的网络公司,主营网站建设方案,app软件开发,盂县h5微信小程序开发搭建,盂县网站营销推广欢迎盂县等地区企业咨询

NotifyIcon1.Icon = Me.Icon

NotifyIcon1.Visible = True

vb.net尝试读取或写入受保护的内存。这通常指示其他内存已损坏

这说明你调用 API 传参存在问题。

首先有没有设置结构体内存对齐？

[StructLayout(LayoutKind.Sequential)] 加了吗？

COLORREF 不要用 Color 代替，用 int 代替

TCHAR cfFaceName[32] 定义为 Byte 数组也可以，带在传参前，必须初始化为 32 个长度

VB.net如何读取一个游戏的内存地址?

Imports System.Runtime.InteropServices ‘引入

’ pstream为32位内存地址值

' nLenght为内存长度

Dim ptr As New System.IntPtr(pstream) '定义一个地址为流基地址的非托管指针

Dim ReadArray(nLenght - 1) As Byte '定义数组

Marshal.Copy(ptr, ReadArray, 0, nLenght) '将数据从非托管内存指针复制到托管 8 位无符号整数数组

vb.net 读取内存失败 求高手解答

你是想读取游戏进程吧 这个问题刚开始也 让我郁闷了很久 其实很多 游戏对读取内存做了特殊处理 常规的 调用api打开进程 读取内存 无效可以尝试 用token 直接调用就ok了 返回true说明调用成功下面是详细代码 Public Class ToKen

#Region "常数及结构声明"

Private Const SE_PRIVILEGE_ENABLED As Int32 = 2

Private Const EWX_SHUTDOWN As Int32 = 1

Private Const EWX_REBOOT As Int32 = 2

Private Const EWX_LOGOFF As Int32 = 0

Private Structure LUID_AND_ATTRIBUTES

Public pLuid As LUID

Public Attributes As Integer

End Structure

Private Structure LUID

Dim LowPart As Int32

Dim HighPart As Int32

End Structure

Private Structure TOKEN_PRIVILEGES

Public PrivilegeCount As Integer

Public Privileges As LUID

Public Attributes As Int32

End Structure

#End Region#Region "API声明"

Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, ByRef lpLuid As LUID) As Int32

Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As IntPtr, ByVal DisableAllPrivileges As Int32, ByRef NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Int32, ByRef PreviousState As TOKEN_PRIVILEGES, ByRef ReturnLength As Int32) As Int32

Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As IntPtr, ByVal DesiredAccess As Integer, ByRef TokenHandle As IntPtr) As Boolean

#End Region

#Region "获取全部权限"

Public Function ToKenPrivileges() As Boolean

Dim hdlTokenHandle As Integer

Dim tmpLuid As LUID

Dim tkp As TOKEN_PRIVILEGES

Dim tkpNewButIgnored As TOKEN_PRIVILEGES

Dim lBufferNeeded As Integer

Dim currentProcess As Process = Process.GetCurrentProcess()

If OpenProcessToken(currentProcess.Handle, HF00FF, hdlTokenHandle) Then

LookupPrivilegeValue("", "SeDebugPrivilege", tmpLuid)

tkp.PrivilegeCount = 1

tkp.Privileges = tmpLuid

tkp.Attributes = SE_PRIVILEGE_ENABLED

Return AdjustTokenPrivileges(hdlTokenHandle, False, tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded)

End If

End Function

#End Region

End Class

如何用vb.net2003读写内存

使用FileStream读写文件

文件头：

using System;

using System.Collections.Generic;

using System.Text;

using System.IO;

读文件核心代码：

byte[] byData = new byte[100];

char[] charData = new char[1000];

try

{

FileStream sFile = new FileStream("文件路径",FileMode.Open);

sFile.Seek(55, SeekOrigin.Begin);

sFile.Read(byData, 0, 100); //第一个参数是被传进来的字节数组,用以接受FileStream对象中的数据,第2个参数是字节数组中开始写入数据的位置,它通常是0,表示从数组的开端文件中向数组写数据,最后一个参数规定从文件读多少字符.

}

catch (IOException e)

{

Console.WriteLine("An IO exception has been thrown!");

Console.WriteLine(e.ToString());

Console.ReadLine();

return;

}

Decoder d = Encoding.UTF8.GetDecoder();

d.GetChars(byData, 0, byData.Length, charData, 0);

Console.WriteLine(charData);

Console.ReadLine();

写文件核心代码：

FileStream fs = new FileStream(文件路径,FileMode.Create);

//获得字节数组

byte [] data =new UTF8Encoding().GetBytes(String);

//开始写入

fs.Write(data,0,data.Length);

//清空缓冲区、关闭流

fs.Flush();

fs.Close();

2、使用StreamReader和StreamWriter

文件头：

using System;

using System.Collections.Generic;

using System.Text;

using System.IO;

StreamReader读取文件：

StreamReader objReader = new StreamReader(文件路径);

string sLine="";

ArrayList LineList = new ArrayList();

while (sLine != null)

{

sLine = objReader.ReadLine();

if (sLine != null!sLine.Equals(""))

LineList.Add(sLine);

}

objReader.Close();

return LineList;

StreamWriter写文件：

FileStream fs = new FileStream(文件路径, FileMode.Create);

StreamWriter sw = new StreamWriter(fs);

//开始写入

sw.Write(String);

//清空缓冲区

sw.Flush();

//关闭流

sw.Close();

fs.Close();

===================================================================================

方式一：用FileStream

//实例化一个保存文件对话框

SaveFileDialog sf = new SaveFileDialog();

//设置文件保存类型

sf.Filter = "txt文件|*.txt|所有文件|*.*";

//如果用户没有输入扩展名，自动追加后缀

sf.AddExtension = true;

//设置标题

sf.Title = "写文件";

//如果用户点击了保存按钮

if(sf.ShowDialog()==DialogResult.OK)

{

//实例化一个文件流---与写入文件相关联

FileStream fs = new FileStream(sf.FileName,FileMode.Create);

//获得字节数组

byte [] data =new UTF8Encoding().GetBytes(this.textBox1.Text);

//开始写入

fs.Write(data,0,data.Length);

//清空缓冲区、关闭流

fs.Flush();

fs.Close();

}

方式二：用StreamWriter

//实例化一个保存文件对话框

SaveFileDialog sf = new SaveFileDialog();

//设置文件保存类型

sf.Filter = "txt文件|*.txt|所有文件|*.*";

//如果用户没有输入扩展名，自动追加后缀

sf.AddExtension = true;

//设置标题

sf.Title = "写文件";

//如果用户点击了保存按钮

if (sf.ShowDialog() == DialogResult.OK)

{

//实例化一个文件流---与写入文件相关联

FileStream fs = new FileStream(sf.FileName, FileMode.Create);

//实例化一个StreamWriter--与fs相关联

StreamWriter sw = new StreamWriter(fs);

//开始写入

sw.Write(this.textBox1.Text);

//清空缓冲区

sw.Flush();

//关闭流

sw.Close();

fs.Close();

}

string FileName = Guid.NewGuid().ToString() + ".txt"; //GUID生成唯一文件名

StringBuilder ckpw = new StringBuilder("\"凭证输出\", \"V800\", \"001\", \"东风随州专用汽车有限公司\"," + "\"F89自由项16\", \"F90审核日期：\"");

if (!FileIO.IsFolderExists(Server.MapPath("pzsc")))

FileIO.CreaterFolder(Server.MapPath(""), "");

string filePath = Server.MapPath("pzsc") + "\\" + FileName;

System.IO.StreamWriter sw = new System.IO.StreamWriter(filePath, false, Encoding.GetEncoding("GB2312"));//创建的时候需要指定编码格式，默认是UTF-8，中文显示乱码

sw.WriteLine(ckpw.ToString());

sw.Close();

方式三：用BinaryWriter

//实例化一个保存文件对话框

SaveFileDialog sf = new SaveFileDialog();

//设置文件保存类型

sf.Filter = "txt文件|*.txt|所有文件|*.*";

//如果用户没有输入扩展名，自动追加后缀

sf.AddExtension = true;

//设置标题

sf.Title = "写文件";

//如果用户点击了保存按钮

if (sf.ShowDialog() == DialogResult.OK)

{

//实例化一个文件流---与写入文件相关联

FileStream fs = new FileStream(sf.FileName, FileMode.Create);

//实例化BinaryWriter

BinaryWriter bw = new BinaryWriter(fs);

bw.Write(this.textBox1.Text);

//清空缓冲区

bw.Flush();

//关闭流

bw.Close();

fs.Close();

}

C#缓存流示例------用缓存流复制文件

C#文件处理操作必须先导入命名空间：using System.IO;

背景：使用VS2005、一个按钮、一个窗体、C#缓存流、把D:\KuGoo\爱得太多.wma复制到D:\并更名为love.wma,即：D:\love.wma

在按钮的Click事件中添加如下代码：

private void button1_Click(object sender, EventArgs e)

{

//创建两个文件流 一个是源文件相关，另一个是要写入的文件

FileStream fs = new FileStream(@"D:\KuGoo\爱得太多.wma",FileMode.Open);

FileStream fs2 = new FileStream(@"D:\love.wma",FileMode.Create);

//创建一个字节数组，作为两者之间的媒介

//好比两个人拿苹果，这个字节数组就好比一个篮子，一个人作死的把苹果送到篮子里面，

//而我就可以作死得拿苹果，通过这个媒介我们互不干扰，

//不需要互相等待【她往篮子里面放了苹果我才可以去拿】，提高了效率

byte[] data = new byte[1024];

//创建两个缓冲流，与两个文件流相关联

BufferedStream bs = new BufferedStream(fs);

BufferedStream bs2= new BufferedStream(fs2);

//fs作死的读，fs2作死的写，直到fs没有字节可读fs2就不写了

//好比，一个人作死的往篮子里面丢苹果，另一个人作死得往篮子里面拿苹果，直到篮子里面没有苹果拿了为止

//即--那个人没有苹果往篮子里面放了

while(fs.Read(data,0,data.Length)0)

{

fs2.Write(data,0,data.Length);

fs2.Flush();

}

//关闭流，好比两个人累了，都要休息 呵呵o(∩_∩)o...

fs.Close();

fs2.Close();

}

C#内存流示例-----用内存流来读取图片

C#文件处理操作必须先导入命名空间：using System.IO;

背景：一个窗体、一个pictureBox、一个lable[没有选择图片,lable的text为"图片未选择"],在pictureBox1的Click事件中添加如下代码：

private void pictureBox1_Click(object sender, EventArgs e)

{

//实例化一个打开文件对话框

OpenFileDialog op = new OpenFileDialog();

//设置文件的类型

op.Filter = "JPG图片|*.jpg|GIF图片|*.gif";

//如果用户点击了打开按钮、选择了正确的图片路径则进行如下操作：

if(op.ShowDialog()==DialogResult.OK)

{

//清空文本

this.label1.Text = "";

//实例化一个文件流

FileStream fs = new FileStream(op.FileName, FileMode.Open);

//把文件读取到字节数组

byte[] data = new byte[fs.Length];

fs.Read(data, 0, data.Length);

fs.Close();

//实例化一个内存流---把从文件流中读取的内容[字节数组]放到内存流中去

MemoryStream ms = new MemoryStream(data);

//设置图片框 pictureBox1中的图片

this.pictureBox1.Image = Image.FromStream(ms);

}

}

vb.net 写入内存值不正确

Imports System.Runtime.InteropServices

Public Class MemoryEditor

Inherits WINAPI.NativeMethods

Private phwnd As IntPtr

Private Buffer As Byte()

Private BytesRead As IntPtr

Private BytesWrite As IntPtr

''' summary创建内存编辑器/summary

''' param name="processHwnd"进程句柄/param

Sub New(processHwnd As IntPtr)

Me.phwnd = processHwnd

End Sub

''' summary根据指定偏移量读取内存基址/summary

''' param name="addr"内存地址/param

''' param name="offsets"偏移量数组/param

Public Function ReadBaseAddress(addr As IntPtr, offsets() As Integer) As IntPtr

Dim address As IntPtr = ReadMemoryToInteger(addr)

For Each offset As Integer In offsets

address = address.ToInt32 + offset

address = ReadMemoryToInteger(address)

If address = IntPtr.Zero Then

Dim errInfo As String = "内存偏移量[" Hex(offset) "]错误！"

Throw New Exception(errInfo)

End If

Next

Return address

End Function

''' summary读取4字节内存数值/summary

''' param name="addr"内存地址/param

Public Function ReadMemoryToInteger(addr As IntPtr) As Integer

Buffer = New Byte(3) {}

ReadProcessMemory(phwnd, addr, Buffer, 4, BytesRead)

Return BitConverter.ToInt32(Buffer, 0)

End Function

''' summary读取4字节内存数组/summary

''' param name="addr"内存地址/param

Public Function ReadMemoryToBytes(addr As IntPtr) As Byte()

Buffer = New Byte(3) {}

ReadProcessMemory(phwnd, addr, Buffer, 4, BytesRead)

Return Buffer

End Function

''' summary将内存值数组写入指定地址/summary

''' param name="addr"内存地址/param

''' param name="buffer"内存值数组/param

Public Function WriteMemoryByBytes(addr As IntPtr, buffer As Byte()) As Boolean

Return WriteProcessMemory(phwnd, addr, buffer, buffer.Length, BytesWrite)

End Function

End Class

Namespace WINAPI

Public MustInherit Class NativeMethods

DllImport("kernel32.dll", SetLastError:=True) _

Public Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, _

ByVal lpBaseAddress As IntPtr, _

Out() ByVal lpBuffer() As Byte, _

ByVal dwSize As Integer, _

ByRef lpBytesRead As Integer) As Boolean

End Function

DllImport("kernel32.dll", SetLastError:=True) _

Public Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, _

ByVal lpBaseAddress As IntPtr, _

ByVal lpBuffer As Byte(), _

ByVal nSize As Integer, _

Out() ByRef lpBytesWritten As IntPtr) As Boolean

End Function

End Class

End Namespace

是不是内存读写代码有问题！用上面的代码试试，我以前写的；

调用方法：

Dim mem As New MemoryEditor(进程句柄)

Dim offsets As Integer() = {H1, H2, H3} '{一级基址，二级基址，三级基址}

Dim baseaddr As IntPtr = mem.ReadBaseAddress(内存地址, offsets)

Dim value As Integer = mem.ReadMemoryToInteger(baseaddr)