VB能不能操作内存文件？急用，求救！

Question

看看这个
不知道你是不是指的这个意思http://computer.online.sh.cn/computer/gb/content/2001-03/02/content_97467.htm

Answer 1

试试这个
Createfilemap("filename",......),
Createfilemap(0xfffffff,......),

Answer 2

可是 subst 不是内存虚拟盼

Answer 3

COM+中的内存共享可能可以,我以前主要在服务器中创建一个共享内存,然后在客户机中取此内存信息.你可以看看COM+方面的书..在VB中,你要引用COM+ Servercis TYpe Library

Answer 4

Public Function Create( _
        Optional ByVal sMapName As String = "", _
        Optional ByVal lSizeHigh As Long = -1, _
        Optional ByVal lSizeLow As Long = -1) As Boolean
    
    Dim sa          As SECURITY_ATTRIBUTES
    sa.nLength = Len(sa)
    sa.lpSecurityDescriptor = 0
    sa.bInheritHandle = True
    
    If (Len(sMapName) > 0) Then m_MapName = sMapName
    If (lSizeHigh > 0) Then m_SizeHigh = lSizeHigh
    If (lSizeLow > 0) Then m_SizeLow = lSizeLow
    
    hFileMap = CreateFileMapping(INVALID_HANDLE_VALUE, sa, PAGE_READWRITE, m_SizeHigh, m_SizeLow, m_MapName)
    
    m_lpView = MapViewOfFile(hFileMap, FILE_MAP_READ Or FILE_MAP_WRITE, 0, 0, 0)
   
End FunctionPublic Sub Destory()
    
    If m_lpView <> 0 Then
        UnmapViewOfFile m_lpView
        'MsgBox frmTes1.DecodeAPIErrors(Err.LastDllError)
        CloseHandle hFileMap
        m_lpView = 0
    End If
    
End Sub'//WriteData
    CopyMemory m_lpView + lOffset, ipSrc, lBytes'//ReadData
    CopyMemory ipDest, m_lpView + lOffset, lBytes

Answer 5

Public Function Create( _
        Optional ByVal sMapName As String = "", _
        Optional ByVal lSizeHigh As Long = -1, _
        Optional ByVal lSizeLow As Long = -1) As Boolean
    
    Dim sa          As SECURITY_ATTRIBUTES
    sa.nLength = Len(sa)
    sa.lpSecurityDescriptor = 0
    sa.bInheritHandle = True
    
    If (Len(sMapName) > 0) Then m_MapName = sMapName
    If (lSizeHigh > 0) Then m_SizeHigh = lSizeHigh
    If (lSizeLow > 0) Then m_SizeLow = lSizeLow
    
    hFileMap = CreateFileMapping(INVALID_HANDLE_VALUE, sa, PAGE_READWRITE, m_SizeHigh, m_SizeLow, m_MapName)
    
    m_lpView = MapViewOfFile(hFileMap, FILE_MAP_READ Or FILE_MAP_WRITE, 0, 0, 0)
   
End FunctionPublic Sub Destory()
    
    If m_lpView <> 0 Then
        UnmapViewOfFile m_lpView
        'MsgBox frmTes1.DecodeAPIErrors(Err.LastDllError)
        CloseHandle hFileMap
        m_lpView = 0
    End If
    
End Sub'//WriteData
    CopyMemory m_lpView + lOffset, ipSrc, lBytes'//ReadData
    CopyMemory ipDest, m_lpView + lOffset, lBytes

Answer 6

看不懂，和和，不会是要改动一个正在运行的程序里的数值吧，象fpe2000一样？和和，对这个我感兴趣……

Answer 7

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
用这个api函数就可以转换内存文件，然后操作操作

Answer 8

你是说比如游戏修改的软件吗？能，可以去微软的网站查看有关的api