用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - vb代码库

读取内存

2012-10-21 作者: 神马举报

[vb]代码库

Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer   
Public Declare Function ReadProcess Memory Lib "kernel32" (ByVal hProcess  As Integer, ByVal lpBaseAddress As Integer, ByVal lpBuffer() As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer)  As Integer   
 
Private Const PROCESS_VM_READ  As Long = &H10   
Private Sub sd()   
    Dim ph As Integer   
    Dim i As Integer   
    Dim h As Integer   
    Dim buffer(20) As Byte   
    Dim bytesRead As Integer   
    '获得进程   
    ph = OpenProcess(PROCESS_ALL_ACCESS, False, 1832)   
    If ph Then   
            MessageBox.Show(True)   
            h = ReadProcessMemory(ph, &H403000, buffer, buffer.Length, bytesRead)   
            For i = 0 To buffer.Length - 1   
                TempMem += buffer(i).ToString   
            Next   
    Else   
        MessageBox.Show(False)   
    End If   
End Sub 
 


网友评论    (发表评论)


发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。


扫码下载

加载中,请稍后...

输入口令后可复制整站源码

加载中,请稍后...