高手请进!来解决我这两个WriteProcessMemory的问题吧........(100点数)

Public Function WriteProcessMemory4Long(ByVal hProcess As Long, _
                                    ByVal lpBaseAddress As Long, _
                                    ByRef lpData As Long, _
                                    nSize As Long) As Boolean
    WriteProcessMemory4Long = False
    If m_DriverLoader.isInvalide = False Then Exit Function
    If hProcess <= 0 Then Exit Function
    Dim ctlCode As Long, ret As Long, tmp() As Byte, tmpAddr As Long
    Dim udtInput As MEMINFO
        udtInput.hProcess = hProcess
    udtInput.inputAddr = VarPtr(lpData)
    udtInput.lpBaseAddress = lpBaseAddress
    udtInput.nSize = nSize
    
    ctlCode = m_DriverLoader.CTL_CODE(FILE_DEVICE_UNKNOWN, &H808, METHOD_BUFFERED, FILE_ANY_ACCESS)
    ret = m_DriverLoader.IoControl(ctlCode, VarPtr(udtInput), LenB(udtInput), 0, 4)
    If ret > 0 Then
        WriteProcessMemory4Long = True
    End If
End Function以上是我的Function , 想请问大大如果想更改做以下的类型应该怎修改呢?另外一个问题是如我的代码是9F87EC 62C 50 那我的Function要怎做呢?
希望有高手能够解决我的问题,谢谢!